投稿

12月, 2012の投稿を表示しています

Extjs4.1 から FormのSubmitを行う

Extjs4.1 と Seasar2 SAStruts を使って、実験的に画面遷移を行ってます。 で、HTMLのFormをSubmitする事が出来ずにすごく悩んでしまいました(泣) やり方は下記です。 HTMLは SAStruts(Struts)タグを使っていつも通りに書きます。 また、IDを必ず付けて下さい。 HTMLの例: <s:form method="post" action="/login/login/" styleId="mainForm"> で、ログインボタンを押した時は、下記コードです。 IDを元にElementsを取得し、dom を取ってくれば、Formタグが取得できます。 後は、通常のJavaScriptと同じように扱います。 Extjs4の例: Ext.get('mainForm').dom.submit(); いやぁー出切るまで、2人日使ってしまった。 僕も感が悪くなったようです… てか、apacheページのStrutsタグのページが見つけにくいんじゃ! と言ってみるテスト…ごめんなさい私が悪いです。

Windows7 で複数ファイルを一気に開く

WindowsXPみたいに、何個開こうとしてるよ。ほんと? って確認すれば良いのに… Windows7でのやり方は、このURLで示されています。 http://inflames.blog90.fc2.com/blog-entry-445.html > ■Resolution > HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer > このキーを開く。HKCUはHKEY_CURRENT_USERの略。 > > Name : MultipleInvokePromptMinimum > この名前で作成する。 > > Type : DWORD > 種類はDWORD(32bit)。 > > Default : 15 (decimal) > 値のデフォルトは15(10進数)。 ただし、URL先をよく読むことをお勧めします。 読まずに設定すると、痛い目を見そうです。 私は、32(16進数)に設定しましたが… コレは、右クリックで"開く"が表示されると紹介されていますが、 選択して、Enter押下でも同じ効果です。 しかし、使っているPCの性能を気にしながら使う人が少ないって事ですね…

Windows7 で感動した!

