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

VBプログラマ質問スレ ..

773:デフォルトの名無しさん
10/05/17 18:03:02
趣味で古いVB使うってどんな状況なんだ？

774:デフォルトの名無しさん
10/05/17 20:02:03
>>773
使わなくなったＶＢを貰ったとかいうのはどうか。
あとは昔からのＢＡＳＩＣはよく知ってるんだが、.NETの具合にクラクラしたとかどうか。

775:デフォルトの名無しさん
10/05/17 20:35:32
>>576
>>579

776:デフォルトの名無しさん
10/05/17 21:29:52
質問させて下さい。
VBScriptを使用して開発を行う際、
何のエディタを使っていらっしゃいますか。

ASP(VBScript+HTML)で開発することになったのですが、
使用するエディタを何にしようか迷っています。
詳しい方がいらっしゃいましたら教えていただきたいです。

※候補としてはVisual web developer 2008 expressを考えています。

777:デフォルトの名無しさん
10/05/17 22:12:39
趣味で家計簿みたいなのを作るならExcelVBAがいいと思うよ。
表みたいなやつはもともとデフォルトでついてるし(Excelだから)
結構いろんなこともできる。
VBで画面作ってデータベースに接続して・・・・となるとそりゃ
趣味の範囲としては難しいよ。

778:デフォルトの名無しさん
10/05/19 01:33:39
複数のテキストボックスをテキスト形式で保存するプログラムを作成しています。
なんとか「保存」「読み込み」のボタンを設置し異常なく作動しました。
ここまではいいのですが、よく考えたら起動時に自動で読み込んでくれると
便利だと思うのですが、検索してもなかなか出てきません。
お詳しい方ご教授頂けると嬉しいです。宜しくお願い致します。

779:デフォルトの名無しさん
10/05/19 01:36:24
Form_Loadで処理すればいいんじゃないの？いや、俺も初心者レベルだけど

780:デフォルトの名無しさん
10/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
10/05/19 01:55:47
>>780も俺のレスだけど、>>779,780は無かったことにして欲しい。俺の勘違いだった

782:778
10/05/19 09:47:49
すいません追加事項を
起動時に自動で読み込み、なおかつ参照ファイルが存在しなければ
作成する。を追加でお願いします。

783:デフォルトの名無しさん
10/05/19 15:18:27
>>758
マジで？　おれも数ヶ月前に同じようなこと聞いて同じような回答をもらったが、あきらめて
Ratocのやつに買い換えたよ。
もう一度試してみる価値ありかもな。

784:デフォルトの名無しさん
10/05/20 00:30:58
>>782
よくわからんけど、どういうことなの？

785:デフォルトの名無しさん
10/05/20 00:38:19
自分で考えるつもりはなくて
人に作って欲しいってことじゃね？ｗ

786:デフォルトの名無しさん
10/05/20 00:46:35
MDIフォームで作ってんのか？

787:デフォルトの名無しさん
10/05/20 00:54:11
>>778の言いたいことを少しずつみんなで推理していこう
まずこれ
＞複数のテキストボックスをテキスト形式で保存するプログラムを作成しています

う～ん・・・
複数のテキストボックスをテキスト形式で保存？？？
これは・・・・テキストボックスの内容をテキスト形式のファイルに保存してるってことなのかな？
１つのテキストボックスに対してファイルを一つ用意するのかなぁ・・？

788:デフォルトの名無しさん
10/05/20 22:24:38
age

789:デフォルトの名無しさん
10/05/21 00:50:30
フォームロード時にファイルシステムオブジェクト使えば簡単に処理できます

790:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/05/21 17:03:55
角かっこを私は知らない

792:デフォルトの名無しさん
10/05/21 17:17:07
かっこわるい

793:デフォルトの名無しさん
10/05/21 17:22:47
ひとまずwinmgmtsでググってみたよ
おれには分からない