VB初心者質問スレPart2

■掲示板に戻る■ ■過去ログ倉庫めにゅーに戻る■

1 名前： デフォルトの名無しさん 投稿日： 2001/05/25(金) 21:20: 最近単発スレが目立ってきたので取りあえず作っときます。
前スレ：
http://piza.2ch.net/test/read.cgi?bbs=tech&key=968328471&ls=50
2 名前： 無責任な名無しさん 投稿日： 2001/05/25(金) 21:26: VBのCollectionって
ガーベッジコレクションだと
思っちゃってよいのでしょうか？
3 名前： デフォルトの名無しさん 投稿日： 2001/05/25(金) 22:15: そのとおりです（ウゾ)
4 名前： デフォルトの名無しさん 投稿日： 2001/05/25(金) 23:12: うむ、そのとおり（う゛ぞ）
5 名前： デフォルトの名無しさん 投稿日： 2001/05/26(土) 00:58: >>2
そうであるとも言えるし、そうではないとも言える。
つまりガベージコレクトそのものではないが
ガベージコレクトの対象にはなる。
6 名前： デフォルトの名無しさん 投稿日： 2001/05/28(月) 13:00: 失礼します。
ListViewなんですけど、リスト内でDblClickしてクリックした場所の
値を取得して、別フォームのTextBoxに格納するには
どうすればいいんでしょうか？
何か使うコマンド等がありましたら、教えてください。お願いします。
(実は初心者なのでソースコード付ならとてもありがたいです。)
7 名前： デフォルトの名無しさん 投稿日： 2001/05/28(月) 14:27: すいません。テキストボックスの中身の文字列を
iniファイルに保存したり読み込みしたりしたいのですが、
どのようにすればよいのでしょうか。

よろしくお願いします。
8 名前： デフォルトの名無しさん 投稿日： 2001/05/28(月) 17:37: >>7
これ見れ
ttp://www-haradalb.ise.aoyama.ac.jp/stu98/hiroyuki/vb/other/file/file06.html
9 名前： デフォルトの名無しさん 投稿日： 2001/05/28(月) 19:34: よろしくお願いします。

複数のプロジェクトから参照できる共通モジュールを作りたいのですが
どうしたらよいのでしょう？

同じフォルダにプロジェクトを二つ作りました。
プロジェクトグループで二つのプロジェクトを開きました
共通モジュールをどちらのプロジェクトからも
開きますと、
ファイルが更新されている可能性が、、、
と表示されます。
どうしたらよいでしょうか？
10 名前： 印刷するソフトを 投稿日： 2001/05/28(月) 22:09: 作っています。
プリンターを選ぶには、for文とprintersコレクションの組み合わせで
実に簡単にできることがわかりました。

ところが、adobe acrobatを出力先に選択したとき、
printer.print "なになに" を実行させると、ファイルの保存先選択ダイアログが現れます。
ここでキャンセルボタンを押すと、エラーが出てしまいます。

このエラーを回避させる方法はないでしょうか？
手段は問いません。
11 名前： デフォルトの名無しさん 投稿日： 2001/05/28(月) 22:13: >>10
そのエラーを回避したければ
今すぐにそのプログラムを破棄しなさい。
12 名前： デフォルトの名無しさん 投稿日： 2001/05/28(月) 22:21: >11
Acrobat　SDK　に書いてますよ。確か、レジストリをいじるんだったと
思いますが（もちろんAPIからいじってね）。
昔やったけど忘れた。
13 名前： デフォルトの名無しさん 投稿日： 2001/05/28(月) 22:50: >>10
on error ハンドラでそのエラー番号のみ
何も表示しなければいい。
14 名前： 印刷するソフトを 投稿日： 2001/05/28(月) 23:20: >>13

ありがとうございまーす。
コーディングは自力でやってみます！
15 名前： 12 投稿日： 2001/05/29(火) 01:32: >14
すまん、SDKのはファイルの保存先選択ダイアログを出現させない方法だった。
16 名前： デフォルトの名無しさん 投稿日： 2001/05/29(火) 03:58: 眠れない。。。
>>6
Private Sub ListView1_DblClick()
　　Text1.Text = ListView1.SelectedItem
End Sub

>>9
？。同時に開くな
17 名前： ちゃっぴー 投稿日： 2001/05/29(火) 06:20: ど初心者ですんません（汗