最近?(半年ぐらい)Windows7 を使い始めたのですが、 エクスプローラを2つ以上起動することがわからなかった。 いつもは、「右クリック ⇒ エクスプローラ」でやってたけど、 面倒だった。 で、調べた結果「Shift+クリック」で実現できるんですよねー コレは、いろいろなWebで紹介されています。 私が感動したのは、「その他別のアプリケーションでも同じことが出来る!」 って事です。 例えば、エディタを起動しておいて、「エディタをShift+クリック」ってすると 新規エディタがもう1個起動します。 Excelでも、ワードでも、開発中のアプリケーションでも一緒です。 ブラウザでも一緒です。 (IE、Firefox、Chrome、Safari は、新規ウィンドウが表示されます。 Operaは新規タブが追加されます。 Operaよ…常に独自仕様に突き進むな(笑)僕はうれしい!) ちょっと感動したので記事にしてしまった(笑 しょーも無くてごめんなさい。 でも、簡単に多重起動が出来るので(操作ミスとかも有るよね)、 Windowsアプリケーションで多重起動を対応していないものは、 注意して作る必要がありますね。って当たり前か(笑

Extjs4 でラジオボタンを横に配置しよう!(ついでに中央揃えも…)

ボタンを横に配置したりするのにも使えると思います。 今回は、HTMLに対し、renderTo を使用していますが、使わなくても考え方は一緒です。 HTMLはこんな感じ: <table style="margin-left:auto;margin-right:auto;" border="0"> <tr> <td style="text-align:right;"> あいうえお </td> <td style="text-align:left;"> かきくけこ </td> </tr> <tr><td><!-- ダミー行 --> </td></tr> <tr> <td colspan="2" style="text-align:center;"> <span id="button1"></span> <span id="button2"></span> </td> </tr> <tr><td><!-- ダミー行 --> </td></tr> <tr> <td colspan="2"> <!-- ラジオボタンで変更 --> <span id="aiueo"></span> </td> </tr> </table> ExtJSはこんな感じ: // ボタン1 Ext.create('Ext.button.Button',{ renderTo: 'button1', text: 'ボタン1', name: 'button1' }); // ボタン2 Ext.create('Ext.button.Button',...

誰か教えてください。

OS:Windows 7 Professional SP1(Windows Update済) Office:2010 Professional バージョン 14.0.6129.5000 ExcelのVBAにこんなコードを記述しました。 Private Sub Workbook_Open() Application.WindowState = xlMinimized ' 最小化 AppActivate "Microsoft Excel" ' Excelをアクティブに End Sub Excelでフォームを表示する時に意外と使われているっぽいコードです。 で、上記OS、Office環境でこのコードを記述し実行すると、 エラーが表示されます。 「実行時エラー '5' プロシージャの呼び出し、または引数が不正です。」 まぁ、定番のエラーです。 しかし、OSがXPだったり、Officeが2003だったりするとエラーが出ません。 上記組合わせの場合に出ます。 Excelが起動している場合はエラーが出ません。 拡張子「.xlsm」「.xls」の両方で確認しましたが、エラーが発生します。 エラーが出ない事を確認した組み合わせ(2007は無い…) ・Windows XP × 2010 ・Windows XP × 2003 ・Windows 7 × 2003 誰かエラーが出ない方法を教えてください。 もうむりぽ ちなみに、"Microsoft Excel"の部分を定番のものに変更しても無駄だったので、追記しておきます。 追記:2012年12月17日 17:00 Office2010 で新規に作ったExcelでは、上記組み合わせでエラーが出るが、 Office2003 で新規に作ったExcelでは、どの組み合わせでもエラーが出なかった。 なぜだっ!?

Excel の VBAにやられた…

2012年12月14日 11時 ・大事な、コンテキストメニューの追加・リセット処理が抜けていたので追記しました。 1つのテンプレートエクセルをコピーして、複数人に配布、集計する流れが必要だったので、VBAでいろいろ処理を書いてみました。 その時、配布した際行列を追加・削除したり、キー項目を変更されるとまずいのでシートの保護を掛けました。 そのときにハマッタ事です。 配布するエクセルでやりたかったこと: ・列の削除や幅の変更は禁止したいけど、非表示・表示は出来るようにしたい。 コレを実現する為に、シートの保護を行い、列のコンテキストメニューに表示・非表示項目を追加して、VBAで列の表示・非表示が行えるようにしました。 なぜなら、シートの保護で "UserInterfaceOnly:=True" が使えるからっ! ソースはコレ(標準モジュールにでも作る…): '***************************************************************************************************** ' 列のコンテキストメニューに追加する ' パラメータ:キャプション(表示名称) ' パラメータ:アクション(実行するサブルーチン)名 ' パラメータ:グループを分ける(true)、分けない(false) ' 戻り値  :なし '***************************************************************************************************** Public Sub addMenu(ByVal inCaption As String, ByVal inAction As String, ByVal inBiginGroup As Boolean) Dim Newb On Error Resume Next Application.CommandBars("Column").Controls(inCaption).Delete ' bef...

やっぱりVBAは好きになれない…

今回の解決URLはコレ http://www.excel.studio-kazu.jp/kw/20060911143845.html Excel VBAで作ってるけど「Dim aaa As range」の"range" の部分… いくら直しても、全置換しても、"Range"に直ってくれない。 その為「オブジェクトが無い?」のようなエラーが連発しました。 PCの再起動はやってないけど、Excelの開きなおし程度じゃ直らない。 やられました。 で結局、下記の手順 1.「Dim Range」を適当な所に書く 2.行移動して確定させる(この時点で、range → Range に変わる) 3.「Dim Range」を削除 で直りました。 エラーも出なくなりました。 ナゼダァ~~~~~ コレも「バグだろう!」と言いたくなりました。 そこそこ有名なのかなぁ~?