VB.NET質問ｽﾚ (Part6)

1 名前：デフォルトの名無しさん [04/07/03 08:49] VB.NETの質問全般です 過去スレ VB.NET質問ｽﾚ (Part5) pc5.2ch.net/test/read.cgi/tech/1078134703/ VB.NET質問ｽﾚ (Part4) pc2.2ch.net/test/read.cgi/tech/1065269043/ 【老若】VB.net質問ｽﾚ【男女】 (Part3) pc2.2ch.net/test/read.cgi/tech/1056281084/ 【老若】VB.net質問ｽﾚ【男女】 (Part2) pc2.2ch.net/tech/kako/1043/10436/1043629429.html 【老若】VB.net質問ｽﾚ【男女】 pc2.2ch.net/tech/kako/1025/10258/1025848458.html 175 名前：デフォルトの名無しさん mailto:sage [04/07/21 00:55] >>166-173 皆さんのレスのおかげで理解できました。 Public Structure s Public a As Integer Public b As Integer Public Sub New(x As Integer,y As Integer) a=x b=y End Sub End Structure 176 名前：133 mailto:sage [04/07/21 08:57] あれ、133ですが、どなたも答えて下さらないのですね； ASP.NETがデバッグできないのは仕様なんでしょうか？ もいちど質問してみます・・・ >>133 177 名前：デフォルトの名無しさん mailto:sage [04/07/21 12:44] ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； ＞あれ、133ですが、どなたも答えて下さらないのですね； 178 名前：デフォルトの名無しさん [04/07/21 13:38] >>176 > ASP.NETがデバッグできないのは仕様なんでしょうか？ 仕様ではない。やり方がまずいだけ。 つーか、スレ違い。帰れ。 179 名前：デフォルトの名無しさん [04/07/21 14:01] 初めてバイナリを扱うんだけど、もともと１０バイトのファイルに バイナリで６バイト書き込んだ場合後ろ４バイトは元のデータが残った ままですよね？これを消して６バイトのファイルにしたい時は どうすればいいんですか？ 超初歩的なことなんだろうけど良い検索ワードが思い付かなかったので ここで質問させてもらいます 180 名前：133 mailto:sage [04/07/21 14:23] すまんかった。 そんなに煽らないでおくれ。 どのスレいったらよいのでしょう。 さすらってきま 181 名前：デフォルトの名無しさん [04/07/21 15:34] >>133 www.atmarkit.co.jp/fdotnet/index/bbs/dir74.html 回答だけじゃなく、質問も参考にすべし。 182 名前：デフォルトの名無しさん [04/07/21 15:46] >>179 まず、ヘルプで FileOpen 調べれ。 Output で Append じゃなければ上書きだ。 183 名前：133 mailto:sage [04/07/21 18:19] >>兄貴 (>>181) ありがとうございます!! 質問を参考に１から頑張ってきます！ ああ、暖かい・・・ 184 名前：デフォルトの名無しさん [04/07/21 19:37] おまえら、どうか教えてください。 コンソールアプリケーションで、マウスカーソルを画面右下に飛ばしたいんだけど、 以下のコードを実行するとなぜか、画面右上に飛んでしまうんだよね・・・。 ------------------------------------------------------------------------------------------ Module Module1 Public Declare Function SetCursorPos Lib "USER32" (ByVal x As Long, ByVal y As Long) As Long Sub main() Call SetCursorPos(1024, 768) End Sub End Module ------------------------------------------------------------------------------------------ 768のところは、どんな数値にしても同じ結果・・・。 なぜ？？ 185 名前：デフォルトの名無しさん [04/07/21 20:01] >>184 Long×、Integer○ 186 名前：デフォルトの名無しさん mailto:sage [04/07/21 20:14] 教えてください。 データベースにVariable、Dataというフィールドを作成しました。 例えばPHPの場合ですと、以下のような感じでVariableを変数名、 Dataをその値に設定できます。 while ($db->next_record()) { 　　${$db->f("Variable")} = $db->f("Data"); } これをVB.netで行うことは出来ないでしょうか？ ちなみに以下のような感じで処理しており、変数をデータベースに追加するごとに Caseを追加しなければならない状態です。 While OleRs.Read() 　　Select Case OleRs.Item("Variable") 　　　　Case "A" 　　　　　　A = "" & OleRs.Item("Data") 　　　　Case "B" 　　　　　　B = "" & OleRs.Item("Data") 　　　　・ 　　　　・ 　　End Select End While 187 名前：184 [04/07/21 20:45] >>185 すげー、解決した。 ありが�d 188 名前：デフォルトの名無しさん mailto:sage [04/07/21 20:52] >186 俺はPerl使いだが少なくともPerlではそういう使い方は推奨されないな。 PHPはそんなのを普通に使う奴が多いのか？ Perlでならハッシュ使えって言われるのが普通だな。 PHPは知らん。 VB.NETならHashTable使え。 189 名前：186 mailto:sage [04/07/21 21:14] >>188 自分で考えたもので、こんな感じのソースは本やネット上では見たことがありません。 具体的ににはSQL文でIDフィールドをWHEREして、必要な情報のみ取り出しています。 変数を簡単に管理できるし楽だなぁと思ったもので・・・ とりあえず、HashTableを勉強してみます。 ありがとうございました。 190 名前：デフォルトの名無しさん [04/07/22 00:40] >>162-164 どっちでしょうか？ できるの？　できないの？ 191 名前：デフォルトの名無しさん mailto:sage [04/07/22 00:42] >>190 いわゆる、Windowsネイティブなアプリの事なら、 VB.NETではできません。VC#も然り。 VC++なら可能 192 名前：デフォルトの名無しさん [04/07/22 00:42] .NETではVB6.0まであったコンボのメソッドAddItemは使えないのでしょうか？ それともどこかのクラスライブラリにありましたか？ コンボ名.Items.Addで処理そのものはできましたが。 193 名前：デフォルトの名無しさん mailto:sage [04/07/22 00:43] >>191 ありがとう。 194 名前：デフォルトの名無しさん mailto:sage [04/07/22 15:03] >>192 名称の統一で変更になったと思う メソッド名が変わることによる不利益は？？？ 195 名前：インスタント mailto:medaroter-school@mail.goo.ne.jp [04/07/22 16:31] 今、画像ソフトの製作をしているのですが、 拡大処理がうまくいきません。 画像処理といっても、ドット絵なんで、 ドット毎の色を認識させ、表示させるのでしょうが、 やりかたがよくわかりません。 素人みたいな質問ですいませんが、できるかた教えていただけませんか？ 196 名前：デフォルトの名無しさん mailto:sage [04/07/22 17:50] >>195 StrechBltでぐぐれ 197 名前：デフォルトの名無しさん [04/07/22 18:24] Excelのワークブックからユーザ定義プロパティの値を取得しようと試みているのですが、 VBAと同じように取れずに困っています。 Excel-VBAだと Dim prop as DocumentProperties set prop = ActiveWorkbook.CustomDocumentProperties でプロパティリストを得ることができるのですが、 VB.NETで同じように Dim prop as Excel.DocumentProperties prop = appExcel.ActiveWorkbook.CustomDocumentProperties とすると、実行時にキャストが誤っているというエラーが出てきます。 オブジェクトブラウザで確認すると、CustomDocumentPropertiesの戻り値型がObject型に なっていて、明らかにVBAの方と違っているのですが、これはこういう仕様で、 VB.NETでExcelワークブックのユーザ定義プロパティは取得できないのでしょうか？ 方法をご存知の方、ぜひ教えてください。 198 名前：デフォルトの名無しさん mailto:sage [04/07/22 18:32] 実験してないので正確じゃないかもしれないが Object型で戻ってるものをDocumentProperties型に直接代入することは出来ないので Ctype(戻り値,DocumentProperties)でキャストしなおしてみる 199 名前：デフォルトの名無しさん [04/07/22 18:37] TextBox から派生したコントロールのクラスを作ってるんですが、そのクラスにプロパティを 追加しました。 で、いざその作成したコントロールを使おうとした場合、VisualStudio の画面でプロパティを 設定する場合、０とか１とかの設定値そのものを設定したのですが、これを標準のプロパティ である ImeMode のようにコンボボックスによる選択式にすることってできますでしょうか？ ご存知の方がいらっしゃいましたらご教授願えませんでしょうか？ 200 名前：デフォルトの名無しさん mailto:sage [04/07/22 18:40] >>197 CType で明示的にキャストする必要があったんでないかな。 これでだめならソース出して見れ。こっちで確認すっから。 201 名前：197 [04/07/22 18:40] >>198 レスどうもです。 prop = CType(appExcel.ActiveWorkbook.CustomDocumentProperties, Excel.DocumentProperties) で試してみましたが、やはり同じ実行時のキャストエラーが出てきます。 オブジェクトの生成型がDocumentProperties型じゃない感じです。 もし、VB.NETから、Excelのマクロのfunctrionを呼び出せればExcel-VBA側で取得したデータを 戻すようにできるのですが、呼び出すはできましたっけ？ 202 名前：197 [04/07/22 18:46] >>200 レスどうもです。 やろうとしていることは、ユーザ定義プロパティの値をすべて取得することで、 コードは次のような形です。 実行の前提条件としてExcelは起動済みで、そのアプリの参照変数がappExcelです。 Dim WB As Excel.Workbook = appExcel.ActiveWorkbook　'appExcelはExcelアプリの参照変数です Dim DPS As DocumentProperties Dim DP As DocumentProperty DPS = WB.CustomDocumentProperties　←ここで実行時にキャストエラーが出る For Each DP IN DPS プロパティ値を取得するコード Next 203 名前：デフォルトの名無しさん mailto:sage [04/07/22 18:56] >>202 support.microsoft.com/?kbid=303294 PIA を使わんとだめかも。 204 名前：174 mailto:sage [04/07/22 19:00] 174だけどわかる人いない？ VB6だとカスタムドローでやるみたいなんだけど･･･ .NETではどうやってやるの？ 205 名前：デフォルトの名無しさん [04/07/22 19:05] ていうかオーナードローが理解できてるんなら VB6でもNETでも同じ事だと思うんだけど。。。 206 名前：174 [04/07/22 19:23] 同じ用にやればいいの？ WindowsProcでカスタムドロー･･･っていう感じ？ タブコントロールだと標準でオーナードローがあるんだよね？ でもListViewだと見当たらないんだよな〜 見当外れの事いってたらスマソ 207 名前：デフォルトの名無しさん mailto:sage [04/07/22 19:39] フローティングツールバーは売られているみたいですが、 MFCみたいに(Visual C++6.0でウィザードが作ってくれるみたいに) 標準で提供されてないですか? 208 名前：デフォルトの名無しさん mailto:sage [04/07/22 20:48] >>198>>200 実行時にキャストのエラーガ出るんだからキャスト自体は実行しようとしてる。 # Option Strict Off の場合はこれでいける。 問題は実際に返されるオブジェクトの実行時型が違ってしまってるってことだな。 メソッドの戻り値の実行時型を確認したければ、 とりあえずObject型に代入しといてウォッチとかで見れると思う。 まあ、代入せんでもウォッチ式にそのまま書いてもいいが。 209 名前：デフォルトの名無しさん [04/07/23 04:50] BitBlt関数を使いたいのですが、VB.NETではPictureBoxのハンドルを 直接取得できないんでしょうか？ 210 名前：デフォルトの名無しさん mailto:sage [04/07/23 07:21] >>209 そのまんま、Handleってプロパティあるじゃん。 211 名前：デフォルトの名無しさん mailto:sage [04/07/23 07:38] >>210 それ違うだろ 212 名前：197 [04/07/23 08:14] >>203 >>208 CustomDocumentPropertiesが返してくるオブジェクトの型はSystem.__ComObjectという 型で、本来の型をラップしているようで、結局どの型をラップしているのかはわからなかったのですが、 強引にSystem.__ComObject型のままプログラムを組みました。 　Dim WB As Excel.Workbook = appExcel.ActiveWorkbook 　Dim DPS As Object 　DPS = WB.CustomDocumentProperties 　Trace.WriteLine(DPS.Item(1).Name) なんか納得できないけど、作業が終わったら、この変なラッパクラスをじっくり調べたいと思います。 レスくれた方達、どうもでした！ 213 名前：デフォルトの名無しさん mailto:sage [04/07/23 10:53] theSpokeを買って書類もマイクロソフトに郵送したのですが未だにシリアルキーがもらえませんが どうしたらいいのでしょうか。 214 名前：デフォルトの名無しさん [04/07/23 11:53] MSに連絡するのが一番 215 名前：デフォルトの名無しさん mailto:sage [04/07/23 12:26] >>213 エラースキャン、デフラグ、エロ動画の削除 この辺をやって待ちわびるよろし 216 名前：名無しさん＠お腹いっぱい。 [04/07/23 17:15] IMEがONのテキストボックス(Text1)にフォーカスがある状態でキーを押した場合 Text1_KeyDownのe.KeyCodeがKeys.ProcessKeyだということはすでにIMEが処理済 なのだと思うのですがIMEが処理する前にイベント補足して送られる仮想キーコードを変更することは可能でしょうか？ バカバカしい話なのですがキーボード左上の1,2,3・・・のキーをあ、い、う・・・に代えたいという要望に答えるためです。 そもそも考えが間違ってるとは思いますが方法があればご教授ください。 217 名前：216 mailto:sage [04/07/23 18:03] 我ながら根本的に無理な気がしてきました・・・ 218 名前：デフォルトの名無しさん mailto:sage [04/07/23 20:30] キーフック使え 219 名前：デフォルトの名無しさん mailto:sage [04/07/23 20:47] 鼻フックのがいいよ。 220 名前：デフォルトの名無しさん mailto:sage [04/07/23 21:07] システムを起動時にネット(FTP,Webにアップしたファイル)に接続して、 常に最新版をチェックし、最新版なら自動でダウンロードし、 アップデートするような仕組みって難しいのでしょうか。 アップデートファイルをダウンロードしてシステムが起動していない時に 実行(システムファイル上書き)するようなものは一応出来たのですが。 システムファイルを使用中に上書きすることが出来ないので 自動アップデートの仕組みが不思議です。 221 名前：デフォルトの名無しさん mailto:sage [04/07/23 21:51] >>220 .NET Application Updater Component 222 名前：220 mailto:sage [04/07/23 22:09] >>221さん、ありがとうございました。 223 名前：デフォルトの名無しさん mailto:sage [04/07/23 23:12] たまに自動アップデートすると再起動要求されて そのまま二度と立ち上がらなくなることあるよね 224 名前：デフォルトの名無しさん mailto:sage [04/07/23 23:19] .NET板 bbs.2ch2.net/dotnet/ 225 名前：デフォルトの名無しさん [04/07/23 23:32] >>223 割れXPですか？ 226 名前：デフォルトの名無しさん [04/07/24 15:11] WebBrowserで、ボタンを押すと前のページに戻るっていうのは どのように作れば出来ますか？ あと、WebBrowserについて詳しく書かれているところありますか？ 227 名前：デフォルトの名無しさん mailto:sage [04/07/24 16:15] Visual Studio .NETにて、Officeアプリケーションのイベントを 拾って特定の処理を行うようなプログラムを作ろうとしています。 イベント監視を行うようなクラスってありますでしょうか？？ Main関数にて、Application.Runでオブジェクトをnewしないとすぐに プログラムが終わっちゃうし、Application.RUnを使う場合は、 Formクラスを継承したオブジェクトを作成しないとだめだし、 Formクラスを継承したオブジェクトを作ると、画面にフォームが 表示されてしまいます。。。 228 名前：デフォルトの名無しさん mailto:sage [04/07/24 17:50] >>226 GoBackで戻れるのではないかと。 >>227 例えばどんなイベント？ フォームにオブジェクトとして追加ではなく、 そのアプリケーションでおきたイベントを取りたいのであれば フックを作んなきゃ駄目でしょう。 229 名前：227 mailto:sage [04/07/24 18:46] >>228 Visio2003でシェイプが図面に配置されたイベントや、シェイプが図面が 削除されたイベントです。 フックですか！初めて聞く単語です。 調べてみます。どうもです！ 230 名前：デフォルトの名無しさん mailto:sage [04/07/24 21:01] >>227 フォームを指定しないRunもあるんだが… 231 名前：デフォルトの名無しさん mailto:sage [04/07/24 23:02] >>227 Runメソッドのオーバーロードリスト見れ。 232 名前：デフォルトの名無しさん [04/07/25 02:00] >>228 あ、GoBackですか。ありがとうございます！ というわけでやってみたのですが、これ以上進めないときに（戻れないときも） 進むボタンを押すとエラーが起こってしまいます。どう対処すればよいのでしょうか？ Private Sub Button2_Click (略) Handles Button2.Click AxWebBrowser1.GoForward() End Sub 233 名前：デフォルトの名無しさん mailto:sage [04/07/25 02:04] Try 　AxWebBrowser1.GoForward() Catch ex as Exception Messagebox.show("すすめませんよ") End Try 234 名前：デフォルトの名無しさん mailto:sage [04/07/25 02:07] >>232 こんなんどうよ？C#だけど。 protected void AxWebBrowser_CommandStateChange(object sender, DWebBrowserEvents2_CommandStateChangeEvent e) { if(e.command.Equals(SHDocVw.CommandStateChangeConstants.CSC_NAVIGATEBACK)) { MenuItem miView = MenuMain.MenuItems[2]; MenuItem miGoTo = miView.MenuItems[3]; miGoTo.MenuItems[0].Enabled = e.enable; TbBack.Enabled = e.enable; } if(e.command.Equals(SHDocVw.CommandStateChangeConstants.CSC_NAVIGATEFORWARD)) { MenuItem miView = MenuMain.MenuItems[2]; MenuItem miGoTo = miView.MenuItems[3]; miGoTo.MenuItems[1].Enabled = e.enable; TbForward.Enabled = e.enable; } 235 名前：デフォルトの名無しさん [04/07/25 02:31] >>234 凄いっ！！でもC#ですか…残念です。 それをVBに変換するソフトとかありませんでしたっけ？ 236 名前：デフォルトの名無しさん mailto:sage [04/07/25 02:49] こんなもんC#の文法知らなくても想像で直せるだろ。 237 名前：234 mailto:sage [04/07/25 04:05] 分からんようなんで、VB.NETに直してみた。 Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick If e.Button Is Me.GoBackButton Then Me.AxWebBrowser1.GoBack() ElseIf e.Button Is Me.GoForwardButton Then Me.AxWebBrowser1.GoForward() End If End Sub Private Sub AxWebBrowser1_CommandStateChange(ByVal sender As System.Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_CommandStateChangeEvent) Handles AxWebBrowser1.CommandStateChange If e.command = SHDocVw.CommandStateChangeConstants.CSC_NAVIGATEBACK Then Me.GoBackButton.Enabled = e.enable ElseIf e.command = SHDocVw.CommandStateChangeConstants.CSC_NAVIGATEFORWARD Then Me.GoForwardButton.Enabled = e.enable End If End Sub 初めてVB系書いたんで、変なとこがあったら無視してくれ。 GoBackButtonとGoForwardButtonは、コンストラクタでEnableをFalseにしとく。 238 名前：デフォルトの名無しさん [04/07/25 12:18] >>237 このとおりにやってみました。 そしたら戻れないようになりました！ありがとうございます！ ですが、戻るボタンを押しても戻りません。 Me.AxWebBrowser1.GoBack() を AxWebBrowser1.GoBack() にしても駄目でした… 239 名前：デフォルトの名無しさん mailto:sage [04/07/25 12:27] >>238 .NET 1.1だよね？ うちでは動作するんで、ソースさらすよ。 www.asahi-net.or.jp/~ec6k-mtmr/VBnet_BrowserTest.zip 240 名前：eko [04/07/25 12:43] 質問です。 現在、スプレッドシートを自作をしているのですが それをフォーム１に貼り付けて、右クリックしてコンテキトにデザイナと 言うメニューを追加して、選択するとフォーム２を立ち上げて （ここまでは何とかできました・・。） そのフォーム２からフォーム１のデザイン（プロパティ）を変更する方法が 判りません。 ちなみにスプレッドはpaintで描画してます。 拙い説明ですが、ご存知の方居ないでしょうか？？ よろしくお願いします。 241 名前：デフォルトの名無しさん [04/07/25 16:38] 242 名前：デフォルトの名無しさん [04/07/25 16:49] ヘ_ヘ ミ・・ ミ ということにしたいのですね :) ( ° )〜 243 名前：233 mailto:sage [04/07/25 16:50] ｽﾙｰかよ・・・ 244 名前：デフォルトの名無しさん mailto:sage [04/07/25 17:36] >>243 なんだ？つっこんで欲しいのか？ 245 名前：デフォルトの名無しさん [04/07/25 21:45] >>239 何でなんですかね。おかしいところは無かった様な気がするのですが。 でも、ほかの事をして何とかなりました。 いろいろありがとうございました！！！ 246 名前：デフォルトの名無しさん [04/07/25 22:10] Textboxコントロールの、 Textプロパティにて、 その桁数をあらわすにはどうすればいいでしょう？ 例えば、TextBox1というテキストボックスの値（MAX10桁）で、 5桁だけ入力されていたらなにか処理をする場合、 If TextBox1.Text=（5桁）Then 　　　　【処理】 End If 教えてください。お願いします。 247 名前：デフォルトの名無しさん mailto:sage [04/07/25 22:18] Lengthだっけかな。ってかマニュアル見ろ。 248 名前：デフォルトの名無しさん mailto:sage [04/07/25 22:46] >>246 普通に、Len() で OK。 249 名前：デフォルトの名無しさん mailto:sage [04/07/25 22:47] 個人的にLenはお奨めしない。ま、別にいいんだけどね。 250 名前：デフォルトの名無しさん [04/07/25 23:58] またなんですが、 WebBrowserで読み込みを中止するにはどうしたらいいのでしょうか？ 251 名前：デフォルトの名無しさん mailto:sage [04/07/26 00:15] >>250 Me.AxWebBrowser1.Stop() のことなのか？ 252 名前：デフォルトの名無しさん [04/07/26 00:22] >>251 それです、それ！ ありがとうございました！！ 253 名前：デフォルトの名無しさん mailto:sage [04/07/26 00:30] 分からん部分はまとめて書いてくれ。 なんか多そうだし。 254 名前：↑ mailto:sage [04/07/26 00:45] 嫌味とか冷やかしで言ってるワケじゃないので。 255 名前：デフォルトの名無しさん mailto:sage [04/07/26 09:20] >>240 俺はデザイナフォームに一時ファイル名を渡してやってるよ。 デザイナ起動時に対象のコントロールの内容を一時ファイルに保存してデザイナ側 で読み込み、変更を反映する場合は、逆にデザイナのコントロールの内容を一時ファイル に保存するってな感じで。 あと、変更の反映するかの確認が必要なければ、参照渡しのコントロールを、デザイナに セットすれば完全な同期がとれると思う。 はずしてたらｽﾏｿ。 256 名前：デフォルトの名無しさん [04/07/26 10:24] >>254 じゃあ、お言葉に甘えて… WebBrowserで新しいウィンドウが出てくるとそのページはIEで開かれちゃうじゃないですか。 そのページを自作ブラウザで開かせるのはどうしたらいいのですか？ 257 名前：デフォルトの名無しさん mailto:sage [04/07/26 11:49] >>256 こんな感じで。 Private Sub AxWebBrowser1_NewWindow(ByVal sender As System.Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NewWindow2Event) Handles AxWebBrowser1.NewWindow2 Dim form2 As New Form1 e.ppDisp = form2.AxWebBrowser1.Application form2.Show() End Sub 258 名前：デフォルトの名無しさん [04/07/26 12:54] 質問です。 メモ帳を作成したのですが、 テキストファイルからプログラムを実行した際に、 テキストファイルを読み込む処理の仕方が分かりません。 プログラムをexeから実行したのかファイルから実行したのか判別する 方法は無いのでしょうか。 259 名前：デフォルトの名無しさん mailto:sage [04/07/26 13:13] >>258 質問の意味がいまいち分からないが、 Command関数を調べると、いいかも知れんね。 260 名前：258 mailto:sage [04/07/26 14:13] >>259 サンクス！ 261 名前：デフォルトの名無しさん [04/07/26 15:44] >>257 本当に助かりました！ ありがとうございました！！！！！！！ 262 名前：只今勉強中 mailto:sage [04/07/26 16:36] Public Sub New(ByVal idcarF1 As Integer) MyBase.New() InitializeComponent() idcarF2 = idcarF1 Dim filterIdcarF2 As integer 'Dim filterIdcarF3 As integer filterIdcarF2 = idcarF2 'filterIdcarF3 = 5 UpdateDatabase() 'SQL文 SqlDataAdapter1.SelectCommand.CommandText = "SELECT * FROM excol_data " _ & "WHERE car_id LIKE '" & filterIdcarF2 & "'" 'データセットを初期化して、データーアダプターからデーターを読み込む DsExcol1.Clear() SqlDataAdapter1.Fill(DsExcol1) End Sub ウィンドウを開くと同時にfilterIdcarF2を使って、データーを絞り込むという作業を作りました。さらに ”filterIdcarF3 = 5"で"excol_cd"の値が"5"のものを絞り込みたいのですが、ＳＱＬ文の所の書き方 をどなたか教えていただけないでしょうか？ 263 名前：デフォルトの名無しさん mailto:sage [04/07/26 17:34] excol_cd の型は？それがないと正確に答えられない。 たぶんSQLスレ行けって言われると思うけど。 264 名前：デフォルトの名無しさん mailto:sage [04/07/26 17:57] >>262 F2で絞り込んだものをさらにF3で絞り込むのか F2とF3を同時に発行して絞り込むのか あとInteger型のものに対してLike（あいまい）で検索かけてるけど これはこれでいいの？ 265 名前：デフォルトの名無しさん mailto:sage [04/07/26 18:24] >>264 car_id が Integer型ってどうして分かるの？ 266 名前：262 mailto:sage [04/07/26 18:39] すいません、もう右も左もわかんなくて、本を引き引きやってる状態で・・・。 excol_cdもcar_idも整数型です。 あと、Ｆ２で絞り込んだものをさらにＦ３で絞り込みたいのです。自動車の種類別 のコードがＦ２で、外装の色がＦ３で、この二つで絞り込んで、内装の色を検索し たいので・・・。 Likeがあいまい検索だというのは、いまスレを見て始めて知ったので外してみたら、 SqlDataAdapter1.Fill(DsExcol1)の行で止まってしまい、ＬＩＫＥの代わりを今探して ＳＱＬのサイトとニラメッコしています。 267 名前：262 mailto:sage [04/07/26 19:13] SqlDataAdapter1.SelectCommand.CommandText = "SELECT * FROM excol_data WHERE car_id = 18" これだ１８番のcar_idを持つものが表示されるのですが SqlDataAdapter1.SelectCommand.CommandText = "SELECT * FROM excol_data WHERE car_id = filterIdcarF2" だと動いてくれないようです・・・。なにか書きようがあるのでしょうか？ 268 名前：デフォルトの名無しさん mailto:sage [04/07/26 19:58] >>267 困ってるのはわかるが、落ち着いて VB の入門書と SQL の入門書を読んだ方が 結局は早いと思うよ。 269 名前：デフォルトの名無しさん mailto:sage [04/07/26 21:50] SqlDataAdapter1.SelectCommand.CommandText = "SELECT * FROM excol_data WHERE car_id = " + filterIdcarF2 + " and car_id = " + filterIdcarF3 + " and excol_cd = 5" 270 名前：デフォルトの名無しさん mailto:sage [04/07/26 22:52] VBAって次に VBA.NET になるんですかね。 271 名前：デフォルトの名無しさん mailto:sage [04/07/27 00:42] String の配列に入っているテキストデータを TextBox で編集しようと思って， Dim List(200 ) As String で， TextBox1.Text = "" For a=0 To List.GetUpperBound(0) TextBox1.text &= List(a) & vbCrLf Next のようにしましたが，編集後のテキストデータを再び Stringの配列に 戻すところでつまりました． このような，何かのプログラム内での プチエディタ なんかは， どういう風に実現するのが良いのでしょうか？ 272 名前：デフォルトの名無しさん mailto:sage [04/07/27 00:58] >>271 配列をそのままTextBox.Linesプロパティに入れて、編集後にTextBox.Linesをそのまま配列に戻すのは駄目なん？ 的外れだったらｽﾏｿ。 273 名前：デフォルトの名無しさん mailto:sage [04/07/27 01:22] >>272 おおっ． そんなものがあったのか． ご教授ありがとうございました． テキストデータの行数がいろいろ変わるので， やっぱり For文 で回したほうがいいみたいでした． とにかく解決．ありがとうございました． 274 名前：デフォルトの名無しさん mailto:sage [04/07/27 13:35] >>272 さんのおかげで少し進んだのですが，，， 今度は，TextBoxのカーソル位置を表示してみようと思いまして，，で， 　Cur = TextBox1.SelectionStart 　If Cur <= 0 Then 　　y = 1 : x = 1 　Else 　　c = 0 : y = 0 　　Do 　　　x = Cur - c 　　　c += TextBox1.Lines(y).Length + 2 　　　If Cur < c Then Exit Do 　　　y += 1 　　Loop 　　For xx = x - 1 To 0 Step -1 　　　If AscW(TextBox1.Lines(y).Substring(xx, 1)) >= 256 Then x += 1 　　Next 　　y += 1 : x += 1 　End If 　Label1.Text = y & "行 " & x & "桁" こんなんになってしまったのですが，これだと 各行の文字数を先頭から 足して来たり，各文字が全角かどうか一文字ずつ調べたりしてて， TextBox の文字数が多くなると遅そうですよね． 他にスマートな方法があれば教えていただきたいのです． 275 名前：デフォルトの名無しさん [04/07/27 13:45] picture clip controlは.NETには入ってないのでしょうか？

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef