VBプログラマ質問スレ（6.0以前） Part55

1 名前：デフォルトの名無しさん [2009/07/13(月) 21:12:36 ] ここは Visual Basic 〜6.0 の質問スレです。 質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、 「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。 VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。 ○ 質問者の心得 　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。 　二．VBScript、インストーラーなどはこのスレでＯＫ。 　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。 　四．荒らしは相手しない。 ○ 回答者の心得 　一．答えられない質問は無駄に罵倒せずスルー。無理するな。 　二．代用法を強制しない。 　三．回答する上で必須ではない情報をむやみに聞き返さない。 　四．荒らしは相手しない。 　五．VB情報募集中。 　六．回答は質問者が理解できるよう具体的に。 MSDN Online Japan ホーム 　www.microsoft.com/japan/msdn/default.asp Visual Studio 6.0 Service Pack 6 　msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx Google 　www.google.co.jp/ ※「まず自分で調べる」クセを身につけよう。 778 名前：デフォルトの名無しさん [2010/05/19(水) 01:33:39 ] 複数のテキストボックスをテキスト形式で保存するプログラムを作成しています。 なんとか「保存」「読み込み」のボタンを設置し異常なく作動しました。 ここまではいいのですが、よく考えたら起動時に自動で読み込んでくれると 便利だと思うのですが、検索してもなかなか出てきません。 お詳しい方ご教授頂けると嬉しいです。宜しくお願い致します。 779 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 01:36:24 ] Form_Loadで処理すればいいんじゃないの？いや、俺も初心者レベルだけど 780 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 01:47:47 ] Private Sub Form_Load() Dim f As New FileSystemObject Dim t As TextBox For Each t In Text1 t.Text = f.OpenTextStream("Data" & t.Index & ".txt").ReadAll() Next End Sub こんな感じ？ 781 名前：779 mailto:sage [2010/05/19(水) 01:55:47 ] >>780も俺のレスだけど、>>779,780は無かったことにして欲しい。俺の勘違いだった 782 名前：778 [2010/05/19(水) 09:47:49 ] すいません追加事項を 起動時に自動で読み込み、なおかつ参照ファイルが存在しなければ 作成する。を追加でお願いします。 783 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 15:18:27 ] >>758 マジで？　おれも数ヶ月前に同じようなこと聞いて同じような回答をもらったが、あきらめて Ratocのやつに買い換えたよ。 もう一度試してみる価値ありかもな。 784 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 00:30:58 ] >>782 よくわからんけど、どういうことなの？ 785 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 00:38:19 ] 自分で考えるつもりはなくて 人に作って欲しいってことじゃね？ｗ 786 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 00:46:35 ] MDIフォームで作ってんのか？ 787 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 00:54:11 ] >>778の言いたいことを少しずつみんなで推理していこう まずこれ ＞複数のテキストボックスをテキスト形式で保存するプログラムを作成しています う〜ん・・・ 複数のテキストボックスをテキスト形式で保存？？？ これは・・・・テキストボックスの内容をテキスト形式のファイルに保存してるってことなのかな？ １つのテキストボックスに対してファイルを一つ用意するのかなぁ・・？ 788 名前：デフォルトの名無しさん [2010/05/20(木) 22:24:38 ] age 789 名前：デフォルトの名無しさん mailto:sage [2010/05/21(金) 00:50:30 ] フォームロード時にファイルシステムオブジェクト使えば簡単に処理できます 790 名前：デフォルトの名無しさん mailto:sage [2010/05/21(金) 16:01:21 ] strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\wmi") Set colitem = objWMIService.ExecQuery _ ("Select * from WmiMonitorID") For Each objitem in colitem Wscript.Echo Wscript.Echo "シリアル: "& objitem.SerialNumberID[] Next win7ですが、シリアル採集できるはずですが、ステートメントの末尾が不正エラー出ます。 YearOfManufactureとかは採集できますが、[]のなかになにかいれないとだめなんでしょうか。 791 名前：デフォルトの名無しさん [2010/05/21(金) 17:03:55 ] 角かっこを私は知らない 792 名前：デフォルトの名無しさん mailto:sage [2010/05/21(金) 17:17:07 ] かっこわるい 793 名前：デフォルトの名無しさん mailto:sage [2010/05/21(金) 17:22:47 ] ひとまずwinmgmtsでググってみたよ おれには分からない

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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