AKARI0418 の回答履歴

デバッグを終了してから画面が操作できるまで5秒以上かかるのですが 異常でしょうか？ 環境は ・vista ・メモリ2G ・Microsoft Visual Basic 2008 Express Edition です。 フリーズに近い状態になります。 VBとはそういうものなのでしょうか？ よろしくお願いします。

ADO.NETで、型指定されたデータセットを使用して業務用アプリケーションを開発された方はおられますか？ また、どんな場合にしようされましたか？

はじめまして。ＶＢの課題で行き詰ってしまったので、力を貸していただければと思います。 課題は【商品一覧からレコードを取得し、取得したレコードを商品区分で集計し、商品区分・商品件数・売上合計金額を区分別売上表に出力する】 といったものです。 商品一覧には、【商品区分・商品名・売上】の順にデータが入っています。 自分なりに考えた手順は Private Sub コマンド1_Click() Dim INP_DATA As String Dim kubun_01 As String Dim syohin_01 As String Dim uriage_01 As Integer Dim kubun_02 As String Dim syohin_02 As String Dim uriage_02 As Integer 　Open "C:INFILE.txt" For Input As #1 Open "C:OUT_FILE.txt" For Output As #2 'ファイルの終了までループ Do Until EOF(1) Line Input #1, INP_DATA '読み込んだレコードの各項目を変数に代入 kubun_01 = Trim(Left(INP_DATA, 10)) syohin_01 = Trim(Mid(INP_DATA, 11, 10)) uriage_01 = Right(INP_DATA, 8) '一行目かどうか If Trim(Mid(INP_DATA, 11, 10)) = syohin_01 kubun_01 = Trim(Left(INP_DATA, 10)) syohin_01 = Trim(Mid(INP_DATA, 11, 15)) uriage_01 = Right(INP_DATA, 8) ElseIf Trim(Mid(INP_DATA, 11, 10)) <> syohin_01 Then kubun_02 = Trim(Left(INP_DATA, 10)) syohin_02 = Trim(Mid(INP_DATA, 11, 10)) uriage_02 = Right(INP_DATA, 8) End If If kubun = kubun_hikaku_2 Then goukei = uriage_hikaku_2 + uriage ElseIf kubun <> kubun_hikaku_2 Then Print #2, kubun; syohin; goukei End If Loop '新たに比較用の変数に格納 Do Until EOF(1) Line Input #1, INP_DATA kubun_01 = Trim(Left(INP_DATA, 10)) syohin_01 = Trim(Mid(INP_DATA, 11, 10)) uriage_01 = Right(INP_DATA, 8) Loop Debug.Print "PROGRAM END" Close #1 Close #2 End Sub となっています。長くなってしまい申し訳ありません。 上記のコーディングですと、欲しいデータが返ってこないので、 どなたかご教授いただけないでしょうか？？ よろしくお願いいたします。

お世話になります。 先日、こちらのサイトでTextBoxの暗号化について質問させていただいたのですが、 現在、ObjectBlowser9のファンクションに、暗号化の dbms_obfuscation_toolkit.desencrypt( input_string => orgstr, key_string => keystr, encrypted_string => encstr ); を作成し、VBからそのファンクションに接続しようと考えております。 ですが、 Using con As New OracleConnection(builder.ConnectionString) con.Open() 　Using cmd As New OracleCommand With cmd .Connection = con .CommandType = CommandType.StoredProcedure .CommandText = "CON_PASS_ANGO" .Parameters.Add("keystr", OracleType.VarChar).Value = keystr .Parameters.Add("orgstr", OracleType.VarChar).Value = orgstr .Parameters.Add("encstr", OracleType.VarChar).Direction = _ ParameterDirection.ReturnValue .ExecuteNonQuery() MessageBox.Show(String.Format("{0}X{1}={2}", _ 　　　keystr, orgstr, .Parameters("encstr").Value)) End With End Using End Using と記述したところ、 .Parameters.Add("encstr", OracleType.VarChar).Direction のところで、 パラメータ 'encstr': 可変長データ型 : String のサイズが設定されていません。というエラーが出てしまいます。 エラーの意味も調べたのですがいまいち理解できず、停滞しているところです。どなたか解決策をご提示願えないでしょうか、 よろしくお願いします。