フォームにテキストボックスを１つ作って、
テキストボックスに適当なファイルとＤ＆Ｄすると、
テキストボックス内にＤ＆Ｄしたファイルのパスを表示する
というものを作りたいのですが、
どうすればいいのかどうにもこうにも（Ｔ－Ｔ
18 名前： 無責任な名無しさん 投稿日： 2001/05/29(火) 08:29: Private Sub Text1_OLEDragDrop(Data As DataObject,（中略）
Text1.Text = Data.Files(1)
End Sub
OLEDropModeを1 - 手動にしませうね
19 名前： ちゃっぴー 投稿日： 2001/05/29(火) 12:05: >>18
ありがとうございますできました。
こういう風に使うのかぁ（納得
20 名前： デフォルトの名無しさん 投稿日： 2001/05/29(火) 14:51: 　教えてください！
データ元がAccessで番号か何か(Ｎｏ等)で一致するデータを引っ張ってくる際に
SQLを発行します。
そのときに、どのようにSQLをセットするのでしょうか？
Set ～を使うだろうということはわかるのですが、具体的にわかりません。
(AccessとVBはADOでつないでいます。ADOでSQLをセットするコマンド?
があるのでしょうか?）

SQL="SELECT ～ FROM ～ WHERE ～ = '" & xx & "'"
このSQLで一致したデータを次にどうセットするのかで困っています。

よろしくお願いします。
21 名前： デフォルトの名無しさん 投稿日： 2001/05/29(火) 23:36: >>20
教えてください！
Recordsetって調べた？

よろしくお願いします。
22 名前： 無責任な名無しさん 投稿日： 2001/05/30(水) 00:22: VBは継承が出来ない（のでオブジェクト指向じゃない）
ってよく聞く気がするのですけれどImplementsって
オブジェクト指向における継承とはまた違うのでしょうか？
23 名前： デフォルトの名無しさん 投稿日： 2001/05/30(水) 00:38: VBで関数電卓何行くらいで作れますか？
24 名前： 無責任な名無しさん 投稿日： 2001/05/30(水) 00:48: 先日自由課題で私が作った電卓は124行みたい
四則演算乗数階乗 sin cos tan log ln メモリを４つ実装
真面目に例外処理いれたらもっともっとステップ増えそうだけど
25 名前： デフォルトの名無しさん 投稿日： 2001/05/30(水) 21:58: >>24
Windowsのアクセサリにある二進法や十六進法などもあるやつだとどれくらいでしょうか？
26 名前： デフォルトの名無しさん 投稿日： 2001/05/30(水) 22:46: >>22
Implementsはインターフェースの実装です。
VB.NETでは継承にInheritsというキーワードを使います。
27 名前： デフォルトの名無しさん 投稿日： 2001/05/30(水) 22:48: 進数表示は単に入出力の問題だからプラス数十ステップ程度では>25
28 名前： デフォルトの名無しさん 投稿日： 2001/05/31(木) 13:29: >>22
クラスや継承はオブジェクト指向の根本とは関係ない。
継承が無くとも委譲で十分補える。
29 名前： デフォルトの名無しさん 投稿日： 2001/05/31(木) 23:49: 文字列のなかのある特定部分からを表示したいのですが、
どうすればよいのですか。配列にばらさないとだめでしょうか。
30 名前： デフォルトの名無しさん 投稿日： 2001/05/31(木) 23:55: substring>29
31 名前： デフォルトの名無しさん 投稿日： 2001/05/31(木) 23:56: VBを始めようと思うのですが
どこからダウンロードすればいいですか？
32 名前： デフォルトの名無しさん 投稿日： 2001/06/01(金) 00:02: マイクロソフトのサイトにあります。>31
33 名前： 30 投稿日： 2001/06/01(金) 00:26: わかったからもういい
Mid
34 名前： デフォルトの名無しさん 投稿日： 2001/06/01(金) 05:41: 32>
ＶＢって売り物だと思うのですが、それを無料ダウンロードできるのですか？
当たり前だと思うのですが有料ですよね～？
35 名前： デフォルトの名無しさん 投稿日： 2001/06/01(金) 05:49: その辺はマイクロソフトに聞いてくれ>34
36 名前： デフォルトの名無しさん 投稿日： 2001/06/01(金) 05:49: VBSとか
37 名前： デフォルトの名無しさん 投稿日： 2001/06/01(金) 13:47: VBで委譲ってどうやるんですか？
38 名前： デフォルトの名無しさん 投稿日： 2001/06/01(金) 14:18: A.cls

Public Sub DoAnything
　B.DosomeThing
End Sub

B.cls

Public Sub DoSomething
　A.DoAnything
End Sub
39 名前： デフォルトの名無しさん 投稿日： 2001/06/01(金) 14:19: 解説：
A:「おまえがやれ。」
B:「いやだ。おまえがやれ。」
40 名前：　投稿日： 2001/06/03(日) 00:55: ＶＢ６ってＭＥには対応していないのですか？
41 名前： 名無しおやぢ 投稿日： 2001/06/03(日) 23:33: >>40

SP5なら問題ない。（MS公式情報）
あとは自分で調べなさい。
42 名前： 別人だけど 投稿日： 2001/06/04(月) 00:36: ほれ
http://www.microsoft.com/JAPAN/developer/vbasic/Controls/Download.htm
43 名前： デフォルトの名無しさん 投稿日： 2001/06/04(月) 12:20: Public Const Dim csCommon(2) As String = { "common1", "common2"}
のように配列を定数として定義したいのですが、どうしたらよいのでしょうか？
44 名前： デフォルトの名無しさん 投稿日： 2001/06/04(月) 14:45: >>43
ありません。

バリアント型変数にArray関数でセットする、って手だけです。
ユーザー定義型にいたっては１つ１つセットしていく以外方法が
ありません。
45 名前： デフォルトの名無しさん 投稿日： 2001/06/04(月) 15:31: >>44
VBじゃダメなんですね
結局下記みたいになりました
Dim csCommon As Variant
Sub auto open()
csCommon = Array("common1", "common2")
ありがとうございました
46 名前： デフォルトの名無しさん 投稿日： 2001/06/04(月) 16:17: zipで圧縮されてるフォルダ中の、あるbmp(ファイル名既知)を読み出し
たいんですけど、どうしたらいいんでしょうか。
unzip.dllを使ってzipファイルの解凍はできたんですけど、
解凍ではなくそのbmpを一時的にpictureboxとかに表示したいんですが。
47 名前： デフォルトの名無しさん 投稿日： 2001/06/04(月) 16:40: >>46
どのZIPユーティリティでも一時ファイルを作成して
用が済んだら削除していると思いますが？

VBがメモリーストリームとか扱えればインメモリで行なえるかも
しれませんが、結局画像の場合データが大きいので仮想メモリ
が使われるのでパフォーマンス的には変わらないかも。
48 名前： 46 投稿日： 2001/06/04(月) 17:12: >>47さん
回答ありがとうございました。
一時ファイル作成でやってみます。
もう一つ質問ですが、その場合zipファイルを一度全て解凍する必要が
あるのですか？目的のファイルだけを解凍(というか抽出)することは
可能なのでしょうか？
49 名前： デフォルトの名無しさん 投稿日： 2001/06/04(月) 20:06: >>48
それはunzip.dllのAPIドキュメント見てくれ。
アーカイブ内容をリストしたり個別に取り出す手続きが
あるはずだ。
http://www.csdinc.co.jp/archiver/
50 名前： 46 投稿日： 2001/06/04(月) 20:44: >>49
合点。がんばってみます。ありがとうございました。
51 名前： ちゃっぴー 投稿日： 2001/06/05(火) 16:27: コマンドボタンをクリックしたら
Windowsを再起動するようにするにはどうしたら良いでしょうか？
52 名前： デフォルトの名無しさん 投稿日： 2001/06/06(水) 09:28: 教えてください。とっても困っています。
ＶＢのヘルプが突如出てこなくなっちゃいました。
「不明なエラーが発生しました」とかなんとかで･･･。
ヘルプも、ＶＢも全てアンインストール後、フォルダも
削除し、心機一転再インストールをしたのですが、まだ
エラーが出ます。
スキャンディスクも、デフラグも異常なし。
良い方法はありませんか？？
53 名前： デフォルトのやる気なし 投稿日： 2001/06/06(水) 10:43: >>52

実行環境（OS）もVBのバージョン（SP）も書いてなくて、的確な
回答を求めるわけ？ (^^;
54 名前： 52 投稿日： 2001/06/06(水) 14:03: >>53
すみません･･･。全く考え無しでした。
ＯＳは、Ｗｉｎ９８で、ＶＢは６．０です。
端末には、Ｏｆｆｉｃｅ２０００が入っているくらいで、
他には特に入れていません。
よろしくお願いします。
55 名前： デフォルトの名無しさん 投稿日： 2001/06/06(水) 14:23: windowsを再インストール。
これを機会に2000にかえましょう。
56 名前： デフォルトの名無しさん 投稿日： 2001/06/06(水) 14:57: 一気にフォルダを削除させる動作をさせたいのですが、
下にフォルダがいくつか続く場合には、
どうしたら一気に消すように出来ますでしょうか？？
dosのコマンドのdeltreeと同じ感じで
一気に消したいのです。よろしくお願いします。
57 名前： デフォルトの名無しさん 投稿日： 2001/06/06(水) 16:03: >>56
FileSystemObjectのDeleteFolderメソッドか、
FolderオブジェクトのDeleteメソッド。
58 名前： デフォルトの名無しさん 投稿日： 2001/06/06(水) 16:54: ソースを公開しているVBのプログラムってない？
ソースの書き方をいろいろ参考にしたいんだけど。

出来ればらるち～とかfubくらいのプログラムのがいいんだけど。
59 名前： 52 投稿日： 2001/06/06(水) 18:35: >>55
そうですね。最後の手段？！ＯＳのインストールを
やり直してみます。
思いつかなかったです･･･。
ありがとうございます。
60 名前： デフォルトの名無しさん 投稿日： 2001/06/06(水) 20:43: TextBoxに書いている文字列を
ソートしたいのですが、自分でソートアルゴリズムを
作るのはだるいので、楽してやる方法はないでしょうか？

フルパスのファイル名をソートさせたいだけなので
ソートアルゴリズムや
ソート順の形式にはこだわりません。

よろしくお願いします.
61 名前： デフォルトの名無しさん 投稿日： 2001/06/06(水) 20:43: TextBoxに書いている文字列を
ソートしたいのですが、自分でソートアルゴリズムを
作るのはだるいので、楽してやる方法はないでしょうか？

フルパスのファイル名をソートさせたいだけなので
ソートアルゴリズムや
ソート順の形式にはこだわりません。

よろしくお願いします.
62 名前： デフォルトの名無しさん 投稿日： 2001/06/06(水) 20:44: 2ジウ投稿ｺﾞﾒｿ
63 名前： 2ch初心者君 投稿日： 2001/06/06(水) 21:14: >>62
ネット漁ってソース探せば？
作る＝コーディングする
ならそれしかないと思うけど
どっちの方がだるくなるかわからんけどな
64 名前： デフォルトの名無しさん 投稿日： 2001/06/06(水) 21:24: >>63
そのソース探す場ソがわからないので、利いたのですが。(w
だめだったかな。
65 名前： デフォルト 投稿日： 2001/06/06(水) 21:28: http://www.planet-source-code.com/vb/
66 名前： 65 投稿日： 2001/06/06(水) 21:31: 58とか60とか、
検索エンジンで何を検索しているの（T_T）？
エロ画像ばかりじゃダメダメ。
67 名前： デフォルトの名無しさん 投稿日： 2001/06/06(水) 21:33: >>61
暇だから。

１．フラグを false に
２．(全て)-1の行について：n行とn+1行を比較し、基準に従って、必要ならn行目とn+1行目を入れ替えてフラグを true に
３．フラグが true なら goto １

アルゴリズムが糞とか思うなら、自分で書き換えろ。
ところでこんなgotoの使い方好きな人いますか？

以上バブルソートらしきものでした。
68 名前： デフォルトの名無しさん 投稿日： 2001/06/06(水) 22:25: …つう、か

1メソッドでｿｫ-ﾄしてくれる便利なものは、VBではないのか。
69 名前： デフォルトの名無しさん 投稿日： 2001/06/06(水) 22:26: >>61
リストボックス作っておいて、そこにテキストボックスの内容を突っ込む。
で、リストボックスの中身をソートさせて、また取り出してテキストボックスに写す
70 名前： デフォルトの名無しさん 投稿日： 2001/06/07(木) 00:45: GOTOって On Error の時とかしか使ってないかも。
71 名前： デフォルトの名無しさん 投稿日： 2001/06/07(木) 01:00: >>61
VB的な方法なら>>69だな。
ネットでクイックソートのソース拾って使うもよし。
72 名前： デフォルトの名無しさん 投稿日： 2001/06/07(木) 01:58: 拾うのはいいけど、理解できない（ほど高級なものを拾う）とメンテ大変だよ。
73 名前： デフォルトの名無しさん 投稿日： 2001/06/07(木) 02:26: >>51
ExitWindowsExec API かな。
74 名前： デフォルトの名無しさん 投稿日： 2001/06/07(木) 10:32: >>69
の方法を見せてくれないっすか。
リストボックスにTextBoxの文字列を渡す
普通の方法がわかりません。
TextBox.Textの改行をSplitでわけて代入するの？
<<なんか不要な泥臭いコードを実行している気がする

リストボックスを動的に生成したりしてもいいものなのでしょうか？
75 名前： >>74 投稿日： 2001/06/07(木) 12:08: 69じゃないけどね
「泥臭い」とか言う位なら、最初からソートアルゴリズム実装しなよ

> リストボックスにTextBoxの文字列を渡す
> 普通の方法がわかりません。

For Each s in Split(TextBox.Text, vbCrLf)
ListBox1.AddItem s
Next

これだけじゃん
76 名前： デフォルトの名無しさん 投稿日： 2001/06/07(木) 14:26: >>75
ﾏｼﾞさんくすこ。
いや、VBの文法を把握しきれていないから

S = Split(TextBox.Text, vbCrLf)
FOR i=0 TO UBOUND(S)-1
LISTBOX1.AddItem S(i)
NEXT

とか書こうかと思っていたけど
ある意味、おんなじですか。
77 名前： デフォルトの名無しさん 投稿日： 2001/06/07(木) 14:41: >>76それって泥臭いですか？
泥臭いと感じないヲレは染まってますか？？
78 名前： デフォルトの名無しさん 投稿日： 2001/06/07(木) 15:26: >>77
いえ、なんというかもっとエレガントな
　　　Text1.Text = List1.何とか
こんな方法があるのかとおもってしまったのです。

書いてみましたが、関数の外部にList1が必要なのは
嫌なので、関数内部で動的に生成したいのですが
どのようにしたらよいのでしょうか？

Private Sub TextSort(ByRef TextBox As TextBox)
　Dim c As Variant
　Dim i As Integer
　List1.Clear

　For Each c In Split(TextBox.Text, vbCrLf)
　　List1.AddItem c
　Next

　TextBox.Text = ""
　For i = List1.ListCount - 1 To 0 Step -1
　　TextBox.SelStart = Len(Text1.Text)
　　TextBox.SelText = List1.List(i) & vbCrLf
　Next
End Sub

Private Sub Command2_Click()
　Call TextSort(Text2)
End Sub
79 名前： デフォルトの名無しさん 投稿日： 2001/06/07(木) 18:14: たのみますよ。
80 名前： デフォルトの名無しさん 投稿日： 2001/06/07(木) 23:30: >>78
コントロール配列への動的追加ならLoadステートメントだけど、
デザイン時に非表示で貼っておいた方がいいんじゃない？

VB使ってるのになんでそんな所にこだわるのかよくわかんない。
こだわるんだったらソート関数自作すれ。
81 名前： デフォルトの名無しさん 投稿日： 2001/06/07(木) 23:49: >>80
スンマソン。
ｺﾝﾄﾛﾙの動的生成が
どこぞの言語のように簡単に出来るかと思ったもので
出来ないのね。
やっぱ、ＶＢって．．．．．．．．．．．ってちょと思ったけど、
まあいいや。非表示にして張っておくよ。

さんくすね。
82 名前： デフォルトの名無しさん 投稿日： 2001/06/08(金) 01:08: コレクション使え
83 名前： デフォルトの名無しさん 投稿日： 2001/06/08(金) 13:52: >>82
わかんないよ、ソートできるの？
84 名前： VB厨 投稿日： 2001/06/10(日) 10:51: a-ge-
85 名前： デフォルトの名無しさん 投稿日： 2001/06/10(日) 10:55: スレッドプログラムの作り方を教えてください
お願いします
86 名前： デフォルトの名無しさん 投稿日： 2001/06/10(日) 12:39: >>85
糞言語VBじゃ無理、諦めろ
87 名前： DataReportで累計 投稿日： 2001/06/10(日) 14:01: DataEnvironmentとDataReportを使うと、VBのコードを書かなくても
Accessのようにクエリーやレポートが作成できますよね。
で、DataReport 使ったときに、「累計」を表示する方法はありませんか？

# Access だと、レポート作成の際にテキストボックスの
# RunningSum/集計実行プロパティをTrueにすると累計を
# 出してくれるのですが。。
88 名前： バカプログラマ 投稿日： 2001/06/10(日) 22:40: お馬鹿な質問ですが許してください。
TEXTBOXのMULTILINEプロパティやSCROLLBARSプロパティを
プログラム中で動的に変化させたいのですがどうすればよいのでしょうか?
値のみ取得可能なプロパティですというエラーが出てしまいます。
89 名前： お勧めHP 投稿日： 2001/06/11(月) 01:12: 迷わずダウンロードしろ、API-Guide
http://www.allapi.net/php/mail/mailer.php
90 名前： お勧めHP 投稿日： 2001/06/11(月) 01:13: 直リン駄目だった
http://www.allapi.net
91 名前： デフォルトの名無しさん 投稿日： 2001/06/11(月) 02:33: テキストデータ（8bit文字)をBinaryでOPENして、Print inputB$(2,Filenumber)
とすると??と表示されてしまいます。
何故でしょうか？VB5のときは大丈夫だったのに・・
よろしくお願い致します。
92 名前： デフォルトの名無しさん 投稿日： 2001/06/11(月) 12:14: VB6から、htmlファイルをネスケかＩＥのブラウザで
表示させたいのですができません。
Shell(xxxx.html)
ではダメでした。どうすればいいのでしょうか？
93 名前： デフォルトの名無しさん 投稿日： 2001/06/11(月) 12:44: >>92
http://www.google.com/search?hl=ja&safe=off&q=shellexecute+api+vb&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
今忙しいのでこれくらいしか書けない
94 名前： デフォルトのやる気なし 投稿日： 2001/06/11(月) 14:35: >>92
Shellを使うなら、
Shell("起動するアプリ" & " " & "開くファイル")
でないとダメ。（どちらもフルパス）

アプリケーションと拡張子との関連付けも自動判定して開くなら、
ShellExecute(API関数)を使ってください。

(他の方法もありそう。ツッコミきぼー)

- 以上 -
95 名前： デフォルトの名無しさん 投稿日： 2001/06/11(月) 14:48: >>93>>94
ご多忙のところありがとうございます。
ブラウザを立ち上げるにはＡＰＩを使うしかありませんか。

もしくはＶＢのウェブブラウザコントロールを使いたいのですが、
使い方が分かれば教えていただけますでしょうか？
カスタムコントロールなのか、ヘルプファイル載っていないので・・・。
htmlファイルを表示するプロパティなんかあるでしょうか。
プロパティリストにはそれらしいものは無かったのですが・・・。
96 名前： デフォルトの名無しさん 投稿日： 2001/06/11(月) 15:56: VB6 sp5使っているんですけど、
ComboBox か ImageComboBox を
ドロップダウンさせた時に表示する行数を
変更するにはどうしたらよいですか？

デフォルトのままだと小さくて見づらい。

無理手゜すか？
97 名前： 名無しさん＠お腹いっぱい。 投稿日： 2001/06/11(月) 16:02: shellもAPIもウェブブラウザコントロールも使っちゃ駄目。
ふつー使わん。ほんと初心者スレだねここ。

ほれ
Option Explicit

Private Sub Command1_Click()
Dim IE As InternetExplorer
Dim IE As New InternetExplorer
IE.Navigate ("http://www.2ch.net/")
IE.Visible = True
End Sub

Microsoft Internet Controlsを参照設定してからな。
ついでにお気に入りとか履歴バーの有無とかも制御
できるぞ。
98 名前： 97 投稿日： 2001/06/11(月) 16:07: 書き直した。こっちがイベント取得できていいでしょ

Option Explicit
Public WithEvents IE As InternetExplorer
Private Sub Command1_Click()

Dim IE As New InternetExplorer

With IE
.Height = 600
.Width = 600
.AddressBar = False
.MenuBar = False
.ToolBar = False
.Resizable = False
.Navigate ("http://www.2ch.net/")
.Visible = True
End With
End Sub
99 名前： デフォルトの名無しさん 投稿日： 2001/06/11(月) 16:08: それって通常使うブラウザをMozillaとかにしてても大丈夫なの？
InternetExplorerが入っていない環境でも大丈夫なの？
（うちは入ってない。Win95SP1。）
100 名前： デフォルトの名無しさん 投稿日： 2001/06/11(月) 16:11: （・∀・） 100!
101 名前： デフォルトの名無しさん 投稿日： 2001/06/11(月) 16:13: >>97
使っていけない理由は何故なんでしょうか？

ふつー、ってのは理由にならないですよね。
避けられる事が多いのならばそれなりのデメリットがあると思うのですが。
102 名前： 97：すいません間違えました 投稿日： 2001/06/11(月) 16:17: Option Explicit
Public WithEvents IE As InternetExplorer

Private Sub Command1_Click()

Set IE = New InternetExplorer　'ここ

With IE
.Height = 600
.Width = 600
.AddressBar = False
.MenuBar = False
.ToolBar = False
.Resizable = False
.Navigate ("http://www.2ch.net/")
.Visible = True
End With
End Sub
103 名前： 97 投稿日： 2001/06/11(月) 16:20: >101
煽るような言い方ですまぬ。

クラスから使用したほうがイベントやメソッドで制御しやすいため。
104 名前： 101 投稿日： 2001/06/11(月) 16:30: 失礼。こっちの書き方も煽りっぽかった。

当方VBではなくCプログラマでShellExecuteを使っているので、
この関数って使ってはいけないものなのかと思ってしまったので。
105 名前： デフォルトの名無しさん 投稿日： 2001/06/11(月) 16:31: Mozillaじゃだめでしょ。
106 名前： 97 投稿日： 2001/06/11(月) 16:33: >101
当方も今年度からVCに移行(DB中心だけど)させられました。
貴方よりVCど素人です。謝ります。
107 名前： 97 投稿日： 2001/06/11(月) 16:48: みなさんの学習の参考にして下さい。

http://www.planet-source-code.com/vb/
http://161.58.186.98/
http://www.vbwm.com/
http://www.vbthunder.com/
http://vbaccelerator.com/
http://161.58.84.209/
http://www.codeguru.com/vb/
http://www.themandelbrotset.com/Technical/typelib.asp
http://www.elementkjournals.com/ivb/
http://www.freevbcode.com/
http://www.mvps.org/vbnet/
108 名前： デフォルトの名無しさん 投稿日： 2001/06/11(月) 20:39: ぜんぶ英語ﾔﾀﾞ
109 名前： デフォルトの名無しさん 投稿日： 2001/06/11(月) 20:46: >>96です。
可能か不可能かだけでも教えてください～。
110 名前： デフォルトの名無しさん 投稿日： 2001/06/11(月) 22:50: 質問！⇒Microsoft Visual Basic 6.0LEARNING　EDITIONについてです。
WINに付属のPAINTで、作成した画像ファイルの拡張子を
『.ICO』に変え、Microsoft Visual Basic 6.0LEARNING　EDITION
で作成したプログラムで使おうと、FORMプロパティでアイコンを変
更しようと、PAINTで作成したファイルを選択したところ「プロパ
ティの値が不正です」と返されてしまい、変更完了しません。指南
書に付属しているアイコンはつかえました。PAINTで作成したファ
イルはVBでアイコンとして使えないのでしょうか？使えるのであれ
ば対処方法を教えてください。何卒御教授の程よろしくお願いいた
します。
111 名前： ＦＡＱさん 投稿日： 2001/06/12(火) 02:36: >>110
BMPとICOはファイルの中身が違う。
ツールを使って変換しないと無効。
ツールはVectorで探せばある。
112 名前： デフォルトの名無しさん 投稿日： 2001/06/12(火) 13:30: あるフォルダの中にあるファイルの中で
一番日付が新しいファイル名を取得したいのですが
どのようにしたらよいのでしょうか？
ＶＢ６でＯＳはＷＩＮ９８です。

ＦｉｌｅＤａｔｅＴｉｍｅで全てのファイルの日付を
比較する方法もあると思うのですが
もっと効率の良い方法があったら教えてください。
お願いいたします。
113 名前： デフォルトの名無しさん 投稿日： 2001/06/12(火) 13:42: 一番日付けが新しいかどうかは、全ファイルの情報を取得して、
比較してみるしか無いんじゃないかな。
全てのファイルの日付けが同じ可能性もあるし、
日付け情報が無効な場合も有りえる。
そういう場合の細かい対処を考えると、自分でやるしか無いんではないかと。
114 名前： デフォルトの名無しさん 投稿日： 2001/06/12(火) 13:46: 直前にアクティブだったウインドウを、アクティブにするにはどうしたらいいですか？
SendKyes で Alt + Tab を送る以外で。
115 名前： デフォルトの名無しさん 投稿日： 2001/06/12(火) 14:13: ↓の日本語訳ってありますか？
名前付け基準/コーディング規約
http://www.xoc.net/standards/rvbanc.asp
http://www.xoc.net/standards/rvbacc.asp
116 名前： デフォルトの名無しさん 投稿日： 2001/06/12(火) 14:25: >>115
http://www.excite.co.jp/world/url/
やっぱ↑なのじゃダメ？
117 名前： デフォルトの名無しさん 投稿日： 2001/06/12(火) 14:36: >>116
ちょっとした文章なら、いいけどね
自分の英語力の無さが情けない・・・
118 名前： 110 投稿日： 2001/06/12(火) 15:07: >>111さん。
ありがとうございます。
Vectorにtoolたくさんありました。
119 名前： デフォルトの名無しさん 投稿日： 2001/06/12(火) 18:49: Exeとして実行した場合
自分自身のExeの名前を取得することは出来ますか？
120 名前： デフォルトの名無しさん 投稿日： 2001/06/12(火) 18:49: age
121 名前： デフォルトの名無しさん 投稿日： 2001/06/12(火) 19:31: >>119
App.EXEName
122 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 10:59: ではインタープリタで実行しているときは
そこにはどんな値が？？？
123 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 12:26: プロジェクト
124 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 14:32: Private Sub CommandButton2_Click()
　Dim S() As String

　MsgBox UBound(S)
End Sub

こうするとエラーが出てしまいますが

Sの配列の領域が定義(ReDim)されているか
否かを判断するにはどうしたらよいのでしょうか。
125 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 14:46: Private Sub CommandButton2_Click()
　Dim S() As String

　'ReDim S(0)

　If S = Empty Then
　　MsgBox "S定義されてない"
　Else
　　MsgBox Sの要素数はUBound(S)
　End If
End Sub

こんな感じにしたいのです。
126 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 14:58: W2K上でVB5.0を使っているのですが、
MicrosoftWindowsComonContorols6.0などのActiveXコントロールを
追加して、使用すると「このコンポーネントのライセンス情報が
見つかりません。デザイン環境でこの機能を使うために必要な
ライセンスがありません」となり使用できません。
解決策をご教授下さいませｺﾞﾙｧ
127 名前： 新設!!!!! 投稿日： 2001/06/13(水) 14:58: http://home9.highway.ne.jp/cym10262/
128 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 14:59: Private Sub CommandButton2_Click()

On Error Goto Resume
　
　Dim S() As String

　'ReDim S(0)

　　MsgBox Sの要素数はUBound(S)

Exit

ERROR:
IF Err.Number=調べる
MsgBox "S定義されてない"
End Sub

こんなのは嫌かな？
129 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 15:02: ＯＳから再インストール＞126

イエーい。
130 名前： デフォルトのやる気なし 投稿日： 2001/06/13(水) 15:04: >>128

調べるのがめんどくさい Or コーディングがめんどくさいとき、
そのテの手法？をよく使います。(要するに、手抜きじゃん)
131 名前： 128 投稿日： 2001/06/13(水) 15:08: をいをい

MsgBox Err.Numberですぐわかるでしょ。
また、Debug.Print Err.Numberとか。
132 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 15:31: ありがとうございます。
こんな感じでいいんですよね？

Function NullStrArray(S() As String) As Boolean
　Dim A As Integer
On Error GoTo ERROR:

　A = UBound(S)
　NullStrArray = False
　Exit Function

ERROR:
　NullStrArray = True
End Function

Private Sub CommandButton2_Click()
　Dim S() As String

　'ReDim S(0)

　If NullStrArray(S) Then
　　MsgBox "Sは定義されてない"
　Else
　　MsgBox UBound(S)
　End If
End Sub

エラーナンバーってどのように定義すればよろしいでしょうか？
133 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 15:35: >>126
W2K上でVB5.0はサポートされていない。
VB6SP4以上を使用すべし。
134 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 15:51: >>126です　>>129 >>133サンクス

別PCのNT4.0sp6上にVB5.0sp3を新規インストールしても
同じ症状が出ました。これはVBのCDが逝ってﾏｽｶ？
135 名前： 128 投稿日： 2001/06/13(水) 16:40: Option Explicit

Function ErrTrap(objErr As ErrObject) As Long

With Err
Select Case .Number
Case 13
MsgBox "エラー：" & .Number & vbCrLf & "内容：" & "Sは定義されてない"
Case 9
MsgBox "エラー：" & .Number & vbCrLf & "内容：" & "Sは定義されてない"
Case Else
MsgBox "エラー：" & .Number & vbCrLf & "内容：" & .Description
End Select
.Clear
End With
End Function

Private Sub Command1_Click()

On Error GoTo ERROR:
Dim S() As String
Dim ret As Long

'ReDim S(5)

MsgBox UBound(S)

Exit Sub

ERROR:
Call ErrTrap(Err)
End Sub
136 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 16:47: ＞134
久々に逝ってよし。
http://www.microsoft.com/JAPAN/support/kb/articles/J040/9/61.htm
137 名前： 134 投稿日： 2001/06/13(水) 16:56: >>136
多謝！多謝！　逝ってきます！
138 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 17:16: VBでDDEってどうやるんですか？
ヒントでも良いのでご指導ください。
139 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 18:55: >>138
1.EXCELのデータの入っているセルを適当にコピー
2.VBのエディットボックスにフォーカス当てて、[編集]-[リンクのコピー]
3.EXCELに戻ってセルの値を変えてみる・・あら不思議。

LinkTopic,LinkItemのプロパティを見てヘルプも引いてみよう。
ところで向こうで暴れまくってるね。
140 名前：訂正投稿日： 2001/06/13(水) 18:58: 2.は[リンク貼り付け]でした。
141 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 23:15: VBで、割り算を計算させて、あまりが出るようにしたいのですが、
どうやってやるのですか？
142 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 23:19: >>141
Mod のことかな？
143 名前： 141 投稿日： 2001/06/13(水) 23:23: >>142
そうです。
それの出し方が解らないのです。
144 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 23:36: a - a / b * b>143
145 名前： 141 投稿日： 2001/06/13(水) 23:40: >>144様
すみません。
「変数ではなく、ﾌﾟﾛｼｰｼﾞｬを指定して下さい」と出てしまうのですが。
146 名前： デフォルトの名無しさん 投稿日： 2001/06/13(水) 23:49: とりあえず、エラーになる行書いてみなよ
147 名前： 141 投稿日： 2001/06/13(水) 23:51: >>146様
a - a / b * b
です。
148 名前： 144 投稿日： 2001/06/14(木) 00:05: >>141
*は掛け算
/は割り算
の意味
t機能にbasicコードに変換してくれ
149 名前： 144 投稿日： 2001/06/14(木) 00:06: x t機能
o 適当
150 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:11: c = a - a / b * b
151 名前： 141 投稿日： 2001/06/14(木) 00:13: >>144様
すみません。
よくわからないんで、ソースコードを全部書いてくれませんか？
お願いします。
152 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:15: そらー、代入もしないで、ただ剰余求めたって、エラーになるべさ。
153 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:16: てゆうかさ、
C = A Mod B
で十分じゃん
154 名前： 144 投稿日： 2001/06/14(木) 00:16: >>151
aとbは変数の意味。
aとbに何か数字入れて自分で試してみろ
ちなみに演算子の優先順位はこう
(a - ((a / b) * b))
155 名前： 144 投稿日： 2001/06/14(木) 00:17: なんだ。
Modがあるのか。
156 名前： 141 投稿日： 2001/06/14(木) 00:19: >>153様
Modの使い方が解りません。
157 名前： 144 投稿日： 2001/06/14(木) 00:20: 氏ね>156
158 名前： 144 投稿日： 2001/06/14(木) 00:22: つーかさ、VBってインタプリタじゃないの？
その場で実行できんの？
159 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:23: >>157
それはないと思う。
初心者が、ほんとにわからなくて聞いているのかもしれないし。
あくまでここは質問スレだから。
160 名前： 144 投稿日： 2001/06/14(木) 00:27: >159
氏ねが言い過ぎ？
じゃあVBのマニュアル最初っから読めよ>141
四則演算ぐらいわかるだろ？
161 名前： 141 投稿日： 2001/06/14(木) 00:27: >>160様
そんな物持ってません。
162 名前： 144 投稿日： 2001/06/14(木) 00:30: あっそ
163 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:32: ■■■■終了■■■■
164 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:35: ■■■■再開■■■■
165 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:36: ■■■■再開してもいいけど、141のは終了■■■■
166 名前： 141 投稿日： 2001/06/14(木) 00:36: >>160様
何ですかそれ？
167 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:36: でもやっぱり
■■■■終了■■■■
168 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:37: でもやっぱり
■■■■再開■■■■
169 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:38: 要するに
■■■■終了■■■■
170 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:39: 要するに
■■■■再開■■■■
171 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:40: 結果として
■■■■終了■■■■
172 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:40: ■■■■終了■■■■
■■■■再開■■■■
だけで999まで行くスレ。いや過ぎ。

つーか、まずマニュアル入手しましょう。>>141
セイキバン購入してな。
173 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:40: 結果として
■■■■再開■■■■
174 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:41: （・∀・）ｼｭｳﾘｮｳｲｲ!
■■■■終了■■■■
175 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:41: （・∀・）ｻｲｶｲｲｲ!
■■■■再開■■■■
176 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:42: 163=164=.....=174=175
177 名前： 174 投稿日： 2001/06/14(木) 00:43: もうつかれた
誰か引き継ぎしてくれ
■■■■終了■■■■
178 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:43: ■■■■再開■■■■
179 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:45: ┌─────────┐
│　　　　　　　　　 │
｜　　　ｼｭｳﾘｮｳｲｲ!　　　｜
│　　　　　　　　　 │
└―――──――――┘
　　　　　ヽ( ・∀・)ﾉ
　　　　　 (　へ)
　　　　　く
180 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:47: １．
　(。_。)　ｱﾚﾚ
ﾉ( 　 )ヽｹﾞﾝｷｶﾞﾅｲﾖ?
｜υ｜

２．
　(。_。) ｲｼﾞｯﾃﾐﾖｳ
　 (ヽノ) ﾓｿﾞﾓｿﾞ
　｜δ｜

３．
ヽ(´▽｀)ﾉﾜｱｲ
　 ( ∩ )　ﾀｯﾀﾖ!
　／ ω ＼

４．
ヽ(*ﾟДﾟ)ﾉ　　ｳﾜｧ
　 ( η)⌒ヾﾅﾆｶﾃﾞﾃｷﾀ
　ノωヽ

５．
　(-＿-) ﾅﾝﾀﾞｶ
　(∩∩) ㌢ﾒﾝﾀﾙ…
■■■■再開■■■■
181 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:49: このスレは終了再開スレになりました。
182 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:50: 終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛
183 名前： 141 投稿日： 2001/06/14(木) 00:53: 皆様、大変ご迷惑をおかけして、申し訳ありませんでした。
今度の週末にでも、VBの正規版を買ってきます。
皆様、本当にありがとうございました。
184 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:54: 再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛
185 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:54: 　　　　　　　〈￣ヽ
　,､＿＿＿＿|　 |＿＿＿＿,､
〈　　＿＿＿＿＿＿＿＿＿　ヽ,
　|　|　　　　　　　　　　　　　|　|
　ヽ'　〈＾ー―――＾〉　　 |／
　　　　,､二二二二二＿、
　　　〈＿_　　＿　　＿＿〉
　　　　　 |　 |　 |　 |
　　　　　/　/　 |　 |　　　　|＼
　＿＿_/　/　　|　 |＿＿＿|　ヽ
　＼＿＿/　　　ヽ＿＿＿＿＿）
186 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 00:56: 　　　　　　　　！　　　こ
　　　　い　　　　　　　　　　　　　ん

　ざ　　　　　　　　　　　　　　　　　　　な

う　　　　　　　　　あ　　あ　　　　　　　　糞
　　　　　　　ゃ　　　　　　　　　あ
　　　　　　　　　　　　　　　　　　　　　　　ス
　　　　　じ　　　　　　ぁ　　ぁ
　　　　　　　　　　　　　　　　　　　　　　レ
　　　　　　ｅ
　　　　　　　　　　　　　　　　　　　　は
　　　　　　　　　ｇ　　　　　　ｓ
　　　　　　　　　　　　　ａ
187 名前： （'∀`） 投稿日： 2001/06/14(木) 00:57: （'∀`）＜終了～
188 名前： （'∀`） 投稿日： 2001/06/14(木) 00:58: （'∀`）＜再開～
189 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 01:00: ┌────────────┐
│　　　　 ∧∧ 　　　　　終 │
│ ○　　(. ﾟдﾟ) 　　　　　　了 │
│　　　ヽ/ つ日).~~　　　　　　　│
│　6　（＿　__）　　　　　　　　　 │
│ 点　　　　　　　　　　　 │
└────────────┘
190 名前： (´∀`) 投稿日： 2001/06/14(木) 01:01: 　∧__∧ 　　／￣￣￣￣
　(´∀`)　＜　再開～
　(⊃ 　＼⊃ ＼＿＿＿＿
　　＼　　 )ρ
　　く　く
191 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 01:02: 本題に戻した方がいいのでは？
VB初心者はいっぱいいるし。
このままでは、スレ乱立の危険性もある。
192 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 01:02: ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　終了
＼＿＿＿　＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 |/
　　　　　　 ∫ 　　　　　　　　　　　 ∫
　　　∧∧. ∬　..　　　　　　　∧,,∧ ∬
　　（ﾟДﾟノ.っ━~ 　　　　ミﾟДﾟ,,,ノ,っ━~
＿と´_　　ﾉ＿∀＿∀＿と~,,, .　~,,ﾉ_.
　　　 .(_/ .),　　.┷┳┷　　 .ﾐ,,,/~),　　|
￣￣￣.し'J￣￣...┃ ￣￣￣ .し'J￣￣￣|..
　　　　　　　　　　　　　 /|
／￣￣￣￣￣￣￣￣￣　￣￣￣￣￣￣
|　再開
＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
193 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 01:04: 　　　　　　　　　　　　　 |＼
┌──────────┘- ＼
│　　　　　　　　　　　　　　　　　　　＼
｜　　　　　　　終　　　　　　　　　　　　　　>
│　　　　　　　　　　　　　　　　　　／
└──────────┐- ／
　　　　ヽ(´ー｀).ﾉ　　　　　 |／
　　　　　(　へ)
　　　　　く
　　　　　　　　　　　　　　　- = ≡三　　　　　　　　　　　　　 |＼
　　　　　　　　　　　　　 - = ≡三　　┌──────────┘- ＼
　　　　　　　　　＿ = ≡三　　　 │　　　　　　　　　　　　　　　　　　　＼
　　　　　　　　　　　　― 　=三三　　 |　　　　　了　　　　　　　　　　　　　　　 >
　　　　　　　　　￣ = ≡三　　　 │ 　　　　　　　　　　　　　　　　　　／
　　　　　　　　　　　　　 - = ≡三　　└──────────┐- ／
　　　　　　 (´ー｀) 　　　　- = ≡三　　　　　　　　　　　　 |／
　　　　　　( ヽヽ)
　　　　／　　>
194 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 01:07: 　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　∧ ∧　　＜　　終了
　　(　　,,) 　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
～（＿__ﾉ

　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　∧ ∧ 　　　＜　　　再開
　 (,,・Д・)　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
～（＿__ﾉ
195 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 01:11: 　　ゝ‐――――∂――∂――――∂――∂――――ゝ
　　　　　　　　　　/　　　/　　　　　　　/　　　/
　　　　　　　　　 /　　　/　　　　　　　/　　　/
　　　　　　　　 /　　　/　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　　 /　　　/　＜　このｼｭｳﾘｮｳってどうよ？
　　　　　　　　/　　　/　　　＼＿＿＿＿＿＿＿＿＿＿
　　　　　　　 /　　　/　　　　　　　/　　　/
　　　　　　　/　　　/　　　　　　　/　　　/
　　　　 Λ_/Λ　 /　　　　　Λ_/Λ 　/　　／￣￣￣￣￣￣￣￣￣￣
　　　　（　/∀´）/　　　　　（´∀｀　） /　＜ある意味終わってるよな！
　　　　（つ　　つ　　　　　⊂/　　　つ　　＼＿＿＿＿＿＿＿＿＿＿
　　 ←λ＿ ~） ~）ヽ　　 ←λ＿~） ~）ヽ
　　　ヽー（_＿）＿）ゝ　　ヽー（_＿）＿）ゝゝ
196 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 15:20: 荒らされている所恐縮なのですが

Private Sub Command1_Click()
　Dim Strs() As String

　Strs = Split("", "A")

　MsgBox UBound(Strs)
End Sub

これって-1が表示されるのですが
この現象はなんですか？
197 名前： ("A")? 投稿日： 2001/06/14(木) 18:52: ("A")?
198 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 19:00: >>196
Split関数の仕様が
「引数 expression が長さ 0 の文字列 ("") である場合、Split 関数は、
要素もデータもない空の配列を返します。」

こうだから、そういうもんじゃない？

>>197
ちょっとわらた（ｗ
199 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 20:52: >Strs = Split("", "A")
この行を取ると最後の行で実行時エラーになるね。
Strsは最初から空の配列のはずだが・・・
200 名前： デフォルトの名無しさん 投稿日： 2001/06/14(木) 22:56: ("∀")?
201 名前： 佐藤浩嗣 投稿日： 2001/06/15(金) 10:47: Word VBAで以下のようにExcel Worksheetを開いてデータを参照するプログラムの終了後自動的にWorksheetを閉じて、Excelを終了するにはどのようなコードを記述すればよいのでしょうか？

Set ExcelObject = CreateObject("Excel.Application")
ExcelObject.Visible = True
Set ExcelBook = ExcelObject.Workbooks.Open(FileName:="c:\My Documents\Vba\dictionary.xls")
ExcelBook.Worksheets(1).Activate
202 名前： デフォルトの名無しさん 投稿日： 2001/06/15(金) 12:10: ExcelObject.Quit
Set ExcelObject = Nothing

#こんな所に実名、実メアド書いちゃ駄目
203 名前： デフォルトの名無しさん 投稿日： 2001/06/15(金) 12:20: すいません。教えてください。
文字列を画面に斜めに表示したいのですが、どうすればできますか？
204 名前： デフォルトの名無しさん 投稿日： 2001/06/15(金) 12:42: >203
CreateFontIndirect() API を使って論理フォントを作成して
TextOut() API を使って画面の hDC に出力する
205 名前： 203 投稿日： 2001/06/15(金) 13:01: >204
ありがとうございます。
やってみます！
206 名前： now unanimous 投稿日： 2001/06/15(金) 14:25: >202
ありがとうございました。Excelが開きっぱなしでみっともなかったのですが、うまく閉じてくれました。
実名、実アドはまずいでしょうか？住所や電話番号はまずいと思いますけど？
実名は本当はハンドルかもしれませんし？
207 名前： デフォルトの名無しさん 投稿日： 2001/06/15(金) 14:34: いや、どうでもいいんじゃない？
君さえよければさ。
メールアドレスがSPAMで埋まっても、名前からいろいろ検索されても。
208 名前： デフォルトの名無しさん 投稿日： 2001/06/15(金) 15:19: どうでもいいけど、なんか冷める
209 名前： デフォルトの名無しさん 投稿日： 2001/06/15(金) 16:27: ADSIでActiveDirectoryとExchangeServerを操っている人いない？
210 名前： デフォルトの名無しさん 投稿日： 2001/06/15(金) 18:59: 申し訳ございません。どのようにお詫びしてよいかわかりませんが、今後十分注意いたします。どうぞお許しくださいますようお願いいたします。
211 名前： デフォルトの名無しさん 投稿日： 2001/06/15(金) 19:45: >>210
なにをお詫びしているんだ？
ｼﾞﾂアド晒した事？
自分が困るだけだから、ﾜﾋﾞﾙ必要はあるまい。

2chはちょっと痛い場所だから
なれないうちは
他の親切な場所で質問するとよいよ。
212 名前： デフォルトの名無しさん 投稿日： 2001/06/15(金) 20:01: 親切な人間の多いスレだな（ｗ
213 名前： デフォルトの名無しさん 投稿日： 2001/06/15(金) 20:11: >>212
初心者スレだからな。

糞スレたててたら、ぶち頃しだけどな。
214 名前： デフォルトの名無しさん 投稿日： 2001/06/16(土) 00:12: >>209
なぜ最後だけ小文字？
215 名前： 浦島次郎 投稿日： 2001/06/16(土) 02:41: ずっとFreeBSDってOSを使っていたのですが、
今年になってMACを購入しまして、Windows98を使っています。
先日、VisualBasicなる物を知りましたが、このBasicの対象としている
開発アプリケーションはゲームなのでしょうか？仕事で使うようなシステム
なのでしょうか？どんな事に不向きな言語なのでしょうか、教えて下さい。

今、作りたいプログラムは、NC用のエディタです、数万行程度のNC用のプロ
グラムをエミュレートする機能も付け加えてみたいと考えています。
恥ずかしいのですが、言語はCとアセンブラしかできません（C++も駄目です）
こんなレベルの私でもVBを使いこなせるでしょうか。宜しくお願いします。
216 名前： デフォルトの名無しさん 投稿日： 2001/06/16(土) 02:44: NCってなに？
つーか、
＞今年になってMACを購入しまして、Windows98を使っています。
ネタですか？
217 名前： 浦島次郎 投稿日： 2001/06/16(土) 02:48: 説明不足でごめんなさい、ネタじゃないんですVirtualPCでWindows98つかってます。

NCはコンピュータ制御の旋盤です。
218 名前： デフォルトの名無しさん 投稿日： 2001/06/16(土) 02:54: >>217
CとASM知ってるんならVBはやっても身にならないよ。
完全にWindows依存の言語処理系だし。
UNIX経験があるなら、まだDelphiかKylix
(どっちも言語はOOPascal)かC++Builderの方がお勧め。
エディタ作るんならなおさら。
コア部をCやASMで書いて、GUI部分はDelphi/kylixを使うとか。
とにかくVBの事はすっぱり忘れた方が良いのは確か。
219 名前： デフォルトの名無しさん 投稿日： 2001/06/16(土) 02:57: あ、GUI部をVBで書くって手もあるけど、
余計な物（OCXやVBランタイム。UNIXでいうsoライブラリ）を
インストールしなくちゃならない。
220 名前： 浦島次郎 投稿日： 2001/06/16(土) 03:03: >>218
そーなんですか、全然知らない世界だったもので、色々と資料見たの
ですが見た目、同じに見えまして。(^^;;
C++BuilderとDelphi/Kylixを調べてみます。有難うございました。

#アセンブラは、MicrosoftのMASMとかまだあるのでしょうか・・。
221 名前： 浦島次郎 投稿日： 2001/06/16(土) 03:05: VBにもシェアードライブラリが必要なんですか、参考になります。
C++BuilderやDelphi/Kylixにはsoは必要ないのでしょうか？
222 名前： デフォルトの名無しさん 投稿日： 2001/06/16(土) 03:15: >>221
>#アセンブラは、MicrosoftのMASMとかまだあるのでしょうか・・。
昔はン万円もしたMASMは現在マイクロソフトのサイトに行って、
DDKというパッケージを取ってくれば、その中に入っているので
タダで入手できるよ。

＞C++BuilderやDelphi/Kylixにはsoは必要ないのでしょうか？
少なくともVBランタイムのインストールの様な物は無いです。
１つの実行ファイルが作られる筈。
(ランタイムを別個のファイルにもできるけど)

CやASMで作ったモジュールをGUIモジュールと結合したい場合、
さっき言ったDLLという(soと似た)形式を作ってリンクする。
223 名前： 浦島次郎 投稿日： 2001/06/16(土) 03:22: MASMが無料になっていたなんて、知りませんでした。

今、検索して来ましたが、C++Builderってのが良さそうなので
これで挑戦してみます。
(Borlandなんですね、古い人間なんで名前だけで安心感がある f(^^;）
ついでに、Delphiってのも調べてみたらTurboPascal?なんですね、
インラインアセンブラも書けるみたいだし、こっちも良さそう. (^_^;;

とても参考になりました。
224 名前： 浦島次郎 投稿日： 2001/06/16(土) 03:25: 結局、VBの話しじゃなくなってしまいました申し訳ありませんでした。
225 名前： デフォルトの名無しさん 投稿日： 2001/06/16(土) 15:07: 最近エクセルでVBAを始めたのですが、参考になるようなソースコードが
大量に落ちている場所はありませんか？
自分でも捜しているのですが、あまりいいのが見つかりません．
お願いします。
226 名前： デフォルトの名無しさん 投稿日： 2001/06/16(土) 19:19: すれちがいで申し訳ない。

VBSでIEの右クリックメニューを色々いじりたいんだけど、
どこでリファレンスが手に入るか分からないのですが。

知ってたら誰か教えて～。方々探したけれど見つからない。
227 名前： デフォルトの名無しさん 投稿日： 2001/06/16(土) 23:45: >>215
制御屋さんにはCQ出版のInterfaceって雑誌がお勧め。
(ちょっと前だったらDelphi/BCBの連載やってた。)
228 名前： デフォルトの名無しさん 投稿日： 2001/06/17(日) 22:27: ＞＞225
Excelファンクラブ
229 名前： デフォルトの名無しさん 投稿日： 2001/06/18(月) 10:59: CreateObjectで作成したオブジェクトから
イベント取得ってできます？

おれには無理だ・・・。
230 名前： D使いβ 投稿日： 2001/06/18(月) 20:26: >>229
WithEventsキーワードを使うよん。

Option Explicit

Public WithEvents Exl As Excel.Application

Private Sub Command2_Click()
　Set Exl = CreateObject("Excel.Application")
　Exl.Visible = True
End Sub

Private Sub Exl_NewWorkbook(ByVal Wb As Excel.Workbook)
　MsgBox "新しいワークブック作ったよ。"
End Sub
231 名前： VBびぎな 投稿日： 2001/06/18(月) 23:25: >>229

CraeteObjectで作成しているCOMも自分で作ってるなら、

自分IFのオブジェクトを渡して、
そのオブジェクトを使ってコールバック関数のように使うのはいかが？

ただ、呼び元もCOMじゃないといかんとは思うけど
232 名前： 初心者 投稿日： 2001/06/18(月) 23:36: VB始めたばかりの初心者です。
お教え願いたいことがあるのですが,
VB6を使っているのですが、メッセージボックスに表示させる文字のフォントサイズって
変更できるのでしょうか？

色々な本で探したのですが載ってないのです。
どうかお教えください。
233 名前： VBびぎな 投稿日： 2001/06/19(火) 00:25: >>232
メッセージボックス用のフォームを作って。
それを使った方が簡単だと思いますよ。
234 名前： デフォルトの名無しさん 投稿日： 2001/06/19(火) 00:30: ＞232
http://www06.u-page.so-net.ne.jp/qc4/shige-3p/
235 名前： D使いβ 投稿日： 2001/06/19(火) 00:33: >>231
イベントの送出もEventキーワードで出来たはず。
Public Event MyEventProc
として、
RaiseEvent MyEventProc
で実際に通知します。

>>232
[コントロールパネル]-[画面のプロパティ]

ってか、ダイアログ自作した方が早くない？
236 名前： VBびぎな 投稿日： 2001/06/19(火) 01:06: >>234
あ・・多分、私勘違いしましたね・・・

「プロジェクト」→「参照設定」とかで、参照設定しないで、
Set oObj As Object
という風に定義したオブジェクトに対して
Set oObj = CreateObject("なんかのProgID")
で作成して。
この作成したオブジェクトからイベントを取得する方法だと思ったんですよね。

勘違いしたようで、どうも、スマソ。
去ります。
237 名前： デフォルトの名無しさん 投稿日： 2001/06/19(火) 05:30: VB初めて二日目なんですけど、フォルダ選択ダイアログってどうやって出すんですか？
いろいろコンポーネントをフォームに付けたんですけど、できませんでした。
238 名前： 237 投稿日： 2001/06/19(火) 07:03: ネットで検索したらWinAPIと使うとできるってありました。
239 名前： 232 投稿日： 2001/06/19(火) 09:13: やっぱりダイアログを自分で作った方が早いんですね
Windows自体のシステムフォント自体を変えるのは嫌なので

どうもありがとうございました
240 名前： デフォルトの名無しさん 投稿日： 2001/06/21(木) 00:10: msgboxで、メッセージとOKボタンのみ表示させてるのですが、ボタンを
押さないと次の処理に進みません。
OKボタンを押さなくても次の処理に進んでほしい場合、どんな手を使っ
てますか？よろしくお願いします。
241 名前： デフォルトの名無しさん 投稿日： 2001/06/21(木) 00:12: >>240
じゃあ何故MsgBoxを表示させるのか？
242 名前： デフォルトの名無しさん 投稿日： 2001/06/21(木) 00:47: 糞スレをsageるためにもだれか教えてやってくれ。

http://piza.2ch.net/test/read.cgi?bbs=tech&key=993048321&ls=50
243 名前： 237 投稿日： 2001/06/21(木) 07:59: 私の使用するアプリなんかで、MsgBox の「ＯＫ」ボタンとかにに自動的に
マウスカーソールが移動しますけど、その機能って VB で出来ますか？
Win2000 使用していてマウスプロパティで「規定のボタンに移動」をチェックしていても
自作のダイアログボックスの「ＯＫ」とかに移動しません。
244 名前： デフォルトの名無しさん 投稿日： 2001/06/21(木) 09:33: >>240
タイマー付きのモードレスのフォームを自作するのは？
245 名前： デフォルトの名無しさん 投稿日： 2001/06/21(木) 09:39: >>243
GetWindowRectと
SetCursorPosの合わせ技
246 名前： （＞Д＜）ﾏｽﾞｰ 投稿日： 2001/06/21(木) 12:55: すみません。
EXCELのマクロで質問させてください
EXCEL4.0の式で

=SELECT(OFFSET(ACTIVE.CELL(),,):OFFSET(ACTIVE.CELL(),,1))

というのはVBではどういう式になるのでしょうか？
お願いします。
247 名前： デフォルトの名無しさん 投稿日： 2001/06/21(木) 14:30: 誰か教えてください。（TT)

VBから、あるMDBに現在接続している人数を取得することは可能でしょうか？

テーブルに接続フラグみたいなものもてば出来るのですが、
この方法以外でなにかありましたらお願いします。
248 名前： デフォルトの名無しさん 投稿日： 2001/06/21(木) 14:57: >>247
net fileコマンドをリダイレクトしてロック数を調べる。
*実際にロックされるのは*.ldbファイルの方。
249 名前： デフォルトの名無しさん 投稿日： 2001/06/21(木) 17:59: >>248
おぉぉ！今までldbって何だぁって思ってた。
ありがとうございます。
バカですいませんでした。（TT)
250 名前： デフォルトの名無しさん 投稿日： 2001/06/21(木) 18:04: >>241
MsgBoxもＷinＡＰＩ３２なんですってね
ぜひバイナリが知りたいです
251 名前： 237 投稿日： 2001/06/21(木) 23:21: >>243
ありがとうございます。
ネットで検索してみます。
252 名前： デフォルトの名無しさん 投稿日： 2001/06/22(金) 03:53: >>250
Win32APIだよ。
それと「バイナリが知りたい」って、意味わからんけど。

ﾈﾀﾆﾏｼﾞﾚｽ?
253 名前： デフォルトの名無しさん 投稿日： 2001/06/23(土) 23:35: age
254 名前： デフォルトの名無しさん 投稿日： 2001/06/24(日) 00:21: ウインドウのXY軸を獲得したいのですが、可能でしょうか？
255 名前： デフォルトの名無しさん 投稿日： 2001/06/24(日) 00:33: 無理です>254
256 名前： デフォルトの名無しさん 投稿日： 2001/06/24(日) 00:39: >>254
う～ん、イマイチ日本語が分からない。
ウインドウを斜めに傾けたいって事なんだろうか。
257 名前： 254 投稿日： 2001/06/24(日) 00:54: XY軸っていうのも変ですよね･･･　スイマセン
マウスの位置を獲得するように、ウインドウの位置を獲得したいのです。
258 名前： デフォルトの名無しさん 投稿日： 2001/06/24(日) 01:09: XY座標っすね。
Me.Left, Me.Top でいいんじゃないかな？
259 名前： 254 投稿日： 2001/06/24(日) 01:44: ありがとうございます！　獲得できました。
260 名前： 237 投稿日： 2001/06/24(日) 01:55: 私が得をする情報をタダでください。
それによって私は大変な恩恵に預かりますが、あなたには何の
メリットもありません。
でも、いいじゃないですか？　どうせ情報なんてタダでしょ？

とても困っているので、情報を知っている人は私を助けなければ
いけません。これは義務です。
初心者にも分かるように説明してください。
私は、ごく普通の人間なので、パソコンのわけの分からない知識は
ありません。勉強するつもりもありません。時間の無駄です。
検索するなんて面倒です。どうしてそんな面倒な事するの？
知ってる人に聞けばいいじゃん。どうせタダだし。

マルチとか質問スレというのはヲタクのルールです。
私は普通の人間なのでヲタクのルールなど知ったこっちゃありません。
早く教えてください！
早く教えろ！
早く！
これだけ言ってもまだ教えねーのか？！
261 名前： 254 投稿日： 2001/06/24(日) 02:44: ↑帰ってくれ
質問したとき、返答が返ってこなくなる。
262 名前： デフォルトの名無しさん 投稿日： 2001/06/24(日) 04:35: http://yasai.2ch.net/test/read.cgi?bbs=win&key=991308935からの■お願いです■

400 名前：名無し~3.EXE 投稿日：2001/06/23(土) 17:58
丁度、400 だ(･∀･)ｲｲ!!。
http://namihei.zone.ne.jp/upup/up/390.lzh
必ず、Readme.txt を参照して下さい！

401 名前：　　　　投稿日：2001/06/23(土) 22:51
503で落ちてこないです・・・

402 名前：　　　　投稿日：2001/06/23(土) 22:56
落ちてきました！
最前表示ってのもいいです！

403 名前：名無し~3.EXE 投稿日：2001/06/23(土) 23:46
誰か引継ぎ？する人っているの？？

404 名前：名無し~3.EXE 投稿日：2001/06/24(日) 00:07
あげ

405 名前：名無し~3.EXE 投稿日：2001/06/24(日) 04:06
改造者もとむあげ

406 名前：４０５投稿日：2001/06/24(日) 04:11
消えていたみたいだからあげ直しします。
http://www.makani.to/akutoku/bbs/upload/dat/519.zip
ＺＩＰのパスは半角小文字でkubotaです

407 名前：４０５投稿日：2001/06/24(日) 04:12
↑
パスはkubotarだった

************************************
>>261
それはコピペです。
このプログラム板の数箇所に適当な名前ではってあります（煽り？)。
263 名前： 256 投稿日： 2001/06/24(日) 07:36: 私が得をする情報をタダでください。
それによって私は大変な恩恵に預かりますが、あなたには何の
メリットもありません。
でも、いいじゃないですか？　どうせ情報なんてタダでしょ？

とても困っているので、情報を知っている人は私を助けなければ
いけません。これは義務です。
初心者にも分かるように説明してください。
私は、ごく普通の人間なので、パソコンのわけの分からない知識は
ありません。勉強するつもりもありません。時間の無駄です。
検索するなんて面倒です。どうしてそんな面倒な事するの？
知ってる人に聞けばいいじゃん。どうせタダだし。

マルチとか質問スレというのはヲタクのルールです。
私は普通の人間なのでヲタクのルールなど知ったこっちゃありません。
早く教えてください！
早く教えろ！
早く！
これだけ言ってもまだ教えねーのか？！
264 名前： デフォルトの名無しさん 投稿日： 2001/06/24(日) 09:14: !kubotatないぞ
265 名前： デフォルトの名無しさん 投稿日： 2001/06/24(日) 14:30: http://namihei.zone.ne.jp/upup/up/012.lzh
!kubotar です。ソース付です。
わたしも初心者で超へたれですが、少し改造してみました。
266 名前： デフォルトの名無しさん 投稿日： 2001/06/24(日) 18:51: age
267 名前： > 投稿日： 2001/06/25(月) 15:37: カレントプロセスの名前を知りたいッス

GetClassNameで親プロセスのハンドルを渡してやりたいのですが、
親プロセスのハンドルを抜くＡＰＩってないですか？
268 名前： デフォルトの名無しさん 投稿日： 2001/06/25(月) 16:13: http://homepage2.nifty.com/software/vbunit/translate/tutorial-1.html
ここにあるチュートリアル通りやったのにうまくいきません。

RunVBUnitTutorial.exeを作成しようとすると、
「スタートアップフォームまたはSub Mainが必要です」
とか出ますが、チュートリアル通り、modMainというクラスを作成してそこに
Public Main()とか作成したのになぜかコンパイルできず。

VBUnit2のインストール(regsvr32)も出来ていて、きちんと参照設定されているし
何が悪いのかさっぱり分かりません。
269 名前：久遠投稿日： 2001/06/25(月) 16:13: 質問です。
C++でクラスを使ったDLLを作りました。
それをVBで読み出したいのですが・・・
Declear宣言の仕方がよくわかりません。

ご教授願います。
270 名前： デフォルトの名無しさん 投稿日： 2001/06/25(月) 16:21: >>269
それをやるならCOMにすべきです。
271 名前： デフォルトの名無しさん 投稿日： 2001/06/25(月) 17:23: >>267
GetCurrentProcess
272 名前： デフォルトの名無しさん 投稿日： 2001/06/25(月) 17:25: >>269
DEFファイルとextern "C"定義
273 名前： デフォルトの名無しさん 投稿日： 2001/06/25(月) 17:39: http://site.coco.co.jp/yuzu/
274 名前： デフォルトの名無しさん 投稿日： 2001/06/25(月) 17:46: >>272
「クラスを使ったDLL」て書いてあるじゃん。
275 名前： デフォルトの名無しさん 投稿日： 2001/06/25(月) 20:06: >>269
クラス自体をエクスポートしたいのか？
だったらやはりCOMじゃないか？
276 名前： デフォルトの名無しさん 投稿日： 2001/06/26(火) 20:41: >>274
すまん。見落とした
じゃ、"ATL COM AppWizard"でさくっとCOM作成
277 名前： デフォルトの名無しさん 投稿日： 2001/06/27(水) 16:44: VB4.0(32)で作成した EXEファイル(3.2M)を実行中していたら
下記のエラーが出てしまいました。

(EXEの名前）のスタックエラーです。
モジュール KERNEL32.DLL　アドレス :0137.....
　　　　　　　　　　・
　　　　　　　　　　・

このようなエラーが出るということは
何かがいけなかっただけなのでしょうか？
278 名前： デフォルトの名無しさん 投稿日： 2001/06/27(水) 17:21: >>277
何の関数をcallした時に発生したんすか？
279 名前： デフォルトの名無しさん 投稿日： 2001/06/27(水) 18:03: Visual BasicのフォームでExcel worksheetにリストした複数のテキストファイルを新規Word文書に順次コピーして1つのファイルにまとめたいのですが、Visual BasicからWord文書を、「すべて選択、コピー、閉じる、文書１をアクティブ化して、貼り付ける」ところのコーディングを教えていただけないでしょうか？

y = 1
wdName = "filler"
Do While wdName <> ""
wdName = ExcelBook.Worksheets("Sheet1").Cells(y, 1)
Set WordDoc = WordObject.Documents.Open(filename:=File1.Path & "\" & wdName)
Selection.WholeStory 'Word VBAなのでエラーになる
Selection.Copy '同上
ActiveWindow.Close '同上
　 Windows("文書 1").Activate '同上
Selection.Paste 'この代わりに下記のコードで動くが無駄がある？

WordDoc.Paragraphs(1).Range.Paste 'Paragraphs(1).Rangeが不要では？
y = y + 1
Loop
280 名前： デフォルトの名無しさん 投稿日： 2001/06/27(水) 23:40: VBを最近勉強し始めたものです。
現在、練習として電卓の作成を行っています。
マウスでのクリックでの動作はできるようになったんですが、テンキーからの入力がうまくいきません。
KeyDownを使って、Select case Keycodeで振り分けました。
数字と＋や-などの演算子はうまく動作するのですが、
Enterキーを『＝』として、使いたいのですが、うまくいきません。
フォーカスがあるボタンを押してしまいます。
あまり、うまく説明できていないかもしれませんが、どなたかわかるかた教えてください。
お願いします。
281 名前： デフォルトの名無しさん 投稿日： 2001/06/28(木) 12:45: >>280
ボタン自体にフォーカス行くのがまずいのなら
ボタンClickイベント処理後にどっかにフォーカス逃がせば？
282 名前： デフォルトの名無しさん 投稿日： 2001/06/28(木) 20:21: >>279
WordDoc.を付ける
283 名前： デフォルトの名無しさん 投稿日： 2001/06/28(木) 23:08: 初めまして。過去にあった質問ならすみません。

SUB　MAIN()

END　SUB

（SUB　MAIN）で始まるモジュールをexeファイルにして
バッチファイルから引数を二つ渡して実行したいのですが
どのようにすれば良いのでしょうか？バッチ上での
記述とＶＢでの記述を教えて下さい。お願いしますm(__)m。

バッチの例

テスト.exe　引数１,引数２
284 名前： 初心者 投稿日： 2001/06/28(木) 23:34: MSCommコントロールを使ってＰＣ←→機械の間でRS232Cケーブルでデータ
をやりとりするプログラム作成しているのですが、ＰＣから機械にデータ
を送る時にCRLF（復帰改行）が消えてしまうのですが、なぜなのでしょうか？

送信の仕方は普通に

Do
Open "FD" For Input As #1 'ファイルを開く
Line Input #1, Buffer 'ファイルを１行変数に入れる
MSComm1.Output = Buffer '変数を出力
Loop Until EOF(1) = true

という風に送っているのですが、文字データだけが送信されて改行コードは送られません。
なにか方法がありましたらお教えください。　お願いいたします。
285 名前： ビギナーず 投稿日： 2001/06/29(金) 00:05: >>283
Command
286 名前： ビギナーず 投稿日： 2001/06/29(金) 00:06: >>284

MSComm1.Output = Buffer & vbCrLf '変数を出力
287 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 00:24: 283>>285

ありがとう。明日会社で調べます。では。

ちなみに

vbCrlf=CHR(10)　6　CHR(13)

ですか？前、似たようなことをやったような
288 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 00:25: vbCrlf=CHR(10)　6　CHR(13)

　　　↓

vbCrlf=CHR(10)　&　CHR(13)
289 名前： 初心者=284 投稿日： 2001/06/29(金) 00:33: お返事ありがとうございます。
無理やり改行コードを足してやればいいだけなんですね。
本当に助かりました　ｍ（＿＿）ｍ
290 名前： ビギナーず 投稿日： 2001/06/29(金) 01:15: >>288
vbCrlf=Chr(13) & Chr(10)

おしい
291 名前： shige 投稿日： 2001/06/29(金) 03:11: 　　　　　　　　,, .: 。
　　＼( ﾟ´3ﾟ)- = 。ﾟ
　　　（　　）` :: . ﾍﾟｯﾍﾟｯ
　　　ノ　＼

VB使いってクズだね（ﾜﾗﾜﾗ
rubyの足元にも及ばないね。
292 名前： 65535点満点 投稿日： 2001/06/29(金) 03:17: >>291
２点。
もうすこし上手く煽ろうね。
293 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 10:27: Exchange 2000 Serverでアドレス一覧の追加、変更、削除がしたいのですが
やりかたがわかりません。
MSDNライブラリの[Finding Exchange AddressLists with ADSI」で
アドレス一覧の名前とクエリーは取得できることはわかりました。
だれか知りません？
294 名前： テリー 投稿日： 2001/06/29(金) 13:44: 特定のｅｘｃｅｌのファイルを、セキュリティーを目的として、独自の
ランチャープログラムを経由して開きたいのですが、
ランチャープログラムから、そのシリアル番号を引数として、
excelに渡したいのです。
excelのVBAで、そのシリアル番号を検証して、ファイルを
開かせる予定です。

引数をexcelに渡す方法についてなにか方法をご存知でしたら、
教えていただけませんか？
295 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 14:49: ApplicationオブジェクトのRunメソッドを使用する。
296 名前： テリー 投稿日： 2001/06/29(金) 15:03: ＞ApplicationオブジェクトのRunメソッドを使用する

初心者なので、引数をexcelに渡す方法について、
もう少し詳しく教えてください。
297 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 15:39: >>296
Excelのヘルプを見たまえ
298 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 15:47: ＡＣＣＥＳＳ２０００（ＡＤＯ）でＳＱＬサーバにストアドで
データをアップデート
使用としたときに
途中でネットワークのエラーでおちてしまうのですが
何が悪いのでしょうか？
アップデートするデータは、１００００件で
８０００件ぐらいで落ちてしまいます。
申し訳ないのですが、分かる方いたらよろしくお願いします。
299 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 16:11: >298
ＶＢの質問に見えんが．．
ＡＤＯが同期型になっておらず、
且つ
参照作業が直後に含まれいる。
てなことぐらいしか思いつかん。
300 名前： 298 投稿日： 2001/06/29(金) 17:14: >>299
返答ありがとうございます。
スレ違いで恐縮です

＞ＡＤＯが同期型になっておらず

この内容がちょっとよく分からないのですが
教えていただけないでしょうか
教えてクンんで恐縮ですが
よろしくお願いします。
301 名前： テリー 投稿日： 2001/06/29(金) 17:42: >297 名前：デフォルトの名無しさん投稿日：2001/06/29(金) 15:39
>>296
>Excelのヘルプを見たまえ

えーヘルプを見てもわからないから、質問させていただいて
いるのですが、助けてください。
302 名前： 295 投稿日： 2001/06/29(金) 17:51: >えーヘルプを見てもわからないから、質問させていただいて
いるのですが、助けてください。

「該当する項目をヘルプで見つけられない」
「見つけたが理解できない」

のどちらですか？

それと他の場所でも質問されてますね。どっちで答えていいのか
迷います:-)
303 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 17:55: >>300
非同期：ストアドのコマンド投げっ放し
同期：投げた処理が終了して戻ってから次へ

ＡＤＯについてはココの adAsyncExecute 見て下さい。
http://www.e-soshiki.com/kenkyu/reports/ADO.htm
304 名前： テリー 投稿日： 2001/06/29(金) 17:59: ＞３０２

＞「該当する項目をヘルプで見つけられない」
まずこのレベルに該当します。

＞「見つけたが理解できない」
従いこれも該当します。

もう少し詳しく教えていただくと、
こんな感じで出来るでしょうと、ソフト屋さんに
説明できると思ったもので。

＞それと他の場所でも質問されてますね。どっちで答えていいのか
＞迷います:-)

あー失礼しました。こちらで教えていただけますか？
他は削除します。
305 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 18:01: >>294
よくわからんがVBAで認証をしてもVBAを無効にしたら
開けちゃうのでは？
306 名前： テリー 投稿日： 2001/06/29(金) 18:07: ＞３０５
元のエクセルファイルはパスワード設定していて
開けないのですが、よりセキュリティーがかかっていると
見せたいのです。
307 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 18:08: >>304
VBEditerの画面のヘルプで検索しろ！
308 名前： テリー 投稿日： 2001/06/29(金) 18:13: ＞３０７
ここは、初心者質問スレ　だったので、質問したまでです。

＞ヘルプで検索しろ！

その程度の回答が帰ってくるのが、初心者質問スレ
ということでしたか。判りました。
引っ込みます。
ありがとうございました。
309 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 18:15: >>306
見せかけだけってこと？
変なのー
310 名前： shige 投稿日： 2001/06/29(金) 18:17: ぷぷっ
VBだってさ。
ruby>>>>>>>>>>>>>>>>>>>>>>>>>>VB
311 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 18:21: デフォルトの名無しさん>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>shige
312 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 18:22: 2ch>>>>>>>>>>>>>>>>>>>>>>>>>yahoo
313 名前： 298 投稿日： 2001/06/29(金) 18:45: >>303
ご返答ありがとうございました。

>>ＡＤＯが同期型になっておらず
先程教えて頂いたＵＲＬを参照したのですが
adAsyncExecuteでは非同期になってしまうんじゃないでしょうか？

教えてくださいばかりで申し訳ありませんが、何卒よろしくお願いいたします。
314 名前： 295 投稿日： 2001/06/29(金) 18:57: ExcelオブジェクトのリファレンスはVisual Basic Editorのヘルプ
からたどれます。つまりExcel本体のヘルプからはたどれません。
デフォルトのインストールだとこのヘルプファイルがインストール
されないので、その場合は追加インストールする必要があります。
315 名前： デフォルトの名無しさん 投稿日： 2001/06/29(金) 21:58: >>313
基本的にデフォルトが同期で非同期が明示的な指定ですね。
別に同期になってるんなら別の原因なんじゃないでしょうか。
これ以上はわかりません、すいません。
-----------------------------------------------------------------
昔、ＲＤＯのとき特定のバージョン使用のときにデフォルトが非同期になってしまうというアホな状況がありました。
ＲＤＯ３．０＋ＤＢ２（バージョン忘れた）でＳＱＬＡＰＩでむりやり同期指定した記憶があります。結構大騒ぎ
でもこれはイレギュラーなことなんで..大体ＲＤＯはクサかった、ＡＤＯは安定だと思われ
-----------------------------------------------------------------
316 名前： デフォルトの名無しさん 投稿日： 2001/06/30(土) 01:09: 283>>285

どうもありがとうございました。見事に解決できました。
引数は自分で分解すれば良いだけだったんですね(^^;
朝一で実行の必要があったので、マジ助かりでした。謝謝
317 名前： 298 投稿日： 2001/06/30(土) 11:09: >>315
色々アドバイス頂きありがとうございました。
頑張ってみます。
318 名前： デフォルトの名無しさん 投稿日： 2001/06/30(土) 12:29: Outlookのフォームに、VBSで

Function Item_Read()
　　Set myInspector = Application.ActiveInspector
　　MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myInspector.CurrentItem.Subject
End Function

としたのですが、
myInspectorオブジェクトがないと怒られてしまいます。
でも、
　　Set myInspector = Application.ActiveInspector
　　MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myInspector.CurrentItem.Subject
の２行はVBSでのActiveInspectorの例としてwindowsHelpに載っていたもの
をコピペしただけなのに・・・
なぜなのでしょう？教えていただけたら幸いです。
319 名前： デフォルトの名無しさん 投稿日： 2001/06/30(土) 19:10: age
320 名前： デフォルトの名無しさん 投稿日： 2001/06/30(土) 23:52: >>318

Set myInspector = new Application.ActiveInspector
じゃなくって？
321 名前： アリスハァハァ 投稿日： 2001/07/01(日) 00:29: 質問です。
Ｖｉｓｕａｌ　Ｂａｓｉｃの体験版ってどこで手に入りますか？
322 名前： 318 投稿日： 2001/07/01(日) 15:06: >>320
そしたら今度はクラスが足りません。"Application"と怒られました。
そこで、
Function Item_Read()
Set Application = CreateObject("Outlook.Application")
Set myInspector= new Application.ActiveInspector
MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myInspector.CurrentItem.Subject
End Function
と足したら、
「プロパティが読み取り専用です」行番号２
と怒られました。
厨房ですまんです。「プロパティが読み取り専用です」でgoogle検索しても０件。。。
カンチガイしてるんでしょうか？
323 名前： デフォルトの名無しさん 投稿日： 2001/07/01(日) 15:18: >>322
じゃー。↓はどう？
Outlookの環境ないから検証はしてないっす。

Function Item_Read()
Set Application = CreateObject("Outlook.Application")
Set myCurrenItem= Application.ActiveInspector.CurrentItem
MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myCurrenItem.Subject
End Function
324 名前： 318 投稿日： 2001/07/01(日) 15:29: >>323 ありがとうございます。
んーでも、同じです（泣）。
（「プロパティが読み取り専用です」行番号２と言われる・・・）
325 名前： デフォルトの名無しさん 投稿日： 2001/07/01(日) 15:54: >>323
多分、Applicationが読取専用なんすね。

Set m_App = CreateObject("Outlook.Application")
とかローカル用の定義にかえてみては？
326 名前： デフォルトの名無しさん 投稿日： 2001/07/01(日) 15:56: Application って予約後では？
327 名前： デフォルトの名無しさん 投稿日： 2001/07/01(日) 21:02: 予約後じゃねえよ。
単なる定義済みグローバル変数駄。
328 名前： デフォルトの名無しさん 投稿日： 2001/07/01(日) 22:26: 圧縮ソフトみたく、
エクスプローラー右クリックした時に表示されるコンテキストメニューに
「書庫を作成」というメニューを表示させて、選択されたら処理するような
サンプルとか知りませんか？
329 名前： デフォルトの名無しさん 投稿日： 2001/07/02(月) 21:44: 電卓作ってるんだけど
１＋１＝２ってだすプログラムの方法教えてください。
勉強はじめたばっかでわかりません
330 名前： デフォルトの名無しさん 投稿日： 2001/07/02(月) 22:08: 電卓はサンプルプログラムが付いてるぞ。。<VB
331 名前： デフォルトの名無しさん 投稿日： 2001/07/02(月) 23:26: コントロール配列使って、電卓のボタン押したとき、その数字を画面に表示させたいんだけど・・
できないよ～～
332 名前： デフォルトの名無しさん 投稿日： 2001/07/02(月) 23:28: >>331
なんで？
333 名前： デフォルトの名無しさん 投稿日： 2001/07/02(月) 23:30: >>332
今練習でやってるの・・・教えてｹろ～～
334 名前： デフォルトの名無しさん 投稿日： 2001/07/02(月) 23:32: >>333
必殺
わからないところがワカラン
335 名前： デフォルトの名無しさん 投稿日： 2001/07/02(月) 23:34: >>334
とりあえず０～９までのボタン作って
それクリックしたら、その数字が、テキストボックス１に出るようにしたいの
コントろ－る配列を使って
336 名前： デフォルトの名無しさん 投稿日： 2001/07/02(月) 23:44: >>335
０．フォームにテキストボックスを置く（名前：Text1）
１．フォームにボタンを置く
２．そいつを Ctrl+C でコピーに吸い取る
３．フォームに春
４．配列にするか？と聞かれてハイ
５．どれかボタンを２度叩く
６．コーディング画面にハンドラが出る
７．以下のコード
If Index = 0 Then
Text1.Text = "0"
ElseIf Index = 1 Then
Text1.Text = "1"
' ElseIf Index = 2 Then
' Text1.Text = "2"
End If

こんな感じかな
337 名前： デフォルトの名無しさん 投稿日： 2001/07/02(月) 23:49: >>336
ありがとう～神様
338 名前： デフォルトの名無しさん 投稿日： 2001/07/02(月) 23:54: >>336
あと足し算頑張って作るよ。
でもどうやって
１回目に表示させた数字と２回目（プラスを押したあと）に表示
する数字を足すんだろ。両方ともテキストボックス１にしか表示させないから・・
困る
339 名前： デフォルトの名無しさん 投稿日： 2001/07/03(火) 00:04: グローバル変数にコイツラを持っておく
Dim Ans As Integer ' 現在の答え
Dim Enzansi As Integer ' 前回押された演算子

･･･
作り方によりけりだね、がんばってちょうだい
340 名前： デフォルトの名無しさん 投稿日： 2001/07/03(火) 01:01: だから、電卓のサンプルプログラムはVBのCDのなかに入ってるだろうッ。
341 名前： デフォルトの名無しさん 投稿日： 2001/07/03(火) 01:51: >>340
必殺「友だちから借りました」ってやつなんだろ。
でなきゃ「学校からもってきました」かね。
342 名前： デフォルトの名無しさん 投稿日： 2001/07/03(火) 02:59: >>328

SendToにいれるのは駄目？
343 名前： デフォルトの名無しさん 投稿日： 2001/07/03(火) 15:43: すんません、教えて下さい。
文字列を切り離したい時はどーしたらいいのでしょうか？
例えば、変数に"aaa/bbb/cccc/"って入ってる時に、"/"の部分で切り離すようにしたいのです。
結果としては、aaa,bbb,ccccって感じで。
cgiだったら、簡単にできる関数が用意されてるみたいなんですが、ＶＢにもあるのでしょうか？
宜しくお願いします。
344 名前： デフォルトの名無しさん 投稿日： 2001/07/03(火) 17:27: >> 343
Replace()
区切り記号に "/" を指定すれば配列にバラせるよ
345 名前： デフォルトの名無しさん 投稿日： 2001/07/03(火) 17:29: ごめん、何寝ぼけてんだ俺
Replace じゃなくて Split だよ
こんなひどいマジボケは生まれて初めてだ詩嚢
346 名前： デフォルトの名無しさん 投稿日： 2001/07/03(火) 20:59: そんなになげかんでも...
347 名前： デフォルトの名無しさん 投稿日： 2001/07/03(火) 23:51: >>342
それだと「送る」に入るだけで、
メニューには乗らないねー。

しかし、VBで実現できるのか？
348 名前： 343 投稿日： 2001/07/04(水) 09:07: >345
どーも、ありがとーございます。
やってみます。
349 名前： デフォルトの名無しさん 投稿日： 2001/07/04(水) 09:53: ツッコミが入る前に気がついてよかったじゃないか。
350 名前： デフォルトの名無しさん 投稿日： 2001/07/05(木) 12:53: １０進法を　２進法とかに変えるプログラム教えてください
351 名前： デフォルトの名無しさん 投稿日： 2001/07/05(木) 13:02: >>350
BIN()
352 名前： デフォルトの名無しさん 投稿日： 2001/07/05(木) 13:43: VB6では「利用可能なアドイン」に表示されるアドインが
Office2000VBAでは表示されません
Officeのオプションで、何か追加しなければいけませんか？
353 名前： デフォルトの名無しさん 投稿日： 2001/07/05(木) 14:22: >>336

こんな、典型的な宿題厨房に回答する必要ないぞ。
354 名前： デフォルトの名無しさん 投稿日： 2001/07/05(木) 14:52: ウインドウの右上に「最小化」「元の大きさに戻す」「閉じる」ってボタンがありますよね。
それを表示させないようにする事はできるんですか？

又、「閉じる」ボタンを押した時にどういう動きをさせるかってのは、どうすればいいんですか？

ご存知の方がいらっしゃいましたら、教えて下さい。
宜しくお願いします。
355 名前： ビギナーず 投稿日： 2001/07/05(木) 15:48: >>354

＞ウインドウの右上に「最小化」「元の大きさに戻す」「閉じる」ってボタンがありますよね。
＞それを表示させないようにする事はできるんですか？
ControlBoxをfalse

＞又、「閉じる」ボタンを押した時にどういう動きをさせるかってのは、どうすればいいんですか？
どういう動きをさせるかというのはどういうことでしょ？
ウィンドウにWM_CLOSEをPOSTするってこと？
356 名前： デフォルトの名無しさん 投稿日： 2001/07/05(木) 15:53: >>353
カウンセリングも技術のうち
357 名前： 354 投稿日： 2001/07/05(木) 16:11: >>355

＞ControlBoxをfalse
すみません、僕の説明が不充分でした。
これは知ってるんです。
でも、このやり方だと、全部消してしまう事になっちゃいますよね。（確か）
そうじゃなくて、３つのボタンのうち一つだけ表示させるとか、そういう感じです。

＞どういう動きをさせるかというのはどういうことでしょ？
＞ウィンドウにWM_CLOSEをPOSTするってこと？
「×」ボタンでウインドウを閉じようとした時に、例えばメッセージボックスを表示させるとかそーいう事です。
358 名前： デフォルトの名無しさん 投稿日： 2001/07/05(木) 18:10: >>353

宿題を教えたって誰も得せん
359 名前： デフォルトの名無しさん 投稿日： 2001/07/05(木) 18:57: 初心者質問スレ
でガタガタ言うのはやめましょう。スレ違い
360 名前： 343じゃないけど… 投稿日： 2001/07/05(木) 20:49: >>345
ありがとう、ちょうどこういうの探してたんだ。
マジで助かったよ
361 名前： デフォルトの名無しさん 投稿日： 2001/07/06(金) 00:56: >>357
最小化と最大化はどっちか表示されてると両方表示されるんじゃなかったっけ？
どっちかをDisableにするのは簡単
362 名前： デフォルトの名無しさん 投稿日： 2001/07/06(金) 02:24: >>357　こうか?
Private Sub Form_Unload(Cancel As Integer)
　　MsgBox "逝ってよし"
End Sub
363 名前： 357 投稿日： 2001/07/06(金) 09:14: >>361
では、「×」ボタンを非表示、又はクリックしても何も動作しないようにするには、どうするのですか？

>>362
ありがとうございます。
では、そのメッセージボックスに「はい」「いいえ」の選択肢を設けて、「はい」を選んだらそのまま閉じる。（これはできました。）
「いいえ」を選んだら、元の画面に戻るというようにする事は可能でしょうか？
364 名前： ビギナーず 投稿日： 2001/07/06(金) 09:40: >>357
そういうことね

Unloadイベントのcancelパラメータに0以外の値を設定したら、
フォーム消えないっすよ
365 名前： 363 投稿日： 2001/07/06(金) 11:41: >>364
おおっ、できました！
感動です。
ありがとーございます！
366 名前： デフォルトの名無しさん 投稿日： 2001/07/06(金) 14:17: オプションボタンっていくらTAB_STOPをfalseに設定してても、
フォーカスを受けた時とかに自動的にtrueになるんですけど、
falseのままにする方法とかあります？
367 名前： デフォルトの名無しさん 投稿日： 2001/07/06(金) 21:48: エクスプローラーみたいに、ウインドウを、まん中のバーでリサイズ可能な
ペインに分割することはできますか？

Lineコントロール使って分割っていうのは、できれば避けたいです。
ぶかっこうなので。
368 名前： ビギナーず 投稿日： 2001/07/07(土) 01:47: >>366
フォーカスを受けたらfalseにすれば？
369 名前： デフォルトの名無しさん 投稿日： 2001/07/07(土) 07:21: VBつかい　バカ以上の事　出来ないね（五・七・五）

（げらげら）
370 名前： デフォルトの名無しさん 投稿日： 2001/07/07(土) 17:43: あの，ちょっといいでしょうか？
ＶＢを初めて３日です。初めて作ったものを，
exeにして実行できるようにしたのですが，
アイコンを変えたいんです。
アイコンは用意してありますが，
どうやったらいいんでしょうか？
お助けください。マジレス希望です！
371 名前： 46 投稿日： 2001/07/07(土) 19:34: >>370
プロパティウィンドウのformのIconをクリック、好きなアイコンを選ぶ
だけ。
372 名前： 370 投稿日： 2001/07/08(日) 01:10: >>371
できました！感激です！
どうもありがとうございました！
373 名前： デフォルトの名無しさん 投稿日： 2001/07/10(火) 10:03: つまらない質問かもしれませんがおねがいします
VBで印刷がうまくおこなえません
フォームを印刷するとき、印刷用紙のサイズに合わせるにはどうすればいいでしょうか?
サンプルコードなどを頂けたら、助かります
374 名前： デフォルトの名無しさん 投稿日： 2001/07/10(火) 10:13: >>367
アプリケーションウィザードでエクスプローラスタイルで
作成すれば、それをサンプルにできるよ。
375 名前： D使いβ 投稿日： 2001/07/10(火) 18:36: >>373
Form1.PrintFormじゃなくて、
Printer.PaintPicture Form1.Image, x, y, w, h
を使うといいかも。

拡大率はFormとPrinterのScaleHeightまたはScaleWidthから
求めればいい。
376 名前： VB初心者 投稿日： 2001/07/11(水) 14:29: MSCommを使用して機械とパソコン間でデータをやりとりするプログラムを書いているのですが
ハイパーターミナルでデータ送信命令のコマンドを打つとちゃんとデータを送ってくるのに
MSCommで同じように命令を送ると何の返事も返ってきません。
MSCommとハイパーターミナルではやり方が違うのでしょうか？
もちろんMSCommの設定とハイパーターミナルの設定は同じようにしております。
下にコーディング例を書いておきます。
なにか原因があればご教授ください。　お願いいたします。
377 名前： VB初心者 投稿日： 2001/07/11(水) 14:30: 376です　お願いいたします

Private Sub Start_Cmd_Click()

'　MSCommコントロールの初期設定

MSComm1.CommPort = 1 '通信ポートNo指定
MSComm1.Settings = "9600,e,8,2" '通信条件設定
MSComm1.Handshaking = comNone 'フロー制御無し
MSComm1.PortOpen = True 'ポートを開く

MSComm1.InputLen = 0
MSComm1.OutBufferCount = 0

Dim Buffer As String
Buffer = "@READ B<SOFT>" & vbCrLf

MSComm1.Output = Buffer 'データ読み出しコマンド送信

Do 'データ送信終了まで待機
Loop While MSComm1.OutBufferCount >= 1

MSComm1.Output = "" 'データ受信待ち受け処理

Do Until MSComm1.InBufferCount > 0 'データが入ってくるまで回れ
Loop

Do Until MSComm1.InBufferCount = 0 'データがなくなったら抜けろ
If MSComm1.InBufferCount = 0 Then
Sleep (1000)
End If

Buffer = Buffer & MSComm1.Input

If MSComm1.InBufferCount = 0 Then
Sleep (1000)
End If
Loop

End Sub
378 名前： デフォルトの名無しさん 投稿日： 2001/07/11(水) 15:08: >>376
MSCommに慣れるためにパソコン同士をつないでテストプログラムを
作ってみてはいかがでしょう？
379 名前： デフォルトの名無しさん 投稿日： 2001/07/11(水) 15:27: >>376
MsCommのサンプルだったら、ネット上にアホほど
転がってるでしょ。
>>378も言ってるけど、COMポートが二つあるＰＣなら、
自分同士で通信のテストできるよ。
380 名前： VB初心者 投稿日： 2001/07/11(水) 15:39: お返事ありがとうございます。
既にテスト用のプログラムも作りましたし、
Vector等でテストプログラムを取ってきて使っております。
それでＰＣを２台繋いだ状態でテストすると完璧に送受信できているのですが
実際に機械に繋いで動かすと全然動かないのです。
それで、ハイパーターミナルとMSCommでは何か違うことをしなければいけないのか
（例：文字列を送る時に文字コードで送るとか）
と思いましてお聞きした次第です。
381 名前： デフォルトの名無しさん 投稿日： 2001/07/11(水) 15:47: >>380
vbCrLf でいいですか？
382 名前： デフォルトの名無しさん 投稿日： 2001/07/11(水) 15:55: >>380
LoopにDoEventsがないけどいいですか？
383 名前： VB初心者