プログラム関連かすらわからにのですが、質問させてもらいます。 以下の様な詳細が出てくるのですが、全くもって意味がわかりません。 具体的な解決方法が解る方いましたら、どうか対処法をよろしくお願いします。 Just-In-Time (JIT) デバッグを呼び出すための詳細については、 ダイアログ ボックスではなく、このメッセージの最後を参照してください。 ************** 例外テキスト ************** System.NullReferenceException: オブジェクト参照がオブジェクト インスタンスに設定されていません。 場所 aj.ab() 場所 aj.a(Message& A_0) 場所 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) 場所 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) ************** 読み込まれたアセンブリ ************** mscorlib アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3074 (QFE.050727-3000) コードベース: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll ---------------------------------------- FFXIAdvantage アセンブリ バージョン: 1.2.7.0 Win32 バージョン: 1.2.7.0 コードベース: file:///C:/FFXIAdvantage/FFXIAdvantage.exe ---------------------------------------- System.Windows.Forms アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3053 (netfxsp.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll ---------------------------------------- System アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3053 (netfxsp.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll ---------------------------------------- System.Drawing アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3053 (netfxsp.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll ---------------------------------------- System.Xml アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3074 (QFE.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll ---------------------------------------- System.Configuration アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3053 (netfxsp.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll ---------------------------------------- v7cpk8cx アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3053 (netfxsp.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll ---------------------------------------- mscorlib.resources アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3074 (QFE.050727-3000) コードベース: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll ---------------------------------------- System.Windows.Forms.resources アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3053 (netfxsp.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms.resources/2.0.0.0_ja_b77a5c561934e089/System.Windows.Forms.resources.dll ---------------------------------------- ************** JIT デバッグ ************** Just-In-Time (JIT) デバッグを有効にするには、このアプリケーション、 またはコンピュータ (machine.config) の構成ファイルの jitDebugging 値を system.windows.forms セクションで設定しなければなりません。 アプリケーションはまた、デバッグを有効にしてコンパイルされなければ なりません。 例: <configuration> <system.windows.forms jitDebugging="true" /> </configuration> JIT デバッグが有効なときは、このダイアログ ボックスで処理するよりも、 ハンドルされていない例外はすべてコンピュータに登録された JIT デバッガに設定されなければなりません。

テキストファイルを読込んでカンマ区切りでDatasetに登録する際は 以下の方法で行っていました。 Dim tfp As New TextFieldParser(fileName, System.Text.Encoding.GetEncoding("Shift_JIS")) Dim dt As New DataTable Dim dr As DataRow tfp.TextFieldType = FieldType.Delimited tfp.SetDelimiters(",") While Not tfp.EndOfData dr = dt.NewRow dr.ItemArray = tfp.ReadFields dt.Rows.Add(dr) End While tfp.Close() ds.Tables.Add(dt) これをファイルではなくDim str As String = "123,aaa" という文字列に対して行いたいのですが、 上記のReadFieldsの用に使える物は無いでしょうか？

VBやVBSなど、 InternetExplorer.Applicationオブジェクトを 使ってIEを操作して、WEBページを巡回する際。 ページのキャシュが貯まって処理が重くなるようなのですが。 処理中のキャシュを無効にする方法はありませんでしょうか？ ■参考 CPUの使用率やメモリは充分空きがあるのに ハードディスクの空き容量を用意していないため。 処理が重くなるようです。

VBやVBSなど、 InternetExplorer.Applicationオブジェクトを 使ってIEを操作して、WEBページを巡回する際。 ページのキャシュが貯まって処理が重くなるようなのですが。 処理中のキャシュを無効にする方法はありませんでしょうか？ ■参考 CPUの使用率やメモリは充分空きがあるのに ハードディスクの空き容量を用意していないため。 処理が重くなるようです。

プログラム関連かすらわからにのですが、質問させてもらいます。 以下の様な詳細が出てくるのですが、全くもって意味がわかりません。 具体的な解決方法が解る方いましたら、どうか対処法をよろしくお願いします。 Just-In-Time (JIT) デバッグを呼び出すための詳細については、 ダイアログ ボックスではなく、このメッセージの最後を参照してください。 ************** 例外テキスト ************** System.NullReferenceException: オブジェクト参照がオブジェクト インスタンスに設定されていません。 場所 aj.ab() 場所 aj.a(Message& A_0) 場所 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) 場所 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) ************** 読み込まれたアセンブリ ************** mscorlib アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3074 (QFE.050727-3000) コードベース: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll ---------------------------------------- FFXIAdvantage アセンブリ バージョン: 1.2.7.0 Win32 バージョン: 1.2.7.0 コードベース: file:///C:/FFXIAdvantage/FFXIAdvantage.exe ---------------------------------------- System.Windows.Forms アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3053 (netfxsp.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll ---------------------------------------- System アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3053 (netfxsp.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll ---------------------------------------- System.Drawing アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3053 (netfxsp.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll ---------------------------------------- System.Xml アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3074 (QFE.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll ---------------------------------------- System.Configuration アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3053 (netfxsp.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll ---------------------------------------- v7cpk8cx アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3053 (netfxsp.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll ---------------------------------------- mscorlib.resources アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3074 (QFE.050727-3000) コードベース: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll ---------------------------------------- System.Windows.Forms.resources アセンブリ バージョン: 2.0.0.0 Win32 バージョン: 2.0.50727.3053 (netfxsp.050727-3000) コードベース: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms.resources/2.0.0.0_ja_b77a5c561934e089/System.Windows.Forms.resources.dll ---------------------------------------- ************** JIT デバッグ ************** Just-In-Time (JIT) デバッグを有効にするには、このアプリケーション、 またはコンピュータ (machine.config) の構成ファイルの jitDebugging 値を system.windows.forms セクションで設定しなければなりません。 アプリケーションはまた、デバッグを有効にしてコンパイルされなければ なりません。 例: <configuration> <system.windows.forms jitDebugging="true" /> </configuration> JIT デバッグが有効なときは、このダイアログ ボックスで処理するよりも、 ハンドルされていない例外はすべてコンピュータに登録された JIT デバッガに設定されなければなりません。

Visual Basic 2008使用のプログラミング初心者です。 HTMLタグを大文字から小文字に置換するアプリケーションを作成中なのですが記述が間違っているのか、文字列を置換することが出来ません。 以下ソースです。 　　　　TextBox1.Text = Regex.Replace(TextBox1.Text, _ 　　　　　　"<([\/]?)([\w]+)", _ 　　　　　　"$1\L$2") http://dobon.net/vb/dotnet/string/regexreplace.html http://www37.atwiki.jp/emeditor/pages/50.html#id_6996d4b6 この二つのサイトを参考にやってみたのですが 置換を実行すると <BR>　→　\LBR> こうなってしまいます。 小文字に置換されるようにするにはどこを直せばよいのでしょうか。 教えてください、よろしくお願いします。

ボタンの配置について教えてください。 例えばWebブラウザのような、戻るボタンや検索バーは常に同じ位置に、ウィンドウを広げるとツールバーやリンクバーの余白だけが拡がるようにしたいのですが、 このようなことは実現可能でしょうか？ visual basic2008を使用しています。 よろしくお願いします。

VB.netを勉強しはじめたばかりなので教えて下さい。 お願いします。 フォームにSQLのデータをデータグリッドビューで読み出しました。 選んだデータを編集ボタンを押すと新しいフォームが出てきて編集できるようにしたいのですが、どのようにやれば良いのかよくわかりません。 SQLにあるデータはテーブルが一つだけあって テーブル名：test 列名1：namecode（主キー） 列名2：name これを読み出して編集したいだけです。 データグリッドビューには読みだせたのですが、ボタンを押した時に選ばれたデータが新たに表示されるフォームの中（テキストボックス）へセットしたいのですが、どのようにすれば良いのか教えてください。 わかりやすいサイトがあれば教えていただければ幸いです。 よろしくお願いいたします。

以前、VBAで[文字列を各セルに出力]という質問をさせていただいた者です。 現在SQLの結合条件を各セルに出力ということをやっています。 そこでは、結合条件の文字列を一文字ずつ見ていき、スペースごとに区切るという処理をしています。 そこで、各セルに出力していったのですが、テーブルに別名が付いていた時、そこにスペースがあるため、一つとして見られてしまい、同じセルには出力できません。 現在は以下の通りです。 論理　｜　　　　　｜　　｜　　　　　 ｜ 演算子｜テーブル名｜条件｜テーブル名 ｜ ―――――――――――――――――――― 　　　｜EMP　　　 ｜ I ｜EMP | EMP_1 ON |EMP.DEPTNO | = |EMP_1.DEPTNO| これを 論理　｜　　　　　｜　　｜　　　　　 ｜ 演算子｜テーブル名｜条件｜テーブル名 ｜ ―――――――――――――――――――― 　　　｜EMP　　　 ｜ I ｜EMP EMP_1 | ON |EMP.DEPTNO | = |EMP_1.DEPTNO| という風にしたいのです。 どなたかご教授ください。

Visual Basic 2005のIntelisenseが機能していないと思います。 VB用のIntelisenseが機能させるにはどうしたらいいですか？ Pu　ALT+→　無反応 Publicすら入力補助されないのです。助けてください。

エクセルユーザーフォームの日付操作を教えてください。 テキストボックスにスピンボタンで日付を入力し、ワークシートに転記するとシリアル値ではなくテキストで転記されます。ワークシートの日付処理に反映されませんので良い方法があれば教えてください。（mm/ddの入力でも良いですスピンボタンにこだわりません）

お世話になります。 現在、VB2008にて開発をしているのですが、DataGridViewの内容をボタンを押したタイミングで印刷できる仕様にしたのですが、DataGrdiViewの内容を取得するソースの書き方がわかりません。 どなたか分かる方いらっしゃましたらご教授ください。よろしくお願いします。

Visual Basic 2005のIntelisenseが機能していないと思います。 VB用のIntelisenseが機能させるにはどうしたらいいですか？ Pu　ALT+→　無反応 Publicすら入力補助されないのです。助けてください。

以前、VBAで[文字列を各セルに出力]という質問をさせていただいた者です。 現在SQLの結合条件を各セルに出力ということをやっています。 そこでは、結合条件の文字列を一文字ずつ見ていき、スペースごとに区切るという処理をしています。 そこで、各セルに出力していったのですが、テーブルに別名が付いていた時、そこにスペースがあるため、一つとして見られてしまい、同じセルには出力できません。 現在は以下の通りです。 論理　｜　　　　　｜　　｜　　　　　 ｜ 演算子｜テーブル名｜条件｜テーブル名 ｜ ―――――――――――――――――――― 　　　｜EMP　　　 ｜ I ｜EMP | EMP_1 ON |EMP.DEPTNO | = |EMP_1.DEPTNO| これを 論理　｜　　　　　｜　　｜　　　　　 ｜ 演算子｜テーブル名｜条件｜テーブル名 ｜ ―――――――――――――――――――― 　　　｜EMP　　　 ｜ I ｜EMP EMP_1 | ON |EMP.DEPTNO | = |EMP_1.DEPTNO| という風にしたいのです。 どなたかご教授ください。

はじめまして。 業務でVBAを使うことになり、勉強中なのですが、 動的な文字列をスペースごとに区切り、各セルに出力する方法がわかりません。 どなたかご教授ください。 str = "EMPNO = 1111 AND DEPTNO = 4444" という文字列を 演算子　フィールド　条件　比較値 －－－－－－－－－－－－－－－－－－ 　　　　EMPNO　　｜　＝　｜　1111 AND　｜ DEPTNO　 ｜　＝　｜　4444 となるようにしたいのです。

どなたか教えてください。 写真のようにデータが既に存在します。 (E列:L列)の値を、(H列)がゼロ値でも空セルでもない場合のみ、(P列)がゼロ値でも空セルでもない下行に「値のみ」移動させたいです。 (H列がゼロ値か空セルの場合は移動さない） E列からL列の値は1行目から始まり、約60行ごとにランダムで存在します。 例えば写真でいうと(H1)が1以上なので、(E1:L1)の値がP1からP5がゼロか空セルのためP6に移動となります。 どうぞよろしくお願いします。