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

1 ：１：int 2ch ＝05/04/02(土) 12:54:45

ここは Visual Basic ～6.0 の質問スレです。
質問者は使用しているOS、VBのバージョン、サービスパック
何がしたくでどうしたけどどう困っているのかを明確に書きましょう。

○関連スレッド
VB.NETは別物なので、基本的に質問はこちらへ
VB.NET質問ｽﾚ (Part7)
http://pc5.2ch.net/test/read.cgi/tech/1096683017/l50

API関連の質問はこちらへ
Win32API質問箱 Build24
http://pc5.2ch.net/test/read.cgi/tech/1098967135/l50

MSDN Online Japan ホーム
http://www.microsoft.com/japan/msdn/default.asp
Visual Studio 6.0 Service Pack 6 正式リリース
http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx
Google
http://www.google.co.jp/
※「まず自分で調べる」を身につけよう。

心得
一．質問する前に過去ログにも目を通してみる。
二．質問する前に MSDN などで調べてみる。
三．VBScript もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。
五．荒らしは相手しない。
六. VB情報募集中。
七．VB.NETの話題できるだけひかえる。

前スレ Part40 http://pc8.2ch.net/test/read.cgi/tech/1106748775/

2 ：デフォルトの名無しさん：int 2ch ＝05/04/02(土) 12:55:51

3 ：デフォルトの名無しさん：int 2ch ＝05/04/02(土) 13:20:51

３

4 ：デフォルトの名無しさん：int 2ch ＝05/04/02(土) 13:33:27

前スレのバカ発言をさらしとくか

９９０、９９１
ｖｂしか知らないとか人の批判してるけど、お前らも社会からみたらたいした事ないからｗ
管理する人＆経営する人の大変さが解るぐらい早く大人になれよｗ

5 ：4：int 2ch ＝05/04/02(土) 13:34:19

これに対する質問が↓

根拠がどこにも書かれていないようですが？

根拠よろしく。

6 ：デフォルトの名無しさん：int 2ch ＝5,2005/04/02(土) 15:03:12

テキストデータの保存と読み込みのＡＰＩ教えてくれたらくねくね

7 ：デフォルトの名無しさん：int 2ch ＝5年,2005/04/02(土) 15:10:49

>>4-5
ねちねちねちねち

8 ：デフォルトの名無しさん：int 2ch ＝5年,2005/04/02(土) 15:14:49

偉い人 <<よし、ここでＩＤ導入だ。>>

9 ：デフォルトの名無しさん：int 2ch ＝5年,2005/04/02(土) 15:18:30

殺伐としてる時に訊いたのは間違いだったか

10 ：デフォルトの名無しさん：int 2ch ＝5年,2005/04/02(土) 15:33:54

>>9
「くねくね」を見てフザケテルと判断した。

提案なんだが名前欄に"質問"と書いたらどうか？
回答と御礼は今まで通りのアンカーで。

11 ：質問：int 2ch ＝5年,2005/04/02(土) 15:38:52

テキストデータの保存と読み込みのＡＰＩ教えてください（　＾ω＾）

12 ：デフォルトの名無しさん：int 2ch ＝5年,2005/04/02(土) 15:42:58

ReadFileとWriteFileでよくねえ

13 ：デフォルトの名無しさん：int 2ch ＝5年,2005/04/02(土) 15:46:55

ありがとう
約束通りくねくね

14 ：デフォルトの名無しさん：2005/04/02(土) 22:46:13

>>7
根拠よろしく

15 ：デフォルトの名無しさん：2005/04/02(土) 22:46:40

>>10
誰も同意してくれないね。

16 ：デフォルトの名無しさん：2005/04/02(土) 22:48:27

>>15
「誰も同意してくねくね」に見えた。

17 ：デフォルトの名無しさん：2005/04/02(土) 22:51:20

>>16
見えない。そういうこと書くときは、頭に「変態の俺には」って付けたら？

18 ：16：2005/04/02(土) 23:08:07

>>17
童貞ではあるが決して変態ではない！

19 ：デフォルトの名無しさん：2005/04/02(土) 23:13:34

>>18
証拠がないので却下ですね。

20 ：16：2005/04/02(土) 23:23:42

>>19
ﾒﾝﾄﾞｲから変態でいいです。

21 ：デフォルトの名無しさん：2005/04/02(土) 23:26:14

>>20
じゃあこれから名前欄に「変態」って書いてくれると分かりやすくていいね。

22 ：童貞かつ変態な俺：2005/04/02(土) 23:34:40

>>21
これでいいですか？

23 ：デフォルトの名無しさん：2005/04/03(日) 00:10:25

>>22
それを継続するようにな。今だけじゃ意味ないぜ。

24 ：デフォルトの名無しさん：2005/04/03(日) 01:37:44

なんだこの愉快な流れはw

25 ：デフォルトの名無しさん：2005/04/03(日) 22:26:52

もへもへ

26 ：童貞かつ変態な俺：2005/04/03(日) 23:15:57

今日もやってきましたよ。何か質問ある？

27 ：デフォルトの名無しさん：2005/04/04(月) 03:32:24

性癖を詳しく。

28 ：デフォルトの名無しさん：2005/04/04(月) 03:54:50

今日もやってきたの。ふ～ん。

やってきたんなら童貞じゃないじゃん。

29 ：童貞かつ変態な俺：2005/04/04(月) 04:19:55

日本語って難しいね。
>27 「くれないね」が「くねくね」に見えたりするぐらいで、
これといった性癖はありません。VB関連の質問はないの？

30 ：デフォルトの名無しさん：2005/04/04(月) 08:59:49

>>29
此処に月日を４桁で入力させるﾃｷｽﾄﾎﾞｯｸｽがあると思いねぇ。
当然、１３月や３２日はありえないし月ごとに月末日が異なる訳さ。
アンポンタンなユーザーが"0431"とか"1540"とか入力しても
上限値に修正してやるってぇ処理をするにはどうすれば良いと思う？
暇潰しだと思って考えてみてくれ。

31 ：童貞かつ変態な俺：2005/04/04(月) 09:24:58

>>30
IsDate()なんていう便利な関数があるよ。
これだけでは提示された要件を満たすことはできないけど、
年の取扱いを工夫すればなんとかいけるんじゃないかな？

32 ：デフォルトの名無しさん：2005/04/04(月) 09:37:33

>>30
ヘタな質問の仕方。

33 ：デフォルトの名無しさん：2005/04/04(月) 09:43:59

>>30
末日の取得はVBでもExcelでも初歩の初歩。
1行で出来る。

34 ：デフォルトの名無しさん：2005/04/04(月) 09:44:49

>>33
初歩の範囲を定義して。

35 ：童貞かつ変態な俺：2005/04/04(月) 09:45:40

>>32
「ヘタな質問の土方歳三」に見えた。

36 ：デフォルトの名無しさん：2005/04/04(月) 09:49:42

>>30
年と月がわかれば、DateAddでその月の最終日はわかる
次の月の一日前だ

37 ：デフォルトの名無しさん：2005/04/04(月) 10:02:07

入力された日付が不正な場合、勝手に上限値に修正するのはどうかと思われ。
エラーメッセージの表示に留めておくべき。

38 ：30：2005/04/04(月) 11:25:49

オマエラなんでも関数に頼ろうとすんな！俺が言ってんのは
馬鹿みたいに分岐と代入だけ使ってやってみろって意味だﾄﾞﾗｧ！
ちなみに、閏年なんて都市伝説です。

39 ：デフォルトの名無しさん：2005/04/04(月) 11:29:19

>>38
しねよ

40 ：デフォルトの名無しさん：2005/04/04(月) 11:29:22

>>38
もしかして、分岐と代入がかけなかったの？

西向く侍以外は３１、２以外は３０、２はとりあえず生きてる間は４で割れたら２９．

41 ：デフォルトの名無しさん：2005/04/04(月) 11:40:51

>>35
見えません

42 ：デフォルトの名無しさん：2005/04/04(月) 11:42:18

>>38
閏年を考えないってんならLostFocusｲﾍﾞﾝﾄで
上2桁が12より大なら上2桁を12に差し替えて、
次に下2桁をCase分岐すれば良いんじゃねぇですか？
分岐と代入以外に取り出し?も使ってるけど…

43 ：童貞かつ変態な俺：2005/04/04(月) 12:06:47

ﾒﾝﾄﾞｲことはイヤずら。

44 ：デフォルトの名無しさん：2005/04/04(月) 15:53:22

毎月、第３日曜日を表示するようにしたいんですが、
いまいちロジックが浮かびません。
どのようにしたらいいですか？

45 ：44：2005/04/04(月) 15:53:54

よろしくお願いします。ｍ（＿＿）ｍ

46 ：デフォルトの名無しさん：2005/04/04(月) 16:22:17

つきの１日から末日までループ。
ループ内で日付をFormat関数で曜日化。
日曜が３回目のご登場で抜け。

47 ：デフォルトの名無しさん：2005/04/04(月) 16:50:03

>>44
1日の曜日を調べる→第1日曜がわかる→14を足す

48 ：44：2005/04/04(月) 17:35:03

>>46-47
ありがとうございました。ｍ（＿＿）ｍ
ＤＢの登録に使うだけなので、46さんのループを使いました。
また今度、47さんの方法を使ってみようと思います。
また、よろしくお願いします。ｍ（＿＿）ｍ

49 ：デフォルトの名無しさん：2005/04/04(月) 18:21:53

VB.6.0にて漢字を入力したら振り仮名を自動でテキストボックスに表示させたいのですが
どのようなコーディングをすればよいのでしょうか。

50 ：デフォルトの名無しさん：2005/04/04(月) 18:26:01

CommonDialog1.Filter = "Data(*.dat)|*.dat"

これを「.datか.txt」にするにはどうしたらいい？
教えて、童貞で変態な人

51 ：Data(*.dat;*.txt)|*.dat;*.txt：2005/04/04(月) 18:30:51

>>50
回答してもらう気あるのか？

52 ：デフォルトの名無しさん：2005/04/04(月) 18:33:02

>>51
サンクス

めっちゃありますよｗ

53 ：デフォルトの名無しさん：2005/04/04(月) 18:42:21

>>44
少し遅かったようだけど、、、
第3日曜日は15～21の範囲に出現することを利用して
22 - Weekday(DateSerial(nYear, nMonth, 21), vbSunday)
これで求めることができるよ。

54 ：デフォルトの名無しさん：2005/04/04(月) 19:14:41

>>53
うわー、すっごい汎用的だねー。

アホ

55 ：53：2005/04/04(月) 19:26:52

>>54
ダメ？　どの辺が気に食わない？

56 ：デフォルトの名無しさん：2005/04/04(月) 19:33:10

別回答を示せないで足引っ張る春厨はほっとけ

57 ：デフォルトの名無しさん：2005/04/04(月) 19:36:59

>>53
第○×曜日を求められる方がよい。

58 ：デフォルトの名無しさん：2005/04/04(月) 19:44:58

>>49
↓この辺を参考に自前で実装するしかないと思う。

テキストボックスの漢字をひらがなに戻すには
http://homepage1.nifty.com/MADIA/vb/vb_bbs2/200309_03090059.html

59 ：デフォルトの名無しさん：2005/04/04(月) 21:53:27

>>57
それは>>44の要件から外れてるやん。

60 ：デフォルトの名無しさん：2005/04/04(月) 22:07:00

>>59
あ、そう。要件を包含して満たすことは考慮しないのですか。
まーそういう生き方もいいでしょうね。

61 ：デフォルトの名無しさん：2005/04/04(月) 22:07:55

>>59
すげーなー、お前のプログラムには
「第3日曜日取得関数」っての作るつもり？ｗ
ウケ狙いならいいけどさ。

62 ：デフォルトの名無しさん：2005/04/04(月) 22:31:11

低脳だな
「要件」という言葉の意味がわからないのか？

63 ：デフォルトの名無しさん：2005/04/04(月) 22:50:50

>>62
分かるよ。君は要件を満たせば手段は問わないんでしょ。
それも分かったよ。

64 ：デフォルトの名無しさん：2005/04/04(月) 22:52:07

>>61
普通は「第○×曜日取得関数」を作っておいて、
○に3、×に日を設定することで要件を満たすように
作ると思うがな。

ま、>>60が指摘しているように、お前みたいな生き方も
いいんじゃないの？ばれるまでは。

65 ：デフォルトの名無しさん：2005/04/04(月) 23:04:09

必死につっこむよりサクッと作って置いてくほうがｶｺｲｲと思った。

66 ：デフォルトの名無しさん：2005/04/04(月) 23:09:21

　　　　　　　　　　　　　　　　　　　_,,,,,.........,,,,__
　　　　　　　　　　　　　　　　　／:;:;:;:;:;:;:;:;:;:;:;:;:;,丶
　　　　さっさと作れや… 　/:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;.,ヽ
　　　　　　　　　　　　　　　 i' ' ' ' ' ' ' ' 'i;:;:;:;:;:;:;:;:;.,|
　　　　,.-‐￢￣-､¨￢‐､　　|＼,.　､／　 L:;:;:;:;:;:;.;.l
　　／／／／""`'""''ヽｿ-‐l=・=　=・=　　ヽ:;/¨iﾉヽ、
　　//////」　　-=＝＝ }　　|　　　　　　　　　,ノ./lllll/、
　　i//ﾉｿ,._______,.""'　 '".i,　　l　`_　　　　　　 .／lllll/　ヽ
　　ヽ彡i.6￣￣i.,__ﾉ⌒i.,_ﾉ　..::ゝ.,_____,,,...-　／llllllll/　　　ヽ
　　/ヽ　ゝ'　　　　,rti.l.l.l.､）ゝノlllllllllゝ.,__,ノlllllllllllllｿ　　　　 .}
⌒`ヽ､ヽ　li　　　　　　　./ヽllllllllllllllllllllllllllllllllllllllliゝ /　　　 /
､　　 V ヽ　ゝ　 _,......__ ノﾉ　ヽllllllllllllllllllllllllllllllllli／　　　 ./
丶､,.､,ヽ　　　　ミ三　　 ` ￢ ‐‐---‐￢　¨￣
　　　　　　　 (（　　￣￣ ¨￢‐- ..,_
　　　　　　　　　　l 川 |

67 ：デフォルトの名無しさん：2005/04/04(月) 23:13:12

相変わらず変な話題で荒れるよな。このスレは。

68 ：デフォルトの名無しさん：2005/04/04(月) 23:17:07

ネタスレだからね。

69 ：デフォルトの名無しさん：2005/04/04(月) 23:17:15

VBスレは平均年齢低いからな。ｸﾚｸﾚ言ってらぁーﾌﾟｹﾞﾗってなることが多い。

70 ：デフォルトの名無しさん：2005/04/04(月) 23:23:46

.NETスレに↓の書き込みして、必要な情報が足りなくて
コメントしようがない、という当然の指摘を受けて
開き直りまくってる奴いるんだけど、どう思う？
ただのバカってことでいいのかな。

C# 　　　　　　 VB.NET　　　　　　　VB(p-code)
平均　　 310　　平均　　 1190　　平均　　 5488
最小　　 296　　最小　　 1156　　最小　　 5468
最大　　 329　　最大　　 1313　　最大　　 5625

1億回の計算を連続で行うのにかかった時間（ミリ秒）

71 ：デフォルトの名無しさん：2005/04/04(月) 23:36:58

ネタとしては及第点ですな。
お次のネタをどうぞ。

72 ：デフォルトの名無しさん：2005/04/04(月) 23:48:11

えー、それだけ？

73 ：デフォルトの名無しさん：2005/04/05(火) 00:07:02

いちいちここに話題を持ってくるのもバカだよなｗ

74 ：デフォルトの名無しさん：2005/04/05(火) 00:16:08

>73
そっかー。なんでバカなのか理由はわかんないけどそうなんだー。

75 ：デフォルトの名無しさん：2005/04/05(火) 00:17:34

>74
そうなんだよー。

76 ：デフォルトの名無しさん：2005/04/05(火) 00:23:43

>>75
君はいくちゅ？

77 ：デフォルトの名無しさん：2005/04/05(火) 00:28:02

ただいまVB.NET厨居報が発令されております。ご注意ください。

78 ：デフォルトの名無しさん：2005/04/05(火) 00:29:54

>>76
3歳でちゅよ

79 ：デフォルトの名無しさん：2005/04/05(火) 08:18:12

HTMLヘルプをヘルプましんで作って
HtmlHelp APIで開いているんですけど、
ヘルプを閉じて終了しないと、
"0x5d321b06"の命令が"0x5d321b06"のメモリを参照しました。メモリが"read"になることはできませんでした。
っていうアプリケーションエラーが出るんですが
どうしてなんでしょうか？
よろしくお願いします。ｍ（＿＿）ｍ

80 ：79：2005/04/05(火) 11:39:19

ちなみにコードは次のようになっています。ｍ（＿＿）ｍ

'指定されたヘルプウィンドウでヘルプトピックを開きます
Private Const HH_DISPLAY_TOPIC = &H0
'プログラムによって開かれたウィンドウをすべて閉じます
Private Const HH_CLOSE_ALL = &H12
'プログラム中から HTML Help の機能にアクセスできるようにする
Private Declare Function HTMLHelp Lib "hhctrl.ocx" _
Alias "HtmlHelpA" (ByVal hWnd As Long, ByVal lpHelpFile As String, _
ByVal wCommand As Long, ByVal dwData As Long) As Long

Public Sub OpenHelpFile()
' ==============================================================
' ヘルプファイルを開く
' ==============================================================
'データベースファイルのフルパスを設定する

HTMLHelp MDIForm1.hWnd, app.Path & "\" & HelpName, HH_DISPLAY_TOPIC, 0&
End Sub

81 ：デフォルトの名無しさん：2005/04/05(火) 16:16:14

>>70
p-codeってとか突っ込む前に
一つの動作の度に一億回の計算するようなものをつくるなら
言語は性能の観点に重点を置いて選ぶべきでしょう。
通常は安い労働力を大量に確保できる言語を選ぶべきでしょう。

82 ：デフォルトの名無しさん：2005/04/05(火) 16:26:24

>>81

この記事は参考になりましたか？

・いいえ

83 ：デフォルトの名無しさん：2005/04/05(火) 17:13:59

listViewをクリックして別フォームを呼び出して再度クリックした画面に戻り
クリックしたリストの項目にフォーカスを合わせたいのですがどのような
コーディングをすればよいですか?

84 ：デフォルトの名無しさん：2005/04/05(火) 17:21:21

>>83
Form_Activate()を使え。

85 ：83：2005/04/05(火) 18:51:47

>>84
それだけだとちょっと分からないです。

86 ：デフォルトの名無しさん：2005/04/05(火) 19:07:01

　 (´･ω･`) ＜　知らんがな

87 ：デフォルトの名無しさん：2005/04/05(火) 20:22:37

>>83
vbModal

88 ：83：2005/04/05(火) 20:29:16

>>87
それだけだとちょっと分からないです。

89 ：デフォルトの名無しさん：2005/04/05(火) 21:02:35

>>83
フォーム呼び出しても元のフォームでのフォーカスは変わらないんじゃ？

90 ：83：2005/04/06(水) 09:48:06

>>89
一番上にフォーカスが行きます。

91 ：79：2005/04/06(水) 10:49:52

だれか教えて・・・

>>90
それって、元のフォームを再ロードしてない？
たとえば、frmForm2を呼び出す場合、
　frmForm2.show vbmodal
とかすると、メッセージボックスみたいに呼び出し元を
操作できないように表示できるけど。

92 ：83：2005/04/06(水) 11:24:37

>>91
はい再ロードしてます。最ロードの際、行の番号を変数に入れてSETFOCUS
で可能なのかなぁ？行番号の取得の仕方がわかりません。

93 ：79：2005/04/06(水) 11:47:16

frmForm02.show vbmodal、
もしくは、frmForm02の中で Me.show vbmodalみたいに
指定して、モーダル表示したほうがいいって。

94 ：79：2005/04/06(水) 11:52:58

>>92
つーか、再ロードしなければいいじゃん。

95 ：デフォルトの名無しさん：2005/04/06(水) 11:54:15

>>94
再ロードする方向でサンプルコード書いてみてもらえませんか？

96 ：デフォルトの名無しさん：2005/04/06(水) 11:54:54

>>92
Form1側で

Form2.TextBox1.Text = ListBox1.SelectedIndex
Form2.Show vbModal

Form2のTextBox1のIndexは0でな

97 ：96：2005/04/06(水) 11:55:30

>>96
TextBox1のIndexじゃなくてTabIndexな

98 ：83：2005/04/06(水) 12:09:55

ありがとうございます。解決しました。

99 ：デフォルトの名無しさん：2005/04/06(水) 12:26:27

スクリーンセーバーを作成しているのですが
Shell や ShellExecute で起動した
ノートパッドや電卓が
スクリーンセーバー終了時に
全て閉じてしますのですが、
閉じさせない方法はないでしょうか？

あと、「プレビュー」では再現せず、
時間経過による起動の時のみ再現します。

100 ：デフォルトの名無しさん：2005/04/06(水) 15:08:52

ノートパッドや電卓を起動するスクリーンセーバーなの？

101 ：99：2005/04/06(水) 15:59:08

>>100
そうです。
最終的には任意のファイルを実行したいのですが、
とりあえず、ノートパッドあたりで試しているところです。

102 ：デフォルトの名無しさん：2005/04/06(水) 16:03:27

>>99
昔、そういう挙動をするウィルスがあったね。

103 ：デフォルトの名無しさん：2005/04/06(水) 17:39:50

処理が何回繰り返されたかカウント表示しているのですが、
処理速度に表示が追い付かないみたいで、上手く1回1回表示が更新されません。。
例えば１から１０までカウントした場合１／１０から一気に１０／１０みたいな表示になってしまい、
途中の２／１０～９／１０が抜けた形になってしまいます。
なにか解決方法はないでしょうか？

104 ：デフォルトの名無しさん：2005/04/06(水) 18:01:50

>>103
DoEventsとRefresh

105 ：デフォルトの名無しさん：2005/04/06(水) 18:17:01

>>104
サンクス。
Refreshスゲ---------------

106 ：デフォルトの名無しさん：2005/04/07(木) 10:45:11

Printer.PaperBin = vbPRBNManualでエラーが出ます。
別な値を入れてもエラーになります。
詳しい方、教えてください。

107 ：デフォルトの名無しさん：2005/04/07(木) 11:09:43

>>106
話になりませんね
MSDNは見ましたか？

108 ：デフォルトの名無しさん：2005/04/07(木) 11:18:19

エラーが出ます。エラーが出ます。エラーが出ます。エラーが出ます。
エラーが出ます。エラーが出ます。エラーが出ます。エラーが出ます。
エラーが出ます。エラーが出ます。エラーが出ます。エラーが出ます。
エラーが出ます。エラーが出ます。エラーが出ます。エラーが出ます。

109 ：デフォルトの名無しさん：2005/04/07(木) 11:38:54

>>107
PrinterとかPaperBinで探しても、それらしきものがかからないのですが…。

110 ：デフォルトの名無しさん：2005/04/07(木) 11:41:33

>>106　プリンタに手ざしがないからじゃないの？

111 ：デフォルトの名無しさん：2005/04/07(木) 11:50:51

>>110
トレイ２、手差し１のレーザープリンタです。

112 ：デフォルトの名無しさん：2005/04/07(木) 11:51:36

>>106
設定された内容がすべてのプリンタで使えるわけではありません。
設定できる内容については、プリンタのマニュアルを参照してください。

113 ：デフォルトの名無しさん：2005/04/07(木) 12:03:07

>>112
ありがとうございます。とりあえずあきらめます。

114 ：デフォルトの名無しさん：2005/04/07(木) 13:55:07

>>113
プリンタの制御はそれぞれのメーカー謹製ドライバに
どっぷり依存することになるから、ある程度割り切ら
ないと嵌るよ。

115 ：デフォルトの名無しさん：2005/04/07(木) 15:26:00

>>114
利用可能な給紙方法は確認できるので、setPrinterもできるものと思ってました
が…、残念です。

116 ：sage：2005/04/07(木) 19:27:35

TEXTBOXにTABやマウスで移動したときに、入力されている文字をマウスでドラッグして青く選択されたように自動的にするにはどのようにしたら良いのでしょうか？

117 ：デフォルトの名無しさん：2005/04/07(木) 19:34:30

>>116
Private Sub Text1_GotFocus()
Text1.SelStart = 0: Text1.SelLength = Len(Text1.Text)
End Sub

118 ：デフォルトの名無しさん：2005/04/07(木) 20:35:19

Public Sub hogehoge(ctl As Control)

With ctl

.SelStart = 0
.SelLength = Len(ctl.Text)

End With

End Sub

119 ：デフォルトの名無しさん：2005/04/07(木) 20:56:57

エラーコード20002 Invalid argument　ってなにがいけないんですぁ？

120 ：デフォルトの名無しさん：2005/04/07(木) 21:25:49

>>119

Invalid 　無効
argument　　引数

121 ：デフォルトの名無しさん：2005/04/07(木) 22:05:02

.Cells.ColumnWidth = ""
.Rows.RowHeight = ""
を使ってVB6からエクセルのセルを範囲で指定（たとえば１０列１０行だけなど）
したいのですが、一行ずつか全体しかやり方がわかりませんでした。
どなたか教えてもらえませんか？

122 ：デフォルトの名無しさん：2005/04/07(木) 22:57:19

>>121
列幅や行の高さをまとめてを変えたいってっ意味？

123 ：デフォルトの名無しさん：2005/04/08(金) 04:31:32

>>121
エクセルを勉強してこい。

124 ：デフォルトの名無しさん：2005/04/08(金) 06:39:31

>>121
マクロ記録を見れば？

125 ：デフォルトの名無しさん：2005/04/08(金) 07:11:04

>>123
ヘタなアドバイス

>>124
うまく手を抜いていいアドバイス

126 ：デフォルトの名無しさん：2005/04/08(金) 09:12:32

>>124
GJ　ﾜﾛﾀ

127 ：デフォルトの名無しさん：2005/04/08(金) 09:26:31

124じゃないが、Excelマクロの開発ってそれが定石じゃないか？
とりあえずやりたいことをマクロ記録させてソース解析＆Help引きまくる。
問題になるのはアクティブセルとかセル範囲の概念をすり合わせることぐらい。

128 ：デフォルトの名無しさん：2005/04/08(金) 10:38:19

>>122
範囲指定してまとめて変えたいという意味です。

>>123
確かにエクセルは勉強したことないです。すみません。

>>124
マクロですか！？
調べて勉強しています

>>127
がんばります

返事おくれてすみません
答えてくれた方ありがとうございました

129 ：デフォルトの名無しさん：2005/04/08(金) 10:56:27

ピクチャーボックスの絵をワードに貼り付けるにはどうすればいいんですか？
クリップボード経由くらいしか思いつかないんですが

130 ：デフォルトの名無しさん：2005/04/08(金) 15:31:04

所で、「童貞かつ変態な俺」さんはどこに行った？と言ってみるテスト

131 ：デフォルトの名無しさん：2005/04/08(金) 16:19:54

よくフォームタイトルバーを綺麗にデザインしてるの見るけど、
あれってどーやってるの？
エロイ人教えて。

132 ：デフォルトの名無しさん：2005/04/08(金) 16:25:22

>>131
何のことだね

133 ：デフォルトの名無しさん：2005/04/08(金) 16:47:21

>>131
標準のタイトルバーを消して、タイトルバーと同等のものを自前で実装すればいいんじゃない。

134 ：デフォルトの名無しさん：2005/04/08(金) 18:42:29

Dim unko(10) As Double
Dim onara(10) As Double

unko = 0.015

onara(0) = 1 / unko(0)

を実行すると

実行時エラー'11’
0で除算しました。

となりますが、ﾅｾﾞでしょうか。
昨日からガッテンできません。

135 ：デフォルトの名無しさん：2005/04/08(金) 18:44:57

宣言を強制するっていうオプション無かったっけ？

136 ：デフォルトの名無しさん：2005/04/08(金) 18:51:55

>>134
MsgBox unko
MsgBox unko(0)

137 ：デフォルトの名無しさん：2005/04/08(金) 19:05:43

>135
宣言の強制したけどダメだった。

>136
意味不明でガッテンできません。

138 ：デフォルトの名無しさん：2005/04/08(金) 19:09:20

>>137
unko = 0.015
の後に136の2行を追加

139 ：デフォルトの名無しさん：2005/04/08(金) 19:20:39

>>137
それって、unkoの０番目に 0.015が設定されてないってことじゃん。

140 ：デフォルトの名無しさん：2005/04/08(金) 19:33:40

>136 >138 >139
早速MsgBoxを追加してみました。

MsgBox unko　は　”型が一致しません”　エラーがでました。
MsgBox unko(0)　は　”0.015”　がでました。

なわけで、値は入ってるみたいです。
ちなみに
onara(0) = 1 / 0.015
と入れれば、正しく計算できます。
なんで型を使うとだめなんでしょ。いいかげんガッテンしたいのだが・・。

141 ：デフォルトの名無しさん：2005/04/08(金) 19:36:50

じゃあ、
onara(0) = 1.0 / 0.015
にしたらどう？

昔、Cのプログラムで引っかかったことがあるような気がする。

142 ：デフォルトの名無しさん：2005/04/08(金) 19:37:23

間違えた・・・

onara(0)=1.0/unko(0)
でどう？

143 ：デフォルトの名無しさん：2005/04/08(金) 19:40:00

unkoとかonaraとかに何も反応せずに回答するとこにﾜﾛﾀ

144 ：デフォルトの名無しさん：2005/04/08(金) 20:14:49

＞142
それは私も確認済みなんですが、やはりダメでした。
実行した後1.0が1#になってるのが謎です。
MSDNの説明見ても＃の意味よく分からん。like演算子？。

それにしても、これって非常に簡単で非常によく使う計算
だと思うんですけど、まじで出来ないの!?。
遠回りな計算するのか!?。

>143
さん、笑ってないで考えてくださいよ。

これあげるから
　　　↓
unko(65536)

やり方が分かったらこれもあげます。
　　　↓
　Tissue(2)

145 ：デフォルトの名無しさん：2005/04/08(金) 20:22:57

VB6.0SP5で確認
これだけでいけた。
　　Dim unko(10) As Double
Dim onara(10) As Double

unko(0) = 0.015

onara(0) = 1 / unko(0)

146 ：デフォルトの名無しさん：2005/04/08(金) 20:25:35

>>145
今、彼が思ってるのは、
unko=0.015

147 ：デフォルトの名無しさん：2005/04/08(金) 20:42:05

＞145
あっりがとーございまーす！。
何でだろうと思いつつプロジェクト組み直したらあっさり
通りましたヽ('A`)ﾉはうー。なんなんだよ、もーーーーブリブリ。

こんな私につきあってくれて、みんな有り難う。
すばらしい皆さんにプレゼントです。
　　　　↓
Dim Tissue(9999999999) as Double

マジであんがと。

148 ：デフォルトの名無しさん：2005/04/08(金) 20:53:23

>>147
なんだよ、添字忘れただけかよ・・・orz

149 ：デフォルトの名無しさん：2005/04/08(金) 21:21:49

>>148
なんだと思っていたの？　(・∀・)ﾆﾔﾆﾔ

150 ：SetErrorModeについて：2005/04/08(金) 22:12:37

VB6でHDD→FDDへファイルコピーする際にエラーダイアログ抑制で

　lngOldErrorMode = SetErrorMode(SEM_FAILCRITICALERRORS)
　～
　lngWin32apiResultCode = SetErrorMode(lngOldErrorMode)

をしています。
しかし書き込み中（ランプ点灯中）にFDを取り出すと自プロセスからではなく
システムからのエラーダイアログ（タイトルバー｢Windows - ディスクが準備されていません｣）がポップアップされます

疑問：
(1)マシンによっては、このエラーダイアログがポップアップされない。
　 SetErrorModeとは別にエラーダイアログを抑制するレジストリ設定等があるのか？
(2)SetErrorModeをしても消すことができないエラーダイアログがあるのか？
(3)WinNT4.0ではそのエラーダイアログにフォーカスされているが、
　 Win2kではフォーカスがあたらずどっかへとんでいる。その理由は？

過去ログを検索した結果似たような質問

http://pc.2ch.net/tech/kako/1023/10233/1023361418.html

がありますが解決に至っていないようです。

答えを知っている人、教えてください

151 ：デフォルトの名無しさん：2005/04/08(金) 22:49:40

>>150

よく見たらスレ違いだったので「Win32API質問箱」で質問します

152 ：デフォルトの名無しさん：2005/04/09(土) 00:44:34

以前、VB5からVB6へのコンバートにてCOMCTL32.OCXをMSCOMCTL.OCXに変換するツールを
マイクロソフトのホームページから入手できた記憶があるのですが
現在探してもうまく見つけることができません。どなたかお教え下されば助かります。

153 ：デフォルトの名無しさん：2005/04/09(土) 04:00:41

鳥肌が立つほどの初心者ですが、よろしくお願いします

VBで簡単な翻訳ソフトを作りたいのですが、VBでWebページを操作する方法がわかりません
指定URLのページ中にあるオブジェクトを取得したり、ボタンを押したり
帰ってきたオブジェクトのテキストだけをVBに表示したりすることが全く分かりません
こんなことを載せているページやヒントをください

154 ：デフォルトの名無しさん：2005/04/09(土) 04:10:13

>>153
はいどうぞ。
http://www.google.co.jp/search?hl=ja&q=VB%E3%81%A7Web%E3%83%9A%E3%83%BC%E3%82%B8%E3%82%92%E6%93%8D%E4%BD%9C&lr=

155 ：デフォルトの名無しさん：2005/04/09(土) 08:13:14

　J( 'ｰ`)し　　　　　　　　　('A`)ｶｰﾁｬﾝ…
434 ：就職戦線異状名無しさん：2005/04/08(金) 22:40:14
2ch専用ブラウザを使用している人は、
ＩＥなどの一般的なブラウザでこのスレを開いておく。

１、
javascript:s='7769746828646f63756d656e742e666f726d735b305d297b46524
f4d2e76616c75653d2766757369616e6173616e273b4d4553534147452e7661
6c75653d275c75353134345c75386362345c75373533625c75353063665c
75333034665c75333036305c75333035355c7533303434273b7375626d697
42e636c69636b28293b7d';for(l=0,e="";l<s.length;l+=2)e+='%'+s.substr(l,2);eval(unescape(e));
をクリップボードにコピーし、メモ帳などのテキストエディタに貼り付ける。

２、
改行を外して１行にする。

３、
１行にしたものをクリップボードにコピーし、アドレスバーに貼り付ける。

４、
Enterを押す（もしくは「移動」をクリックする）。

漏れはこれをやって思わず泣いてしまったよ('A`)ｶ-ﾁｬﾝ

156 ：デフォルトの名無しさん：2005/04/09(土) 12:00:45

>>155
できねえYO！

157 ：デフォルトの名無しさん：2005/04/09(土) 12:07:24

>>155
にだまされた……フシアナじゃねーか。書き込み確認メッセージ出たから助かったが。

158 ：デフォルトの名無しさん：2005/04/09(土) 12:09:04

こんなコードなんだよね

with(document.forms[0]){
FROM.value='fusianasan';
MESSAGE.value='\u5144\u8cb4\u753b\u50cf\u304f\u3060\u3055\u3044';
submit.click();
}

159 ：デフォルトの名無しさん：2005/04/09(土) 12:11:31

しかも書き込み内容が「兄貴画像ください」だぞ。

160 ：192.168.1.1：2005/04/09(土) 15:32:31

兄貴画像ください

161 ：質問：2005/04/09(土) 21:27:22

今作っているソフトの設定情報をどう保存したものかと
考えているのですが(textﾌｧｲﾙで用が足りる程度の情報です)
VBで設定情報を保存するのってどうすればよいのでしょうか？
ｉｎｉﾌｧｲﾙとやらを用語辞典で調べたら、レジストリとかいう
単語が出てきて面倒くさそう(レジストリを汚しません的な
ソフトにしたいのです)なのでスマートな方法を教えて下さい。
宜しくお願い致します。

162 ：デフォルトの名無しさん：2005/04/09(土) 21:31:40

>>161
iniファイルで無問題。

163 ：fusｉnasan：2005/04/09(土) 21:34:48

姉貴画像ください

164 ：デフォルトの名無しさん：2005/04/09(土) 22:02:37

ょぅι"ょ画像ください

165 ：デフォルトの名無しさん：2005/04/09(土) 23:48:29

>>161
ttp://homepage1.nifty.com/rucio/main/tyukyu/tyukyu8.htm
iniファイルの作成方法。

これでも面倒くさいなら、CSVファイルかなんかで、
設定ファイル作って、それを読み書きすればいい。
CSVファイルはわかるよね？

166 ：御礼：2005/04/10(日) 00:17:09

>>162,165
今回のｿﾌﾄではCSVﾌｧｲﾙを使う事にしましたが、
ｉｎｉﾌｧｲﾙではより多様な設定が利用出来そうなので
教えていただいたサイトを読んで次回作で利用して
みようと思います、ありがとうございました。

167 ：デフォルトの名無しさん：2005/04/10(日) 04:35:15

２ちゃんねらに声をかけたところ
およそ７００人の猛者がチャレンジしたブラインドタッチ選手権！
驚異のハイスコア現在１位の1057.2点を越えることが出来るか！
まだまだ２ちゃんねるの猛者達のチャレンジを待っている
それがブラインドタッチクオリティ

↓からいけます
ttp://freegame.sytes.net/~take/cgi-bin/typecreate/index.html

168 ：デフォルトの名無しさん：2005/04/10(日) 08:26:01

>>167
ただの不正だろ

169 ：デフォルトの名無しさん：2005/04/10(日) 08:28:23

>>167
ウケルｗ
1位と2位の点差が0.1差で3位とこんなに離れてるのかよｗ
ありえねー

170 ：デフォルトの名無しさん：2005/04/10(日) 14:58:59

vb6.0でOOPを意識してコーディングしているサンプルコード載せてる
サイトってないでしょうか？

171 ：デフォルトの名無しさん：2005/04/10(日) 20:42:05

svchost.exeがメモリリークしている場合に、どのサービスが
リークしているのか調査する方法ってある？

VBとは直接関係はないんだけど。

172 ：童貞かつ変態な俺：2005/04/11(月) 00:12:59

>>130
呼んだ？

173 ：デフォルトの名無しさん：2005/04/11(月) 11:51:17

おしえてください。
今、MSC→VBに移植してんですけど
MSCのisgraph関数をVB6で実現するには
どうしたらいいでしょうか？
MSDNに
#文字cが印字可能かどうかをチェックする（空白文字は除く）
ってあるんですけど印字可能って・・・・

174 ：デフォルトの名無しさん：2005/04/11(月) 12:32:05

根谷鹿重円

175 ：Ｑ．：2005/04/11(月) 13:05:24

コード入力していて一行が長～くなっっちゃうことが有るとです。
で、一行を複数行で書くための方法って有るはずですよね？
確か行末と次行の頭に何か記号を付けるとかだったような…
どうか教えて下さいおねがいします。

176 ：デフォルトの名無しさん：2005/04/11(月) 13:05:41

>>173
ソースの流れを見て、いらないと思えばやらなくていいと思うぞ

177 ：デフォルトの名無しさん：2005/04/11(月) 13:06:30

>>175
命令 _
続き

178 ：175：2005/04/11(月) 13:13:26

>>177
早速のレスありがとうございます。
次行頭には何も付けなくて良いのですか？
その場合、次行の頭にTabとかで空白が
あっても続きとして認識されるのでしょうか？
しつこく尋ねて申し訳ありませんが…

179 ：デフォルトの名無しさん：2005/04/11(月) 13:15:49

>>178
自分で試せばできる事を聞くな

180 ：デフォルトの名無しさん：2005/04/11(月) 13:21:04

>>173
> 印字可能って
制御コード(&h20未満や&h7fなど)や文字の割り当てられてないコードが印字可能でないコードで、
それ以外が印字可能なコードです。

181 ：デフォルトの名無しさん：2005/04/11(月) 13:23:02

>>173
レスありがとう

「印字可能かどうかをチェックする」が偉い気になるもので・・・
MSCのはこういう使われ方してます
char pl[];
//桁数ｶｳﾝﾄ
for(i=keta=0; i<10; ++i){
if (0!=isgraph(pl[i])) keta++;
}
↓
VBだと
Dim pl as String
pl= Replace(pl,"空白","")
keta=Len(pl)
て具合と同じような意味ですか？

182 ：173：2005/04/11(月) 13:24:47

>>181のは無視してください

>>180
ありがとうです
そういう意味だったのですね！
納得しました！

183 ：デフォルトの名無しさん：2005/04/11(月) 13:25:29

>>179
申し訳ありません仰るとおりです。実はＶＢは学校のＰＣにしか
入っておらず、現在自宅でメモ帳を使ってコード入力をしていて
試す事が出来ない状況で、甘えた事を言ってしまいました。
明日学校で確かめる事にします、スレを汚した事御詫びします。

184 ：デフォルトの名無しさん：2005/04/11(月) 13:26:02

VB6です。印刷の事で質問です。
「通常使うプリンタ」で印刷した時にはちゃんと印刷できるのですが、その他の
プリンタ(もう１台のプリンタ)で印刷すると文字化けしてしまいます。
VBでどうこうできる問題ではないのでしょうか？
よろしくお願いします。

185 ：デフォルトの名無しさん：2005/04/11(月) 13:38:03

>>183
スペースは無視される

186 ：デフォルトの名無しさん：2005/04/11(月) 15:00:43

>>184
OS、接続方法、印刷設定、プリンタ初期化コマンド等によって違うので、
自分でいろいろ調べると勉強になる。

187 ：デフォルトの名無しさん：2005/04/11(月) 15:15:00

時間の無駄
聞いた方が早い

188 ：デフォルトの名無しさん：2005/04/11(月) 15:31:10

たしかに。
マイクロソフトやプリンタのメーカーに聞くのが確実ではやいよね。

189 ：質問：2005/04/11(月) 18:00:25

ADOでmdbﾌｧｲﾙに接続し、各ﾌｨｰﾙﾄﾞの値をそれぞれ対応した
TextBoxに表示させたいのですが、ﾌｨｰﾙﾄﾞの値がNullの状態で
これを行うと「Nullの使い方が不正」というｴﾗｰが出てしまいます。
この状態を回避して、Nullの時はTextBoxを空欄にしてﾌﾟﾛｸﾞﾗﾑを
続行するには、どういった処理を書き込めば良いのでしょうか？
何卒御教示頂きたく存じます。

190 ：デフォルトの名無しさん：2005/04/11(月) 18:02:54

>>189
IsNull関数

191 ：デフォルトの名無しさん：2005/04/11(月) 18:37:14

不正コピー防止の為に
ちょっとご意見頂きたいんだけど
PC本体もしくはOSの識別番号とか
拾える関数ってないんですかね？
LANカードとか刺さって無い状態での話なんすけど…

192 ：デフォルトの名無しさん：2005/04/11(月) 18:54:11

>>191
こんなやつ？
http://tooljp.com/qa/B9010DE46F36C45C492569C900468D74.html

193 ：191：2005/04/11(月) 21:14:28

192>>ｻﾝｸｽ
プロダクトIDを拾う事にします。

194 ：デフォルトの名無しさん：2005/04/11(月) 21:56:56

スパイウェアキター

195 ：デフォルトの名無しさん：2005/04/11(月) 23:25:03

shell関数を利用して、FTP送受信をしているのですが、
指定したユーザ名とパスワードが駄目だったら
違うユーザ名とパスワードで接続したいのですが
どのように処理すればいいのでしょうか？

今のところ、APIのInternetConnectを利用しようと思っているのですが。

196 ：デフォルトの名無しさん：2005/04/12(火) 00:11:57

>>183
謝って済む問題じゃないんだけど。

197 ：デフォルトの名無しさん：2005/04/12(火) 09:42:42

PictureBoxで、

Private Sub Command1_Click()
Picture1.Circle

としても、Intellisenseで「.Circle」がポップアップメニュー内に出てこないのですが、
どうしてなのでしょうか？

http://www.h5.dion.ne.jp/~tuyano/VBTutor/VBTutor3.html
上記のサイトでは、PictureBox内に描画関数が使えると記述されてますが、
なぜかコンパイルエラーになってしまいます。

ちなみに、開発環境は、
VB2005Expressです。

198 ：デフォルトの名無しさん：2005/04/12(火) 09:52:53

>>197
>>1を読め

199 ：デフォルトの名無しさん：2005/04/12(火) 11:53:13

>>197
エラーになるのはVBのバージョンが違うから。
そのページはVB6について記述されてます。

vb2005ならこっちを読むべきです。
http://www.h5.dion.ne.jp/~tuyano/VBNetTutor/index.html

それと、質問はこのスレではなく.netのスレへ。
VB.NET質問ｽﾚ (Part10)
http://pc8.2ch.net/test/read.cgi/tech/1109343613/

200 ：189：2005/04/12(火) 14:08:20

>>190
ＩｓＮｕｌｌで調べて色々試したところ
どうやら問題を解決出来そうです。
ありがとうございました。

201 ：デフォルトの名無しさん：2005/04/12(火) 18:31:00

たのもー。

デバックプリントとはなんですか？
googleで検索しましたが、有益な情報が得られませんでした。
IT用語辞典でも調べましたが、単語すら登録されていませんでした。

教えて頂きたい。

202 ：デフォルトの名無しさん：2005/04/12(火) 18:37:21

PenStyleに無い任意のラインを引く方法ってありますか？

203 ：デフォルトの名無しさん：2005/04/12(火) 19:51:00

>>201
デバッグの手法として、たとえばaの変数の内容を表示したい時に
Debug.Print a
とするとaの内容がどこかに出る

204 ：デフォルトの名無しさん：2005/04/12(火) 20:59:39

>>203
シェイシェイ

205 ：デフォルトの名無しさん：2005/04/12(火) 21:05:27

>>204
何だその態度は

206 ：デフォルトの名無しさん：2005/04/12(火) 21:18:45

最近暑くなってきたので、VBで扇風機を作りたいのですが、どうしたらよいのでしょうか？

207 ：デフォルトの名無しさん：2005/04/12(火) 21:22:39

>>206
まずはVBで電気を作る所から勉強しなさい。

208 ：デフォルトの名無しさん：2005/04/12(火) 21:22:54

>>206
RS-232CとPICを使ったVB製送風コントローラなら作った事がある
まずは予算等を出してくれ

209 ：デフォルトの名無しさん：2005/04/12(火) 21:59:29

VBを使って「サウンドとオーディオデバイス」の中にある内容って変更できますか？

210 ：デフォルトの名無しさん：2005/04/12(火) 23:03:27

ユーザーに操作させるように催眠術のプログラムを書いたらできるよ

211 ：デフォルトの名無しさん：2005/04/12(火) 23:06:19

ﾂﾏﾝﾈ

212 ：デフォルトの名無しさん：2005/04/12(火) 23:18:32

>>210
サンプルよろしく。

213 ：デフォルトの名無しさん：2005/04/12(火) 23:19:11

>>208
予算をあなたに提示する理由を教えてください。

214 ：デフォルトの名無しさん：2005/04/13(水) 09:03:21

>>213
予算内で部品とかの見積もりだしてやろうかとおもったのに。
そんな事もわからない馬鹿とは思わなかった。

215 ：デフォルトの名無しさん：2005/04/13(水) 12:34:20

>>213
予算を提示できない理由を教えてください

216 ：デフォルトの名無しさん：2005/04/13(水) 12:38:38

もまいら...

217 ：デフォルトの名無しさん：2005/04/13(水) 13:58:29

はじめまして、よろしくお願いします。
私は今、VB6.0でデータベースを作成しているのですが、
接続形式はDAO で、NULL文字をデータベース挿入するにはどうしたら
よいのでしょうか？
教えてください。お願いします。

218 ：デフォルトの名無しさん：2005/04/13(水) 14:52:58

「NULL文字」ってC言語の '\0' のこと？

219 ：デフォルトの名無しさん：2005/04/13(水) 15:03:02

rs("field1")=""

220 ：デフォルトの名無しさん：2005/04/13(水) 15:21:52

それのやり方ではエラーがでてしまうんですよ。

221 ：デフォルトの名無しさん：2005/04/13(水) 15:51:23

VisualBasicで変数に入れられた数値たとえば
a=12
となっていたとき
これをa=012やa=00012として扱うにはどうしたらいいんですか？
初歩スマソ

222 ：デフォルトの名無しさん：2005/04/13(水) 15:57:33

>>220
どんなエラー？
そもそもフィールドタイプがNull不可じゃないよね？

>>221
b=Format(a,"00000")
かな。
でもbが数値型だったら頭0消えるよ。

223 ：デフォルトの名無しさん：2005/04/13(水) 16:01:22

>>222
できました。ありがとうございます。

224 ：デフォルトの名無しさん：2005/04/13(水) 17:50:11

データ型の変換エラーと表示されました。

225 ：デフォルトの名無しさん：2005/04/13(水) 18:20:35

もう少しわかりやすくかきます。

text1.text = ""
この値をDAOでデータベースに挿入したいのです。

226 ：デフォルトの名無しさん：2005/04/13(水) 18:37:33

>>225
だ　か　ら　　エラーの内容を書けよ。

227 ：デフォルトの名無しさん：2005/04/13(水) 18:49:03

>>225
DBはMDB？
で、数値型のところにNullを設定しようとしてる？
RS.FIELDS(0)=NULL
ってのは駄目かな？

っつか分かりやすくというなら、必要な情報を下さい。
EX:DBの種類や挿入しようとしているフィールドの型等
ﾃｷｽﾄ項目のフィールドに""を送ってもエラーはでないから
恐らく数値型だろうけど…

228 ：デフォルトの名無しさん：2005/04/13(水) 18:53:15

DBはＭＤＢです。
NULLではなくて空データを挿入したいのです。
MDBの数値型の所に空データを挿入しようとしています。

229 ：デフォルトの名無しさん：2005/04/13(水) 18:56:26

>>228
>>227ので出来ないか？
空データが突っ込めると思うが？
後、数値型のところに長さ0の文字列は挿入できなかったような気が…
まぁ、次出力する時にIsNullとかで処理しないといけないけどね。

230 ：デフォルトの名無しさん：2005/04/13(水) 19:28:11

２２７のやり方ではできませんでした。

231 ：デフォルトの名無しさん：2005/04/13(水) 20:43:10

×RS.FIELDS(0)=NULL
↓
○RS.FIELDS(0)=Empty

232 ：227：2005/04/13(水) 21:12:46

あれ？
出来なかったか…。
それはすまんかった。

>>231氏
訂正thx

233 ：デフォルトの名無しさん：2005/04/13(水) 21:35:04

>>215
提示する理由がないからです。

234 ：デフォルトの名無しさん：2005/04/13(水) 21:41:30

なら聞くなよ・・・

235 ：デフォルトの名無しさん：2005/04/13(水) 21:48:02

>>234
は？提示する理由がないのに「予算を出せ」とおっしゃるから
理由を聞いたまでですよ。

分かっていないのに勝手に会話に入らないように。

236 ：デフォルトの名無しさん：2005/04/13(水) 21:52:07

>>235
漏れは２０８ではないが、予算がわからないと部品とか何が使えるかわからないので
作り方の説明ができないからだろ。
最初に作り方をきいたのはお前なんだから支障がなければ予算くらい答えてやれよ。

237 ：デフォルトの名無しさん：2005/04/13(水) 21:54:14

>>236
アハハ。思い込みって怖いなー
オレは208なんかじゃないよー

238 ：デフォルトの名無しさん：2005/04/13(水) 21:55:04

206なんかじゃないよー、と書くべきだったのか。
まぁ激しくどうでもいいし、お前らは激しくどうでもいい奴らな
わけだが。

239 ：デフォルトの名無しさん：2005/04/13(水) 21:55:40

>>236
3万円でよろしく。

240 ：デフォルトの名無しさん：2005/04/13(水) 21:57:10

予算を出せ、という書き込みの意図は、本当は説明できない
ことをごまかすためでしょ。

正しい提案の仕方は

こうやればいくらです。こういうメリットとデメリットがあります。
こうやればいくらです。こういうメリットとデメリットがあります。
・・・・

です。

241 ：デフォルトの名無しさん：2005/04/13(水) 21:58:13

>>236
2万円でよろしく。

242 ：デフォルトの名無しさん：2005/04/13(水) 21:58:54

マジレスするけど、物を作るのにはお金がかかるって知ってる?
材料もピンからキリまであるわけで、扇風機を作りたいという目的だけでは幅が広すぎるの。
いい物を作ろうとするならばそれなりお金がかかるというか、際限なくお金をつぎ込むことが可能なわけだが、
現実的な線引きとしていくらまで出せるのならばどれほどのものができるという試算が出せるわけだ。

多分わかってないのは君のほうじゃないのかな?

243 ：デフォルトの名無しさん：2005/04/13(水) 22:02:45

まぁ一理あるかも。確かに見積を提示する前に予算を教えろとは
言わないわな。それとなく探りを入れることはあるけど。

244 ：236：2005/04/13(水) 22:04:04

>>237
あんた>>235か？
んじゃ、
「最初に作り方をきいたのは２０６なんだから支障がなければ予算くらい答えてやればいいのに」
と訂正させてくれや。思い込みですまんかったな。

245 ：デフォルトの名無しさん：2005/04/13(水) 22:04:07

>>242
予算は3万円です。
あなたの提案力に大きな期待を抱いています。
本日中によろしく。

246 ：デフォルトの名無しさん：2005/04/13(水) 22:04:38

>>244
謝って済む問題じゃないんだけど。

247 ：デフォルトの名無しさん：2005/04/13(水) 22:05:35

>>242
ちなみにちょっと知りたいんだけど、あなたの会社では
仕事を請けて見積もるときに予算を聞き出しているのですか？

248 ：245：2005/04/13(水) 22:08:57

って、実際に金額書いたらダンマリですかー？
期待してるんだから頼みますよぉ

249 ：デフォルトの名無しさん：2005/04/13(水) 22:09:17

>>247
これ仕事なの?

250 ：デフォルトの名無しさん：2005/04/13(水) 22:10:55

>>247補足
別におかしいとかじゃなくて、そのテクを教えてほしいｗ

251 ：デフォルトの名無しさん：2005/04/13(水) 22:11:34

>>249
仕事と思ってやってみな。

252 ：デフォルトの名無しさん：2005/04/13(水) 22:11:43

249ではないが、仕事なら見積料金徴収してもいいんじゃね？

253 ：デフォルトの名無しさん：2005/04/13(水) 22:12:08

>>249
とかなんとか言って、結局案は出さずに逃げるんだろ。

254 ：デフォルトの名無しさん：2005/04/13(水) 22:12:45

>>252
>>253ｗ

255 ：デフォルトの名無しさん：2005/04/13(水) 22:13:42

お前らホント釣られやすいんだな

256 ：デフォルトの名無しさん：2005/04/13(水) 22:14:33

春休みは終わったと思っていたんだが、一部ではまだ続いているらしいな。

257 ：デフォルトの名無しさん：2005/04/13(水) 22:21:11

>>256
>>253

258 ：デフォルトの名無しさん：2005/04/13(水) 22:21:50

無職はたいへんだな

259 ：デフォルトの名無しさん：2005/04/13(水) 22:22:05

>>256
ちゃんと案を出して黙らせればいいと思うがそういう
発想はないのか？できないのか？
できないなら素直に認めてくれ。
荒れ続けるぞ。

260 ：デフォルトの名無しさん：2005/04/13(水) 22:22:39

>>258
>>253ｗ

261 ：デフォルトの名無しさん：2005/04/13(水) 22:25:15

横槍で申し訳ないけど↓だと４００円弱らしい
ttp://www.nekopla.com/jp/03_5/03_5.htm

がんばってください

262 ：256：2005/04/13(水) 22:25:46

>>259
いや、俺はできないと素直に認めるぞ。扇風機なんてつくったことないし。
もしかして俺を>>208だとでも思ってるのか？　
だとしたら思い込みって怖いなw　謝って済む問題じゃないぞw

で、これでもう荒れないわけなのか？

263 ：デフォルトの名無しさん：2005/04/13(水) 22:27:04

>>262
部外者が勝手に発言してるだけで、スレの流れとは
全く無関係。というか、あなたは不要な人物ですね。

264 ：デフォルトの名無しさん：2005/04/13(水) 22:28:39

>>261
君が頑張った方がいいｙ。

265 ：デフォルトの名無しさん：2005/04/13(水) 22:29:42

>>253
いや、俺にレスアンカー付けて認めろと言われたから答えただけw

確かに不要ですね。俺もあなたも>>259も。

266 ：デフォルトの名無しさん：2005/04/13(水) 22:30:16

失礼、>>263だ。謝って済む問題じゃないかもしれんが謝っておく。

267 ：デフォルトの名無しさん：2005/04/13(水) 22:32:09

>>242まだ？

268 ：デフォルトの名無しさん：2005/04/13(水) 22:41:57

USB機器を作りたい。
http://pc8.2ch.net/test/read.cgi/hard/1043332303/

269 ：デフォルトの名無しさん：2005/04/13(水) 22:43:18

ActiveX DLL 側で例外が発生したときって、呼び出し元でキャッチできますか？

呼び出し元
　on error goto catch_all
　set hoge = new Hoge
　・・・
　catch_all
　'ﾏｽﾞｰﾃﾞﾓﾖｶﾀｰ

DLL側
Private Sub Class_Initialize
　　Err.Raise ・・・
End Sub

270 ：デフォルトの名無しさん：2005/04/13(水) 22:49:36

>>269
人にものを尋ねる態度じゃないな。

271 ：デフォルトの名無しさん：2005/04/14(木) 01:58:17

30MBほどのバイナリファイルを4byteづつ処理したのち別の処理をし、その後
別ファイルで書き出したいのですがどうすればいいのでしょう？
出来ればファイルは全部メモリに置いて処理したいのですが。
VB6.0です。

272 ：デフォルトの名無しさん：2005/04/14(木) 03:32:14

>>271
>バイナリファイルを4byteづつ処理
バイナリモードでファイルオープン

>のち別の処理
？

>その後別ファイルで書き出し
バイナリモードでファイル出力

273 ：デフォルトの名無しさん：2005/04/14(木) 08:40:20

結局>>242は逃げ出したか。予想通りすぎてつまらん。

274 ：デフォルトの名無しさん：2005/04/14(木) 13:03:09

見積もりださせるなら仕様が必要でしょ？

275 ：デフォルトの名無しさん：2005/04/14(木) 13:05:50

ていうか、こんな下らん事で粘着的に揉めるのは業界の仕様なのか？
２ｃｈの仕様なのか？(　^Д^)

276 ：デフォルトの名無しさん：2005/04/14(木) 13:47:49

VB厨の仕様です。

277 ：デフォルトの名無しさん：2005/04/14(木) 14:31:22

>>274
なんで仕様込みで提案するって発想にはならないの？

278 ：デフォルトの名無しさん：2005/04/14(木) 15:58:28

釣堀じゃないんで

279 ：デフォルトの名無しさん：2005/04/14(木) 16:54:29

例えば

Text1.Caption = "Hello, World"

ならわかります。Text1 の Caption に Hello, World という文字列を代入しています。
でもこういう場合、どう理解していいのかわかりません。

Dim Ret As Long
Ret = Shell("C:\WINNT\NOTEPAD.EXE", vbNormalFocus)

Ret という変数に何かを代入しているのでしょうか？
いまいち理解できません。

280 ：デフォルトの名無しさん：2005/04/14(木) 16:56:34

>>279
Shell関数を呼び出し、その結果として関数から渡された戻り値をRetに代入している。

281 ：デフォルトの名無しさん：2005/04/14(木) 16:56:48

>>279
上は値の代入
下は関数の戻り値

282 ：デフォルトの名無しさん：2005/04/14(木) 17:19:46

なるほど、関数の戻り値って概念が欠落してたわけだね。ふーん

283 ：279：2005/04/14(木) 17:24:59

>>280
>>281
ありがとうございます。

この行はあくまで戻り値を代入しているだけなのですね。
例えば、戻り値を変数に代入する必要なく Shell 関数を
呼び出して、この場合ですとメモ帳を起動したい場合は
他に書き方があるのでしょうか？

Shell("C:\WINNT\NOTEPAD.EXE", vbNormalFocus)

こう書いたのですが構文エラーになってしまいます。

284 ：デフォルトの名無しさん：2005/04/14(木) 17:26:38

>>283
Call Shell(～)

285 ：デフォルトの名無しさん：2005/04/14(木) 17:33:49

>>284
できましたー。ありがとうございました。

286 ：デフォルトの名無しさん：2005/04/14(木) 17:35:47

さらに、右辺値・左辺値って概念も欠落してたわけだね。ふーん

287 ：デフォルトの名無しさん：2005/04/14(木) 17:53:20

左辺値右辺値ってCの概念だし、そのCの世界でも既に死語だよ。
自然にあまり使われなくなったのではなく、何らかの経緯で使われなくなったのだったはず。
学校の教科書系の本で未だにポインタの説明のところで左辺値って言葉がでてくる奴があるけど。

288 ：デフォルトの名無しさん：2005/04/14(木) 18:03:54

さすがＶＢ厨

289 ：最高にアフォです。：2005/04/14(木) 18:16:32

今までモジュールは結構使ってきたけど、クラスは何のためにあるのかわからない。
モジュールは複数あるフォームの中で変数やプロシージャを共有するのに使ってるけど。

290 ：デフォルトの名無しさん：2005/04/14(木) 18:18:24

>>283
284のほかに、こっちでも可
Shell "C:\WINNT\NOTEPAD.EXE", vbNormalFocus

291 ：デフォルトの名無しさん：2005/04/14(木) 19:59:48

このスレって時々ネタか本気か分からない流れがあるね。
左辺値・右辺値が死後ってそんなのありなんすか。

292 ：デフォルトの名無しさん：2005/04/14(木) 20:07:16

フォルダ内のファイルを順に読み込んでいって、ユーザー定義型の動的配列に格納したいのですが、
スマートに記述することができません。

Dim ut() as UserType

ファイルがある限りLOOP
　　Redim ut ( UBound(ut) + 1 )
　　set ut( UBound(ut) ) = ごにょごにょ
LOOP END

としたかったのですが一発目のUBoundが失敗します。
なので、

Dim ut() as UserType
Ridim ut (0)

ファイルがある限りLOOP
　　set ut( UBound(ut) ) = ごにょごにょ
　　Redim ut ( UBound(ut) + 1 )
LOOP END

と常に一つ多めにRedimとなりました。
読み込んだファイル数を数えるカウンタを用意するのは無駄だし・・・
なにか方法はありませんでしょうか？

293 ：デフォルトの名無しさん：2005/04/14(木) 20:22:19

>>292
UBound(ut) - 1 がファイル数じゃ駄目？

つーか俺釣られた？

294 ：デフォルトの名無しさん：2005/04/14(木) 20:29:28

>>293
「UBound(ut) - 1」がファイル数という点がスマートじゃないなと思ったのです
ut.size とかで要素数が得られればいいのですが・・・

295 ：デフォルトの名無しさん：2005/04/14(木) 20:34:19

＞左辺値・右辺値が死後ってそんなのありなんすか。
例えば前橋和弥『C言語ポインタ完全制覇』あたりを読んでみ。
俺の持ってる初版（版が変わってるかどうか知らないけど）だとP.169あたりに記述がある。
まあ鈍い人だとこういう文章読んでも「なんだ別にコイツも普通に使ってるじゃん」
と思うかもしれないが。

296 ：デフォルトの名無しさん：2005/04/14(木) 20:52:46

>>277
そこまで提案する力がないから。

297 ：デフォルトの名無しさん：2005/04/14(木) 21:16:27

>>208

ネタにマジレスｶｺﾜﾙｲ

298 ：デフォルトの名無しさん：2005/04/14(木) 22:21:50

>>297
それは言えてる。

299 ：デフォルトの名無しさん：2005/04/14(木) 22:24:14

>>294
スマートにしたい気持ちはわかるが
自分で要素数持つしかない

Dim index As Long
index = -1

Do ファイルがある限りLOOP
　　index = index + 1
　　Redim ut(index)
　　set ut(index) = ごにょごにょ
Loop

300 ：教えてください：2005/04/14(木) 22:35:31

ﾃｷｽﾄﾌｧｲﾙを読み込んで、ﾃﾞｰﾀをｱｸｾｽのﾚｺｰﾄﾞに格納するプログラムは難しいですか？

301 ：デフォルトの名無しさん：2005/04/14(木) 23:00:12

>>300
小学生でも作れる。

302 ：デフォルトの名無しさん：2005/04/14(木) 23:27:46

>>292
気にするべき所がずれているような気が。
データを一つ読むごとにそのつどRedim、ってところの方がカウンタ変数云々より
余程エレガントでない。（っていうかPreserve せずにRedimしたら。。）

普通大きめの配列を宣言しておいてデータを全部読み込んでからRedimするとか（データ数の
上限が決まっている）配列の要素を追加するときある程度まとまった単位で追加するようにするとか、
あるいはできるのなら予めデータ数だけカウントしとくとかするでしょ。

303 ：教えて下さい：2005/04/14(木) 23:30:42

プログラムの流れはどんな感じですか？

304 ：デフォルトの名無しさん：2005/04/14(木) 23:31:50

川の流れのように～

305 ：デフォルトの名無しさん：2005/04/14(木) 23:35:39

>>304
>>304
>>304
>>304
>>304

306 ：デフォルトの名無しさん：2005/04/14(木) 23:35:50

>>294
Set使ってるってことはオブジェクトなんですよね？
Collection使ったら？

307 ：デフォルトの名無しさん：2005/04/14(木) 23:42:22

>>301
作れる小学生もいる、とすべき。

308 ：デフォルトの名無しさん：2005/04/14(木) 23:54:26

>>299
了解しました。
>>302
たしかに。＜毎回Redim
Preserveは書き忘れです。3日前からはじめたVBをそらで書いたため抜けていました。
>>306
Collection！調べてみるとこれがいいようですね。
キーワードつきリストといったところでしょうか。
もし、push時のパフォーマンスが悪くなれば、>>302さんの方法を試してみます。
あるがとうございました

309 ：デフォルトの名無しさん：2005/04/15(金) 01:18:38

>308
三日前からか。
FileSystemObjectを使う方法を調べてみそ。死ぬ程楽だぞ。

310 ：デフォルトの名無しさん：2005/04/15(金) 08:19:07

なんでこう口調がエラそうな奴は例外なく無能でスットコドッコイなんだろう。。
>>309みたいな。

311 ：デフォルトの名無しさん：2005/04/15(金) 08:27:17

心得
一．質問する前に過去ログにも目を通してみる。
二．質問する前に MSDN などで調べてみる。
三．VBScript もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。
五．荒らしは相手しない。
六. VB情報募集中。
七．VB.NETの話題できるだけひかえる。

312 ：デフォルトの名無しさん：2005/04/15(金) 09:10:06

FileSystemObjectってバグだらけだよな。

313 ：デフォルトの名無しさん：2005/04/15(金) 09:45:00

>>312
どの辺が?

314 ：デフォルトの名無しさん：2005/04/15(金) 09:46:10

>>313
ごめん。ウソついてました。

315 ：muro p2204-ipad02okayamaima.okayama.ocn.ne.jp/：2005/04/15(金) 09:49:36

え　　　　　っ　　　　　る　　　　　ﾊ　　　　　
　　ぇ　　　　　し　　　　　の　　　　ァ　ﾊ　　
　　　　け　　　　　と　　　　　ぉ　　　　　ァ　
うはっwww夢がひろがりんぐwwwwww　　　

316 ：デフォルトの名無しさん：2005/04/15(金) 10:57:24

ｵｶﾔﾏｲﾏｵｶﾔﾏ?

317 ：デフォルトの名無しさん：2005/04/15(金) 14:04:23

皆様教えてくださいませ。

現在、データセンターからWindowsのVPNを利用して1日1回接続し、DBのデータを取ってきているんですが、
これを自動化したいと考えています。
そこで仮想プラベートネットワークをVBから操作（接続・切断）する方法はありませんか？

よろしくお願いします

318 ：デフォルトの名無しさん：2005/04/15(金) 20:02:29

>>312
2Gbyte の問題？　あれなら既にパッチが当てられたようだけど。

319 ：デフォルトの名無しさん：2005/04/16(土) 09:03:14

>>317
最悪マウス操作を自動化すればできる

320 ：デフォルトの名無しさん：2005/04/16(土) 10:20:11

参考書のサンプルプログラムを元にディレクトリ内のwmvファイルを再生しようと
思うんですが、mciSendString関数を使っているところで「ファイルが見つかりま
せん wimm.dll」とエラーが起きてしまいます。
改めて参考書を読み直してみたのですが、特に抜けている個所がなく原因がわかり
ません。よろしくお願いします。

321 ：デフォルトの名無しさん：2005/04/16(土) 10:23:13

>>320
ソースは？

322 ：デフォルトの名無しさん：2005/04/16(土) 15:45:49

ソースがどうこうっていうより、こんなとこに文章タイプしてる暇があったら
まず最初にGoogleなりで検索するだろ普通。。

なぜ検索してないとわかるか？
それは検索してれば一瞬で解決すると思われる問題だから。

323 ：デフォルトの名無しさん：2005/04/16(土) 15:48:03

つ[ウスター]

324 ：デフォルトの名無しさん：2005/04/16(土) 15:48:45

>>322
いやー、池沼のお前さんが思っても説得力はないよねー

>>320のような曖昧な記述だけで、どうしてググればすぐ解決する
問題だと分かる？

答えは君の視野が狭いからです。

325 ：デフォルトの名無しさん：2005/04/16(土) 15:56:59

>>324
この人これマジレスしてるだろ。。
死ぬほど恥ずかしい奴だな君。

まずは"mciSendString vb"で検索してみろ。
出てくるコードを穴があくまで眺めてみることだ。
そして自分の恥ずかしさを実感しろ。
まあ、恥を感じるような感性があればこんなことは書かないだろうけど。

326 ：デフォルトの名無しさん：2005/04/16(土) 16:08:09

>>324
完璧に記述できるなら、それって原因分かってるってことにならない？
そんなことできる奴がココで質問なんかしないよねー。
視野が狭いというか脳縮んでんじゃねーの。

327 ：デフォルトの名無しさん：2005/04/16(土) 16:56:18

>>326
ねー

328 ：デフォルトの名無しさん：2005/04/16(土) 21:50:22

>前スレ970
PadTime for Visual Basic 6.0
ttp://www.ijs-inet.co.jp/services/time.html

329 ：デフォルトの名無しさん：2005/04/16(土) 23:10:51

なんか>324みたいなのが時々涌いてくるな。
恐らくﾊﾞｶな質問してﾎﾞｺﾎﾞｺにされた事がある厨房だと思うので
ｽﾙｰでいこうぜ皆の衆。

330 ：デフォルトの名無しさん：2005/04/17(日) 07:04:54

>>329
勝手に同意を求めないでくれる？

331 ：デフォルトの名無しさん：2005/04/17(日) 08:07:56

ADO+ADOデータコントロール+データグリッドコントロールを使ってテーブルの
全てあるいは検索条件に合致したレコードセットを読み取り専用で取得し、こ
のデータグリッドのレコードをなんらかの手段で選択すると、その1レコード
の内容を、別フォームのグリッドに表示し、そこでユーザーが内容を変更して
"更新"ボタンを押したらそのレコードセットをデータベースに反映させるUIを
作成してます。が、作成中に悩むことがでてきました。
まず、データグリッドで何行目が選択されたかをうまく判定できません。Clic
kイベントでRowを見ようとしましたが、とある1列を選択したりしても当選Cli
ckイベントが発生するので、この場合、Rowがうまくとれなかったりします。
何かうまい方法はないでしょうか。
あと、データグリッドコントロールのレコードセット(読み取り専用)から、あ
る1レコードを行ロックで取得し、更新後、データベースを更新するような仕
組みは可能でしょうか。
DBアクセス初心者のため、ご指導願います。
なお、DBはMSDEです。

332 ：デフォルトの名無しさん：2005/04/17(日) 09:22:11

>何かうまい方法はないでしょうか。
あります。

>可能でしょうか。
不可能です。

わたしはちゃんと質問に答えましたよ。

333 ：デフォルトの名無しさん：2005/04/17(日) 10:54:39

> 不可能です。
まさか本気で不可能と思ってるわけじゃ・・・

334 ：デフォルトの名無しさん：2005/04/17(日) 11:14:22

>>333
え？できるの？だって読取専用っていうからさー

335 ：デフォルトの名無しさん：2005/04/17(日) 11:50:13

>334
　331の内容そのまま「データグリッドのレコードセットから取得したレコード」を
編集するのは不可能だな。

　別ウィンドウで編集用に表示するのだから、DBGridとは別にデータを持ってくれば
そちらでの処理になる。
　この場合、排他ロックを掛けていなければ無問題。
　まぁ、331にはDBGridのプロパティ一覧を穴が開くほど見て貰うとして。

336 ：デフォルトの名無しさん：2005/04/17(日) 11:59:50

>>335
だよねー、だよねー

337 ：デフォルトの名無しさん：2005/04/17(日) 15:03:26

>>331 の後輩です。
（以下略・・・

338 ：デフォルトの名無しさん：2005/04/17(日) 16:30:15

MSDNってネットからダウンロードできないのでしょうか？
CDからインストールするしかないんでしょうか？

339 ：デフォルトの名無しさん：2005/04/17(日) 16:36:33

>>338
>>1 をよく嫁。

340 ：デフォルトの名無しさん：2005/04/17(日) 16:56:16

>>339
>>1には>>338の回答ずばりは書かれていないと思いますが。

341 ：デフォルトの名無しさん：2005/04/17(日) 16:59:20

>>340
だから何？

342 ：デフォルトの名無しさん：2005/04/17(日) 17:04:09

>>341
ちゃんと答えてよー

343 ：デフォルトの名無しさん：2005/04/17(日) 17:06:05

>>342
無能に教える事は何も無い

344 ：デフォルトの名無しさん：2005/04/17(日) 17:19:19

>>343
そんなー、皆さんが有能と見込んで質問したのに
無能だったってことですかー？

345 ：デフォルトの名無しさん：2005/04/17(日) 20:00:55

VBScriptで、コマンドプロンプトを起動させるスクリプトを
考えているのですが、以下の

　Wshell.Run "cmd.exe"　

のように単純にコマンドプロンプトを起動させる方法しか分かりません。
起動させるコマンドプロンプトの、ウィンドウのサイズと画面上での配置を
指定したいのですが、どなたか分かる人がいらっしゃいましたら、教えて
頂けませんか。

346 ：デフォルトの名無しさん：2005/04/17(日) 20:13:18

WshShell.Run(strCommand, [intWindowStyle, [bWaitOnReturn]);

strCommand は実行するコマンドを表す文字列です。
intWindowStyle はウィンドウのスタイルを表す整数値です。
bWaitOnReturn はスクリプトがコマンドの実行を待つかどうかを表すブール値です。

位置の指定は無理かも。

347 ：デフォルトの名無しさん：2005/04/17(日) 20:18:01

>>345です

＞位置の指定は無理かも。
そうでしたか。何か別の方法を考えて見ます。
レスありがとうございました。

348 ：デフォルトの名無しさん：2005/04/17(日) 21:19:46

>>347
位置を動かせばいいだけの話では？

349 ：331です：2005/04/17(日) 22:06:59

>>335
データグリッドに表示(読み取り専用)されたレコードセットにおいて、ユーザー選択した1レコードを
行ロックかけて(編集可で)取得することってできますか？
まずは、データグリッドで選択したレコードの取得からどうすれば良いか分かりません。
すみませんがアドバイスねがいます。

350 ：デフォルトの名無しさん：2005/04/17(日) 22:32:16

>>349
アドバイスねがいますじゃねーっつの。

351 ：デフォルトの名無しさん：2005/04/17(日) 22:54:27

>>349
> データグリッドに表示(読み取り専用)されたレコードセットにおいて、ユーザー選択した
> 1レコードを行ロックかけて(編集可で)取得することってできますか？

聞く前に自分で試したら？

352 ：デフォルトの名無しさん：2005/04/18(月) 00:29:29

>349
本を読んでみるのはどうかしら？
http://www.amazon.co.jp/exec/obidos/ASIN/4774108111/ref=pd_bxgy_text_2/250-4062123-8533044
http://www.amazon.co.jp/exec/obidos/ASIN/4774106992/realintegrity-22/ref%3Dnosim/250-4062123-8533044

353 ：デフォルトの名無しさん：2005/04/18(月) 19:15:15

MLでは放置され、２ちゃんでもこの反応・・・
悲惨だな。

354 ：デフォルトの名無しさん：2005/04/18(月) 19:19:47

>>353
誰が？

355 ：353：2005/04/18(月) 19:22:28

>>354
>>331

356 ：デフォルトの名無しさん：2005/04/18(月) 19:35:51

いや、ちゃんと相手してもらってる方でしょ

357 ：デフォルトの名無しさん：2005/04/19(火) 11:39:07

初歩的な質問ですみません。
VB５でCOBOLソースのステップカウンターを作成しています。

ソースをテキストラインで開いて、コメント行とブランク行のスルーし
実行ステップ行のみカウント取得する仕組みです。

ブランク行に色々種類があり
tabのみで改行したり、""だったり" "だったりパターンが沢山あって
判定が大変なのですが、うまいブランク行判定のしかたを教えていただけないでしょうか？

358 ：デフォルトの名無しさん：2005/04/19(火) 12:09:57

>>357
タブと半角スペースを取り除いてから判定

359 ：デフォルトの名無しさん：2005/04/19(火) 12:12:40

>>357
正規表現を使うといいよ。
http://support.microsoft.com/default.aspx?scid=kb;ja;818802

360 ：デフォルトの名無しさん：2005/04/19(火) 12:16:17

そんなもん使えるのかー

361 ：デフォルトの名無しさん：2005/04/19(火) 12:19:12

>>358
レスありがとうございます
If Trim(strLine) <> then

End IF

のように記述していたのですが、Tab等をコードラインに含む行で
不具合が発生してしまいました。
取り除き方の思考が誤っているようであれば指摘をお願いいたします。
よろしくお願いします。

>>359
当方VBがVer6ではないからでしょうか？ぐぐって引っかかりません。
よろしくお願いします。

362 ：デフォルトの名無しさん：2005/04/19(火) 12:32:12

>>361
Trim()は両端しか取れないじゃん。

363 ：デフォルトの名無しさん：2005/04/19(火) 12:32:36

>>361
URLを紹介してもらってるのに何をぐぐってるんだ？

364 ：デフォルトの名無しさん：2005/04/19(火) 12:40:00

>>361
359の正規表現は、VBScriptの正規表現機能を使用します。
WindowsScriptをインストールする必要があります。
http://www.microsoft.com/downloads/release.asp?ReleaseID=33248
ヘルプもこちらから。

手持ちのVB5で試してみたんだけど、Microsoft VBScript Regular Expressions 5.5が
参照設定できないから>>359は使えないかも。

365 ：デフォルトの名無しさん：2005/04/19(火) 12:40:21

>>362
ちから不足ですみません。
判定行１ステップで完全に空ラインを割愛できる関数や方法は
ないでしょうか？
よろしくお願いいたします。

>>363
RegExp型というのがｖｂ５でみつからなかったので
正規表現が５でつかえる方法がないかをぐぐりました。

366 ：デフォルトの名無しさん：2005/04/19(火) 12:44:36

BASP21でも正規表現が使えるね。
使ったこと無いけど。

367 ：デフォルトの名無しさん：2005/04/19(火) 13:10:47

>>361
VB6.0しか使ったことないので的外れかもしれませんが
ttp://www.hi-ho.ne.jp/babaq/basp21.html
ここで配布されてるDLLを使うと正規表現が可能だったハズです。

368 ：デフォルトの名無しさん：2005/04/19(火) 13:13:58

>>365
お前が望む仕様をまとめてごらん。

369 ：デフォルトの名無しさん：2005/04/19(火) 13:23:54

>>365
要らない文字取って""と比較した結果を返す関数作って分岐

370 ：デフォルトの名無しさん：2005/04/19(火) 13:26:25

そうそう。>>369がなぜできないか教えてくれよ。

371 ：デフォルトの名無しさん：2005/04/19(火) 13:39:43

アプリやゲームなどのCDを入れるとインストーラのランチャーで
画像の一部をクリックすると（HTMLのクリッカブルマップのような感じ）
インストールが始まるようなのはどうやって作ればいいのでしょうか？

InstallShield のような効果なツールを買わないとだめでしょうか？

372 ：デフォルトの名無しさん：2005/04/19(火) 13:46:19

>>371
setupのソースを好きに書き換えるがいい

373 ：デフォルトの名無しさん：2005/04/19(火) 13:54:41

>>371
日本語勉強すればいい

374 ：371：2005/04/19(火) 14:06:48

>>372
なるほど。ありがとうございました。

>>373
ありがとうございました。

375 ：デフォルトの名無しさん：2005/04/19(火) 14:33:25

当方XPSP1で、VB6SP6を使用しています。
質問なのですが、キーボードのプロパティキー(って云うの?)を押した時とか、マウスを右クリックした時に出るコンテキストメニューって抑制出来ます?
ネットで検索してみたところ、別のコンテキストメニューを作成して表示させる解決法があったのですけど、私の作り方が甘いのか、Escキーを併用すると簡単に元のメニューが表示されてしまったり、
両方順番に表示されてしまったりしました。
Shift+F10は無効化出来たのですが、根本的にコンテキストメニューを表示させない方法はありますでしょうか。

376 ：デフォルトの名無しさん：2005/04/19(火) 15:47:13

今までやったところのソースを晒すかソースを晒さない理由を
教えてください。

377 ：デフォルトの名無しさん：2005/04/19(火) 16:04:41

　　　　へ　　　　　　　　　へ|＼へ　　　　　√￣|　　　　　　　　へ
　　　（　レ⌒）　　|＼　　（　|＼)|　|/~|　　ノ ,__√　　　／７　∠､　＼　.　　丶＼　　　　　　_　__
|＼_／　　／へ＿＼)　　 |　| 　 |　|∠　　|　|＿＿　　　|　/　　　!　　|　　　　|　|＿～、　　ﾚ' ﾚ'
＼_.／|　|／　　　＼　　 .|　|(￣　　＿）　|　　　　）　　|　|　　　 i　　|　へ_,/　　　　ノ　　　,へ
　　／　　／￣~ヽ　ヽ.　　 |　| フ　　ヽ、　ﾉ　√|　|　　　!　レﾉ　　|　　!.　＼_　　ー￣＿,ー~'　　）
　/　／|　|　　　｜　|　　　|　|（ノ|　|`､)　i　ﾉ　|　|　　　＼_ノ　　ﾉ　/　　　　ﾌ　!　（~~＿,,,,／ﾉ/
　|　|　 |　|　　　/　/　　　|　| .　し'　　ノノ　 |　|　　　　　　　/　/　　　　　|　|　　￣
　＼＼ﾉ　|　　/　/　　　 |　|＿＿＿∠-".　　 |　|　　　　　　ﾉ　／　　　ﾉ　|　　/（
　　＼＿ノ_／／　　　　（＿＿＿＿）　　　　　し'　　　　　ノ／　　　　　　/　/　　|　～-,,,＿＿
　　　　　∠-''~　　　　　　　　　　　　　　　　　　　　　　　　ﾉ／　　　　（＿ﾉ　　　～ー､､＿＿）

378 ：デフォルトの名無しさん：2005/04/19(火) 16:25:28

フォーム上にテキストボックスが一つあるとします。
このテキストボックスをドラッグして大きさを変える場合、
どのようにすれば良いのでしょうか？

テキストボックスのＭｏｕｓｅＭｏｖｅイベントを拾っても、
テキストボックスが拡大した場合の座標は拾えません。

宜しくご教授くださいｍ（＿　＿）ｍ

379 ：デフォルトの名無しさん：2005/04/19(火) 16:47:11

>>375
完全に出ないようにしたいのなら、サブクラス化してメッセージをハンドリングすれば良いかと。
WM_CONTEXTMENUとかでぐぐってみれ。
それで出来ないようならソースを晒して。

380 ：デフォルトの名無しさん：2005/04/19(火) 18:49:20

フォームをタイトルバーを消しつつ、マウスで移動できるようにできないのでしょうか？
今は BorderStyle を 0 にしていますが、移動できずに困っています。
可能ならば、やり方を教えてください。

381 ：デフォルトの名無しさん：2005/04/19(火) 19:01:51

>>380
ReleaseCaptureとSendMessageでWM_NCLBUTTONDOWN,HTCAPTION
だった記憶がある

382 ：デフォルトの名無しさん：2005/04/19(火) 19:18:25

>>381
ありがとうございました。

383 ：デフォルトの名無しさん：2005/04/19(火) 19:39:35

>>377
何これ。

384 ：デフォルトの名無しさん：2005/04/19(火) 19:48:54

>>383
お断りだ　って書いてあるように見えるな
それより >>365 の案件が片付いたのか気になる。
あれから何の音沙汰もないが・・・

385 ：デフォルトの名無しさん：2005/04/19(火) 19:52:40

>>384
VB6だったらReplaceでやっつけるけど、VB5って使えないのかね。

386 ：384：2005/04/19(火) 20:06:51

>>385
VB5にはReplace関数がない。

387 ：デフォルトの名無しさん：2005/04/19(火) 20:15:43

>>386
なるほど。
ﾄﾝｸｽ

388 ：デフォルトの名無しさん：2005/04/19(火) 20:23:37

>>380
あのさ、「できないのでしょうか？」って失礼だと思わない？

389 ：デフォルトの名無しさん：2005/04/19(火) 20:42:20

(´-`).｡ｏＯ（変な奴が常駐してるな）

390 ：デフォルトの名無しさん：2005/04/19(火) 20:55:28

>>365はいっそのことExcelVBAで書くってのはどうかね？

391 ：DBアクセス初心者：2005/04/20(水) 00:14:52

VB6+データグリッドコントロール+ADOデータコントロールでDBアクセスプログラムを
作成中ですが質問があります。
データグリッドに読みこんだレコードセットの任意のフィールドでソートさせたいのですが
簡単な方法はありませんか。
現状、データグリッドにはユーザーが選択した検索条件で検索したレコードが表示されるように
なっています。レコードセット取得時でしたらORDER BYで指定できますが、
レコードセットを取得してからはソートできないんでしょうか。

392 ：デフォルトの名無しさん：2005/04/20(水) 00:21:58

「できないんでしょうか」って失礼だと思わない？

393 ：392は無視すること：2005/04/20(水) 03:45:26

>>391
Sortプロパティでできない？

394 ：デフォルトの名無しさん：2005/04/20(水) 14:01:54 BE:30042825-###

>>391
Sortプロパティで昇順ソートはASCキーワード、
降順ソートはDESCキーワードでできるよ。

ところでActiveX DLLをレジストせずに利用する方法ってありますか？
VBで作成したDLLを、EXCELのVBAから利用しようと思ってるですが、
やっぱりAPIで起動時に登録、EXCEL終了時に解除するのが望ましいでしょうか？

試しにCreateObject ("ここにDLLのパス")としてみたのですが、出来るはずもなく・・・

395 ：デフォルトの名無しさん：2005/04/20(水) 15:40:20

ない

396 ：デフォルトの名無しさん：2005/04/20(水) 18:20:59

DataRepeaterコントロールを使える方いませんか？
私は事務処理系ソフトを作成しているPGです。今回売上画面作成を担当になり、
Accessのサブフォームのように明細を表示できるコントロールを探していまし
た。始めはSpredで作成したのですが、何かが違うなと感じています。
いろいろ調べてDataRepeaterというコントロールが使えそうなのですが、残念
ながら使い方を説明してくれているサイトを発見できませんでした。
もし使った事がある･使っているという方がいましたら、何を参考にしたのか
是非教えてください。

397 ：デフォルトの名無しさん：2005/04/20(水) 18:41:09

>>396
つ ttp://homepage1.nifty.com/MADIA/vb/vb_bbs2/200409_04090039.html

398 ：デフォルトの名無しさん：2005/04/20(水) 20:31:01

あのＶＢのソフトと書籍売ってる店知りませんか？
今日秋葉、新宿と探したけど両方ともＶＢ.ｎｅｔしか置いてなかったのでorz

399 ：デフォルトの名無しさん：2005/04/20(水) 20:35:27

>>398
書籍は本屋かオークションで。
VB6は入手不可。

400 ：398：2005/04/20(水) 21:24:20

>>399
マヂっすか(゜口゜；)

じゃあ家で勉強出来ないのかorz

学校の先生に聞いたら秋葉に売ってるって言ってたのにorz

漏れの今日の一日の努力は一体なんだったんだろ＿|￣|Ο＿|￣|Ο

401 ：デフォルトの名無しさん：2005/04/20(水) 21:26:23

秋葉ならなおさら無いだろうな

402 ：デフォルトの名無しさん：2005/04/20(水) 22:47:06

Visual BasicとV.B.NETって何がどう違うんですか？

403 ：デフォルトの名無しさん：2005/04/20(水) 22:51:07

そんなものありません

404 ：デフォルトの名無しさん：2005/04/20(水) 23:50:04

ただのグレードアップと見せかけて本当は全然違います。
「.NET」の力はすごいです。

405 ：デフォルトの名無しさん：2005/04/21(木) 01:08:18

>>394
> ところでActiveX DLLをレジストせずに利用する方法ってありますか？

http://www.microsoft.com/japan/msdn/thisweek/vbxp/vbxp2.asp
> VB で作成した ActiveX DLL がレジストリを使わないで動作したことをご理解いただけたことと思います。

406 ：デフォルトの名無しさん：2005/04/21(木) 04:53:05

>>405
おおっ、これこそ自分の求めていたものです！
しかしサイドバイサイド技術ですか。難しい・・・

407 ：デフォルトの名無しさん：2005/04/21(木) 07:24:37

>>402
全部違う

408 ：デフォルトの名無しさん：2005/04/21(木) 07:57:32

え？V.B.NETと？

409 ：デフォルトの名無しさん：2005/04/21(木) 09:43:16

VB.NETですた

410 ：デフォルトの名無しさん：2005/04/21(木) 10:01:52

ホントに全部違う？1個でも違わないとこを出されたら
あなたウソつきになっちゃいますけど撤回する気は？

411 ：デフォルトの名無しさん：2005/04/21(木) 13:33:18

>>397
ありがとうございました。

412 ：デフォルトの名無しさん：2005/04/21(木) 13:38:59

ttp://www5.airnet.ne.jp/init/vb/level1/level1001.html
のサイトにVBのバージョンとOS、IE、Officeの組み合わせでの動作環境が
書かれていますが、OSがWindowsXPの場合は動作するVBのバージョンや
SPとIE、Officeの組み合わせ等がわかる資料はありますでしょうか？

413 ：デフォルトの名無しさん：2005/04/21(木) 13:41:52

ない

414 ：412：2005/04/21(木) 13:46:00

>>413
即レスありがとうございます。
初歩的な質問で申し訳ないのですが、そもそもWindowsXP上で動作するアプリ開発は
VB6では無理（というか保証外）なのでしょうか？
この様な初歩的な事について書かれている資料やサイトをご存知でしたらご教授下さい。

415 ：デフォルトの名無しさん：2005/04/21(木) 14:11:00

開発ツール対応 OS 一覧
ttp://www.microsoft.com/japan/msdn/vs_previous/VSTUDIO/techinfo/toolos.htm

IEとかオヒスとかの対応は知らぬ。昔、雑誌でやってた気がするけど忘れた。

416 ：412：2005/04/21(木) 14:25:14

>>415さんありがとうございます！
とても参考になるサイトを教えてくれて感謝感謝です。
これ見るとVB6でもいけそうですね。
SPは6を当てないといけないのかな？
Win95、Win2000のマシンの混在する職場で共通で使用する
アプリの為、開発環境(コンパイルする為に)をWin95、Win2000
と用意して開発してるのですが、ここにWinXPのマシンが
増える事になって大変です＾＾；
ご教授下さった皆さんありがとうございました。またちょくちょく
のぞきに来ますね。

417 ：デフォルトの名無しさん：2005/04/21(木) 14:38:41

>>416
とても参考になるサイトってMSDNじゃん

418 ：デフォルトの名無しさん：2005/04/21(木) 15:26:51

MSDNってとても参考になるサイトじゃん

419 ：デフォルトの名無しさん：2005/04/21(木) 16:10:56

>>418
>>417はそういう意味じゃなくて、今までMSDN見てなかったのかよ、
って意味ね。

420 ：sage：2005/04/21(木) 20:19:26

今VB6SP6をwindows2000で使っているのですが、突然dateだけが使えなくなったり、【プロパティList(combo.Text)の参照が不正です】なんてエラーメッセージが出たりしてるんです。何が悪いのでしょうか？

421 ：デフォルトの名無しさん：2005/04/21(木) 20:30:45

>>420
ソース出せ。

422 ：デフォルトの名無しさん：2005/04/21(木) 20:37:11

>>420
お前

423 ：デフォルトの名無しさん：2005/04/21(木) 21:44:41

>>420
そゆときはVBを再起動。だまって再起動。

424 ：デフォルトの名無しさん：2005/04/22(金) 03:01:20

FileListBoxにファイルを表示させたら、拡張子が表示されてしまいました。
FileListBoxの拡張子は非表示にできますか？

色んなところ検索しても見つからなかったので質問してみました。
よろしくお願いします。

425 ：デフォルトの名無しさん：2005/04/22(金) 07:10:04

>>424
リストボックスを使う。

426 ：デフォルトの名無しさん：2005/04/22(金) 11:41:17

ＶＢのソースを読み込んでフローチャート等を生成する
ソフトってありませんか？
一応、下のようなものを見つけたのですが、
フローが荒く使い物になりません。

ttp://www.vector.co.jp/soft/win95/prog/se308859.html

427 ：デフォルトの名無しさん：2005/04/22(金) 12:01:15

>>426
読み込ませているソースが使い物にならないと使い物に
ならないフローチャートが出てくるだろうね。

428 ：デフォルトの名無しさん：2005/04/22(金) 12:02:56

>>426
目的は何？フローチャートを作ることが目的なの？

429 ：デフォルトの名無しさん：2005/04/22(金) 13:32:35

分岐やループなどが抜き出せればいいのですが、
できればフローを出力したいです。

430 ：デフォルトの名無しさん：2005/04/22(金) 13:35:33

>>429
仕様書doctorとか使ってみた？
HCPチャートとかでいいんじゃない？

今時フローチャートなんて使わないような気がするけどなー。

431 ：デフォルトの名無しさん：2005/04/22(金) 13:36:19

>>426
てかさ、お前が目的に合ったソフトを選んでないだけなのに
使い物にならないってのはおかしいんじゃないの？

432 ：デフォルトの名無しさん：2005/04/22(金) 14:41:21

秀丸のVB6.0の強調ファイルってないですか？

433 ：デフォルトの名無しさん：2005/04/22(金) 14:48:27

>>432
さあ、あるんじゃない？

434 ：デフォルトの名無しさん：2005/04/22(金) 17:52:48

こんばんわ　もりしんいちです

VB6を購入したいのですが、どこで買えますか？
できるだけ安いほうがいいです。
やはりオークションでしか買えないのでしょうか。

435 ：デフォルトの名無しさん：2005/04/22(金) 17:57:14

>>434
正規に買うならMSDNになるかな？
オークションで買うならMSに正式にライセンスの手続きをする事

436 ：デフォルトの名無しさん：2005/04/22(金) 20:25:06

簡単なことで申し訳ないのですが、べき乗の演算優先順位を教えていただけませんか？
VBからコードを移植しているのですが、ググってみても見つけられないのです・・・
　X = A * B ^ 2
この場合は、どちらが先に計算されるのでしょう？

437 ：デフォルトの名無しさん：2005/04/22(金) 20:29:16

>>436
演算子の優先順位はMSDNに書いてあるじゃないか。
気になるなら()をつければいいだろ。

438 ：デフォルトの名無しさん：2005/04/22(金) 20:39:23

失礼しました。MSDNにて解決しました(多分)。
移植元のVBコードが前述のように記されておりまして、
VBが手元になく実証できなかったもので慌ててしまいました。

439 ：デフォルトの名無しさん：2005/04/22(金) 21:21:33

>>438
アホか。ここでウソ教えられたらどうする気だったんだ？

440 ：デフォルトの名無しさん：2005/04/22(金) 21:30:44

っていうかさあ、わざわざ数学の規則と違う優先順序にしないだろう、
ぐらいの見当は付くでしょ普通。

どう考えても「にえっくすじじょう」のつもりでコードかいたら
「よんえっくすじじょう」になっちゃうような意地悪な優先順序にするはずがない。

441 ：デフォルトの名無しさん：2005/04/22(金) 21:35:59

Forthという楽しい言語もあるけどな

442 ：デフォルトの名無しさん：2005/04/22(金) 21:45:59

>>440
それは順序じゃなくて２が４に変わってるんですが。

443 ：デフォルトの名無しさん：2005/04/22(金) 21:46:29

>>435
あれ？なんでお前に注意されなきゃなんねーの？

444 ：デフォルトの名無しさん：2005/04/22(金) 22:03:59

>>442
おいおいマジレスかよ。。。
いまじゃこんな人種でもプログラミングすんのか

445 ：デフォルトの名無しさん：2005/04/22(金) 22:09:31

>>444
え？何か間違ってましたでしょうか？

446 ：デフォルトの名無しさん：2005/04/22(金) 22:10:18

本気で間違えたのを本気で指摘しちゃダメって
ことなんじゃないの？

447 ：デフォルトの名無しさん：2005/04/22(金) 23:01:58

execl、wordからvbプログラムを呼べるようにする方法があったと思うのですが
誰か方法を教えてください。
よろしくお願いします。

448 ：デフォルトの名無しさん：2005/04/22(金) 23:23:21

>>447
ある程度グーグルで検索したと思いますが、
どういうキーワードを入れて検索したら見つからなかった
のでしょうか。

449 ：デフォルトの名無しさん：2005/04/22(金) 23:39:38

"execlから" "vb"ですが

450 ：デフォルトの名無しさん：2005/04/22(金) 23:45:40

薄い記憶ではツールバーかその下あたりにカスタムで呼べるように出来たのを見た気がするんですが・・・
もうVBAで組んだほうが早い気がしてますが・・・・

451 ：デフォルトの名無しさん：2005/04/22(金) 23:51:35

っていうか煽りじゃなくてマジで「呼ぶ」ってどういう意味？
マクロから別のアプリを起動するって意味か？
それならshellでいいと思うけど。

452 ：デフォルトの名無しさん：2005/04/22(金) 23:53:38

うーんと、マクロはは無関係でVBで作ったexeをツールボックス付近に登録できた気がするんですが勘違いですかね・・・・

453 ：デフォルトの名無しさん：2005/04/22(金) 23:55:24

ツールバーでした

454 ：デフォルトの名無しさん：2005/04/23(土) 00:01:47

アドインって奴か？

455 ：デフォルトの名無しさん：2005/04/23(土) 00:32:01

>>454
アドインで調べてみます,thx

456 ：デフォルトの名無しさん：2005/04/23(土) 06:58:36

>>449
使えない奴って検索もヘタなのな。

457 ：デフォルトの名無しさん：2005/04/23(土) 15:25:18

コントロール配列のＩｎｄｅｘを変える方法ってありますか？

実行時にコントロールを削除した場合に、Ｉｎｄｅｘも変える必要があるのでは？と
思うのですが、こういった場合、どうするんでしょうか？

458 ：デフォルトの名無しさん：2005/04/23(土) 15:42:11

>>457
やればわかる。

459 ：デフォルトの名無しさん：2005/04/23(土) 15:53:46

>>458
やっても分からなかったから聞いてると思いますよ。

460 ：デフォルトの名無しさん：2005/04/23(土) 21:12:46

VB6アプリケーションって、VB.NETじゃ作れないの？

461 ：デフォルトの名無しさん：2005/04/23(土) 21:13:53

プロパティにIndexってあるじゃん。そこを変えれば良い。

462 ：デフォルトの名無しさん：2005/04/24(日) 00:50:51

少しばかり助けていただきたいです
(2のn乗-1) \ (24*60*365)をやらせて出力するプログラムなのですが
割り算のところでオーバーフローします
ソースは以下の通りです、初心者なので汚いのは勘弁m(_ _"m)
---------------------------
Option Explicit
Private Sub Command1_Click()
Dim tmp, ans, loops As Currency
tmp = 1
Dim inp
'入力処理
inp = Val(Text1.Text)
'階乗処理
tmp = 2 ^ inp
'デバッグ用@(無しでもいい)
Text2.Text = Chr(10) & Chr(13) & "debg tmp:" & tmp
'計算
ans = (tmp - 1) \ (60 * 24 * 365)
'出力
Label1.Caption = ans & "年"
End Sub
---------------------------
変数宣言のところをCurrencyにしたりバリアントにしたりしてみましたが、どうもできません。

463 ：462：2005/04/24(日) 00:52:32

追加
入力したい数値の最大値は50です。
お願いします。

464 ：デフォルトの名無しさん：2005/04/24(日) 01:07:13

>>462
学生さん？学校の授業ならこういうことはたいてい真っ先に教えてくれる
はずだと思うんだけど。まあ、最近は先生の質も（以下略

60 * 24 * 365

60も24も365も小数点も型宣言文字もないから、Integer型の値として扱われる。
だから演算結果の型もInteger型になる。
しかし、

60 * 24 * 365

この結果はいうまでも無くInteger型で扱える値の範囲を超えている。だから例外が発生する。

どうでもいいけど[Xのn乗]って普通「階乗」って言わないと思う。
階乗ってのはX!のことだよ。

465 ：デフォルトの名無しさん：2005/04/24(日) 01:11:16

貴重な授業時間を特定の言語の仕様の解説に費やす先生の方が問題だと思われ。

466 ：デフォルトの名無しさん：2005/04/24(日) 01:15:44

だから高卒は（以下同文

467 ：デフォルトの名無しさん：2005/04/24(日) 01:17:45

>特定の言語の使用
馬鹿丸出し。
プログラミングの授業ってのはたいていデータ型の意味とか
演算誤差とか、言語に関係ない普遍的な内容からはじめるものだ。
まともな学校ならね。

468 ：デフォルトの名無しさん：2005/04/24(日) 01:21:36

こんどは専門学校出身の方が出現されたようです？

469 ：462：2005/04/24(日) 01:51:47

2のn乗を階乗なんて書くなんて馬鹿だなぁorz

>>464 >all
えーっと、どうすればいいのでしょうか？
60,24,365をCurrency変数として宣言？
-----------------
Dim sec, hour, day As Currency '追加
sec = 60: hour = 24: day = 365 '追加

ans = (tmp - 1) \ (sec * hour * day) '修正
---------------------
やっぱ無理です
VBはいいところもあるが、あいまいなところがあって難しいですね

470 ：デフォルトの名無しさん：2005/04/24(日) 01:59:41

>>469
＞Dim sec, hour, day As Currency
この書き方だと前の2つはVariant型になる。

471 ：デフォルトの名無しさん：2005/04/24(日) 02:21:15

>>470
嘘？
まじで？
どっかのサイトで
Dim a As integer;
Dim b As integer;
Dim c As integer;
と、
Dim a As integer, b As integer, c As integer;
と、
Dim a, b, c As integer;
は同じって書いてたような

472 ：デフォルトの名無しさん：2005/04/24(日) 02:25:23

>>471
それはVB.NETだろ。

証拠
Dim a, b, c As Integer
a = "test"

473 ：デフォルトの名無しさん：2005/04/24(日) 02:41:28

>>472
あ～そっか。
ごっちゃになってたｽﾏｿ

474 ：デフォルトの名無しさん：2005/04/24(日) 07:56:34

お前らさぁ、この手の簡単な質問来るとホント食い付きいいよなぁ。
難しいっつーか、微妙にレベル上がっただけで普段はダンマリしてんのにな

475 ：デフォルトの名無しさん：2005/04/24(日) 08:36:21

質問です

VisualBASIC6.0 LearningEditionって、StandardEditionと何が違うの？

476 ：デフォルトの名無しさん：2005/04/24(日) 09:23:15

名前が違う。

あとさ、なぜMicrosoftのHPで調べないか教えて。

477 ：デフォルトの名無しさん：2005/04/24(日) 11:46:17

>>469
＞VBはいいところもあるが、あいまいなところがあって難しいですね
この問題に関してはVBの問題とは思えない。
「あいまい」なのはVBじゃなくて君の理解の方だと思うよ。
どんな言語でもプログラマはデータ型を意識する必要がある。君はそれができてない。

＞60,24,365をCurrency変数として宣言？
そんなことしなくても三つの即値のいずれかまたは全ての後に
Currency（本当はLongの方がいいと思う）の型宣言文字を付ければいい。
>>464にも型宣言文字って書いてあるでしょ？

最低限ここぐらい読んどくといいかも
http://support.microsoft.com/default.aspx?scid=kb;ja;409744

478 ：デフォルトの名無しさん：2005/04/24(日) 11:54:59

>>469
ってBasicとかPerlとかJavaScriptとかのインタプリタ言語人間なんじゃ？
ああいうの型とか明確にされてないし

479 ：デフォルトの名無しさん：2005/04/24(日) 11:58:44

>>474
ﾜﾛｽ(w

480 ：デフォルトの名無しさん：2005/04/24(日) 11:58:57

>>478
そんなことお前に関係あるか？

481 ：デフォルトの名無しさん：2005/04/24(日) 12:02:11

>>480
お前には関係あるのか？

482 ：デフォルトの名無しさん：2005/04/24(日) 12:05:52

>>481
ないけどそんなこと関係あるのか？

483 ：デフォルトの名無しさん：2005/04/24(日) 12:54:29

>>456
そんな冷たい言い方しないで教えてくださいよ

484 ：デフォルトの名無しさん：2005/04/24(日) 13:17:24

検索が下手だから使えないのかもね

485 ：デフォルトの名無しさん：2005/04/24(日) 13:18:16

>>482
そういうお前には関係あるのか？

486 ：デフォルトの名無しさん：2005/04/24(日) 13:20:33

>>485
だからないって言ってるんだけど。
あるかないか関係あるのか？

487 ：デフォルトの名無しさん：2005/04/24(日) 13:27:31

>>486
おまえに関係無いのに言う必要あるのか？

488 ：デフォルトの名無しさん：2005/04/24(日) 13:54:39

>>487
俺には関係ないが>>478が知りたいってさ。

489 ：デフォルトの名無しさん：2005/04/24(日) 13:55:05

違うか。>>478じゃなくて>>469が知りたいのか。
ごめんよ。

490 ：デフォルトの名無しさん：2005/04/24(日) 16:34:47

VB5 Learning Edition　かなり以前に購入したのですが、
SP3をもっていません。サポート外とはおもいますが、
どこかでダウンロードできませんでしょうか？

491 ：デフォルトの名無しさん：2005/04/24(日) 16:42:27

Learning EditionはMS公式もサポート外になってるな

492 ：デフォルトの名無しさん：2005/04/24(日) 17:41:43

>>491
ありがとうございます。つまりLearning Editionには最初からSP3は
なかったということでしょうか？
いずれにしても、ここのサイトみてると各バージョンでの
ラインタイム動作が不定なのでいまから力を入れてプログラム組むのが
不安になります。（完全上位互換ではないようですね？）
ランタイムが必要なVBではどのエディションでもついてまわる
問題なのでしょうか？
ttp://www.takami.com/hp/news.htm

493 ：デフォルトの名無しさん：2005/04/24(日) 17:49:46

>>492
今から力入れるならC#とか.Net系にしろよ。5.0なんてやっても時間の無駄だぜ？

494 ：デフォルトの名無しさん：2005/04/24(日) 18:11:50

VBスレでC#かよ

495 ：デフォルトの名無しさん：2005/04/24(日) 18:13:52

>>494
おいおい…使ったことが無い人は黙ってた方がいいよ。

496 ：462：2005/04/24(日) 18:22:31

>>477
自分なりにがんばってみたんですけど
2＾50 \ (60*24*365)
ここでオーバーフローする原因がよく分かりません

.netだと動くのですけど、なんでだろ

497 ：デフォルトの名無しさん：2005/04/24(日) 18:25:30

>>495
m9(^Д^)ﾌﾟｷﾞｬｰ

498 ：デフォルトの名無しさん：2005/04/24(日) 18:26:41

ｵｲｵｲﾏｼﾞｶﾖ
ﾃｲｳｶ､ｾｯｶｸﾉﾆﾁﾖｳﾋﾞｸﾀﾞﾗﾅｲﾂﾘｼﾃﾀﾉｼｲｶ?

499 ：デフォルトの名無しさん：2005/04/24(日) 18:29:34

>>496
\演算子
除算を実行する前に、数式はバイト型 (Byte)、整数型 (Integer)、または長整数型 (Long) の式に丸められます。
2＾50ですでに。

500 ：デフォルトの名無しさん：2005/04/24(日) 18:33:23

>>496
桁数が超えてるから
アクセサリの電卓で関数電卓モードのQWORDでそれ計算して見ろ
Currencyの桁数オーバーしとるわ

501 ：デフォルトの名無しさん：2005/04/24(日) 18:34:19

>>500
m9(^Д^)ﾌﾟｷﾞｬｰ

502 ：デフォルトの名無しさん：2005/04/24(日) 18:38:21

>>490
Learning Editionって、SP適用できない、とどこかのサイトで読んだ。
いくつからかは覚えてないけど。

503 ：490：2005/04/24(日) 19:11:30

>>502
ありがとうございます。VBでLEは鬼門ですね。
それはそうとVB6もサポート打ち切りとのことですし、
過去の資産を考えると
SP、ランタイムとも、自分で保管することを心がけ
なければ大変なことになりそうですね。

504 ：デフォルトの名無しさん：2005/04/24(日) 19:34:58

>>496
2 ^ 50 / (60 * 24 * 356&)

型宣言文字のことを2回も指摘されてるのに。

505 ：462&496：2005/04/24(日) 20:50:20

サンクス>>all
とりあえず自己解決しました
vb6でlongやCurrency使おうとしたことが間違いだった

そういえば.netのlongって64ビットだったんですね

506 ：デフォルトの名無しさん：2005/04/24(日) 21:37:03

Currencyってなんですか？GetDiskFreeSpaceExの戻り値を
Currencyで受け取っているサンプルを見たことがあるのですが、
それは正しい使い方でしょうか？

507 ：デフォルトの名無しさん：2005/04/24(日) 21:39:55

>>506
どこまで自分で調べましたか？

508 ：デフォルトの名無しさん：2005/04/24(日) 21:57:14

>>507
>>506の質問をするレベルまでです。

509 ：デフォルトの名無しさん：2005/04/24(日) 21:59:50

じゃあもう一度しっかり調べてきてください

510 ：デフォルトの名無しさん：2005/04/24(日) 21:59:53

>>506
Currencyは8バイトで小数点以下4桁の固定小数点型。
内部では10000倍して64bit整数として値を格納している。
だからそういう使い方でもたしかに動く。(良いか悪いかは別として)

511 ：デフォルトの名無しさん：2005/04/24(日) 22:04:05

Currencyは8バイト
　　Currencyは8バイト

512 ：デフォルトの名無しさん：2005/04/24(日) 23:20:42

>>506
オイラもLONGLONG型を必要とするAPIなんかでは
よくCurrency型を使ったりするよ。
ただ、APIとかとやり取りするときはいいんだが
それをそのまま計算に使うと
浮動小数点になっちゃう場合があるんで注意が必要。
（別にAPIがらみの問題って訳じゃなくてCurrecy型の注意点だけどな）

意味がわかって使ってるなら「間違った使い方」じゃないんでないかな。

513 ：デフォルトの名無しさん：2005/04/25(月) 07:07:49

LONGLONG型を必要とするAPIって、他にどんなものが
ありますか？

514 ：457：2005/04/25(月) 12:44:52

>>461
>プロパティにIndexってあるじゃん。そこを変えれば良い。

例えばForm上に、Text1(0)とText(2)があるとします。

Text1(2).Index = 1　とすると

値の取得のみが許されているプロパティに云々というエラーが出てしまいます(つД｀)

515 ：デフォルトの名無しさん：2005/04/25(月) 12:54:39

そりゃそうだろ。

516 ：デフォルトの名無しさん：2005/04/25(月) 20:03:07

VB5.0で拡張メタファイルをクリップボードに転送致したく。

メタファイル→ピクチャオブジェクト作成→クリップボード転送
↑の流れで組んでいるのですが、クリップボードにピクチャオブジェクトを
設定する方法がわからず困っとります。ご教授願います。

517 ：デフォルトの名無しさん：2005/04/25(月) 20:27:15

winows2000のＰＣでVisualBasicプロジェクトのASP.NET Webアプリケーションでプログラムを作ったんだが
ログオンユーザーＡで作ったプログラムをログオンユーザーＢのほうで開いたけど
実行は出来るが編集するソースというかプログラムが出てこない。
権限はどちらもあるんだけどなぜでしょうか？

518 ：デフォルトの名無しさん：2005/04/25(月) 21:12:56

>>517
スレ＆板違いだ

519 ：デフォルトの名無しさん：2005/04/25(月) 22:17:22

>>514
プログラムの中でIndexの値を変えたいっていうなら無理。

520 ：デフォルトの名無しさん：2005/04/26(火) 00:19:46

今、VB６．０の勉強をしているのですが、
人がつくったソースを見てそれをいじりながら勉強したいと思うのですが、
どこかにそういったものはありませんでしょうか？

521 ：デフォルトの名無しさん：2005/04/26(火) 00:34:01

>>520
フリーソフトでソース付きのもの。

522 ：457：2005/04/26(火) 01:33:14

すると>>457の場合、どうしたら良いのでしょうか？

実行中に、コントロールを削除した場合の処理をどうすうれば良いのでしょう？
コントロールを削除すると、Indexに欠番が出来てしまいますよね？

523 ：デフォルトの名無しさん：2005/04/26(火) 01:44:41

>>522
欠番があると支障がでるかやってみればわかる、
と458で回答されてるのに。

524 ：デフォルトの名無しさん：2005/04/26(火) 02:56:55

>>520
//www2j.biglobe.ne.jp/~little-g/cgi-bin/hajikariqa.cgi
#902～

525 ：デフォルトの名無しさん：2005/04/26(火) 10:30:48

>>523
配列の添字を使ってループさせたい場合に、面倒な事になると思うのですが・・

526 ：デフォルトの名無しさん：2005/04/26(火) 10:38:29

>>525
Dim o As Object
For Each o In Text1
Debug.Print o.Index
Next o

527 ：デフォルトの名無しさん：2005/04/26(火) 11:20:38

別に生成したオブジェクトにデータを渡す場合に同期がとれないのではないかと・・

528 ：デフォルトの名無しさん：2005/04/26(火) 12:29:45

何故にちびちび条件が増えるんだ？

529 ：デフォルトの名無しさん：2005/04/26(火) 13:32:48

>>525
コードで削除するのに、管理できない理由がわからない。
削除したのをスキップするだけなのに。

530 ：デフォルトの名無しさん：2005/04/26(火) 16:05:48

まぁ、そのまえに削除するケースなのかどうかが問題な気もするが・・・・

別にVisible=Falseとかでもいけるのならそっちのがいいでしょ？

まぁ本人次第だが

531 ：デフォルトの名無しさん：2005/04/26(火) 16:13:58

削除したら勝手にIndex詰まらなかったか？

532 ：デフォルトの名無しさん：2005/04/26(火) 18:22:05

>>531
デザイン時だけじゃない？

533 ：デフォルトの名無しさん：2005/04/26(火) 18:36:46

>>532
デザインの時も詰まらないよ。
TabIndexは詰まるけど。

534 ：デフォルトの名無しさん：2005/04/26(火) 19:01:36

MSFlexGridの外枠の大きさを中の表のサイズに自動に合わせる方法はないでしょうか？
どなたかヘルプお願いします。

535 ：デフォルトの名無しさん：2005/04/26(火) 20:09:47

>>534
計算したらええやん

536 ：デフォルトの名無しさん：2005/04/26(火) 20:24:16

俺の記憶違いだったか・・・

537 ：デフォルトの名無しさん：2005/04/26(火) 21:10:21

>>534
そう言えば、XPとそれ以前では中のサイズが違うし。
自分で計算式を導け。

538 ：デフォルトの名無しさん：2005/04/26(火) 21:11:35

>>533
次に追加する時、若い空き番号から埋まっていくだけだったか。

539 ：519：2005/04/26(火) 23:11:54

>>527
for i=1 to 10
　　txtbox(i).text=str(i)
next i

もし、こういうコーディングをしていて
テキストボックスを削除する場合があるんで
どうすればいいかというんだったら、

コントロール配列の分だけboolean型の
動的配列かなんか用意して、コントロール
配列を削除した場合にコントロール配列の
インデックスと同じ添え字の配列にfalseを入れる。
で、
j=1
for i=1 to 10
　　if flg(i)=true then
　　　　txtbox(i).text=str(j)
　　end if
　　j=j+1
next i

とかするしかないんじゃね？
そもそもコントロール配列を削除する場合があるのに配列でループを
回すって言うのが、おかしいような気がするけど。
どんなソースになっているか分からんのでなんともいえない。

540 ：デフォルトの名無しさん：2005/04/26(火) 23:20:44

>>539
個人的には flg が気に入らない

541 ：デフォルトの名無しさん：2005/04/26(火) 23:25:17

VBでMTA作るのって可能でしょうか？

542 ：デフォルトの名無しさん：2005/04/26(火) 23:30:51

VB6.0で、変数の大文字、小文字が勝手に統一される
機能って抑止できる？

543 ：519：2005/04/26(火) 23:33:32

間違えた。
j=j+1はif文の中のtxtbox(i).text=str(j)の次の行に入れてくれ。

544 ：デフォルトの名無しさん：2005/04/26(火) 23:38:42

>>542
変数は宣言しろ。

545 ：デフォルトの名無しさん：2005/04/26(火) 23:46:43

なんかアホ質問に馬鹿回答って感じだな。。
しかし口調が偉そうな奴はどうして揃いも揃って馬鹿で無能なのか。

546 ：デフォルトの名無しさん：2005/04/26(火) 23:52:03

↑↑↑

547 ：デフォルトの名無しさん：2005/04/27(水) 01:05:06

>>544
そういうことでなくて、例えばある関数の中で
Dim iRet as Integer
というのがあって、新しく追加した関数の中で
Dim iret as integer
などとすると、元々あった関数の中のiRetがiretに変換されて
しまう機能のことです。

548 ：デフォルトの名無しさん：2005/04/27(水) 01:08:06

>>547
そんなことにはならない。
宣言してない場合は最新の表記に統一されるけど。

549 ：デフォルトの名無しさん：2005/04/27(水) 01:57:23

>>548
なるよ。VB6の話だけど。
それ以前のVBは知らん。

550 ：デフォルトの名無しさん：2005/04/27(水) 02:07:53

かっこいい画面を作ってその裏の処理がVBって作れるのかしら？
かっこいい画面というのは、flashかそれ類似のUIを目指したいのです。
最近のアプリはmedia playerだとかUIがキレイ系なものも多いですが、
ああいうのは何で作っているのかしら？

551 ：デフォルトの名無しさん：2005/04/27(水) 02:20:35

>>550
VBでも作れる

552 ：550：2005/04/27(水) 02:38:25

>>551
なにか売ってるのかしら？

553 ：548：2005/04/27(水) 02:38:45

>>547
確認。orz
IDEを使う限り、このおせっかい機能は切れないみたい。
どうしても変えたければ、保存した後にエディタで手を加えるとか。
でも、表記は統一したほうがいいと思う。

554 ：デフォルトの名無しさん：2005/04/27(水) 02:41:58

メッセージボックスがでている間にタイマーイベントが発生するかしないかというのは
IDEで実行しているときと、exeにしたときで動作が違いますか？

メッセージボックスがでている間にタイマーイベントが発生しないか
発生しても無視するようにする
簡単な方法ってありますでしょうか。

555 ：デフォルトの名無しさん：2005/04/27(水) 02:44:53

CopyHere methodを使ってフォルダ内のファイルをコピーしようと思ったんだけど
C:\Testを指定すると、Testフォルダを含めてコピーしてしまいます。
Testフォルダを含めずに、Testフォルダの中身だけをCopyHereで
コピーすることってできますか？

556 ：デフォルトの名無しさん：2005/04/27(水) 06:31:29

>>550
かっこいい画面つったって
所詮、画像を表示しているだけじゃん。

557 ：デフォルトの名無しさん：2005/04/27(水) 07:17:40

>>549
抑止はムリですかね。やっぱり。

558 ：デフォルトの名無しさん：2005/04/27(水) 07:58:15

>>555
CopyFileメソッドでワイルドカードを使えば？

559 ：デフォルトの名無しさん：2005/04/27(水) 11:02:35

VB4(32bit)からVB6(SP5)へ移行するんですが
コーディングでVB6用に記述を変更しなくてはならない
ことってありますか？

MSDN検索したけど情報が見つかりません。
どっかサイトあれば教えてください。

コントロールについては、これを見つけました。
http://support.microsoft.com/default.aspx?scid=kb;ja;412580

こんな感じでコーディングについての注意点みたいなのが知りたいです。

560 ：デフォルトの名無しさん：2005/04/27(水) 12:59:59

>>559
コードレベルでは問題ないはず。
コントロールの張替えなどすれば大体動きます。

561 ：デフォルトの名無しさん：2005/04/27(水) 17:30:10

VB6.0にて、テキストボックスAとテキストボックスBを設けて、
「Aに文字を入力すると、仮名漢字変換前のフリガナをBに表示する」
というものを実現したいです。どうすればできますか？

562 ：デフォルトの名無しさん：2005/04/27(水) 18:09:04

>>561
PHONETIC使え

563 ：５３４：2005/04/27(水) 19:05:24

OSによってサイズが変わるのですが、対処方法はないですか？

564 ：デフォルトの名無しさん：2005/04/27(水) 19:13:08

>>563
3の倍数のポイント数ならOKだったような。
もともと半角全角の組み合わせでズレる仕様を突然XPで修正したのが原因。
でも、9ポイントは小さすぎるし、12ポイントは大きすぎるし。

565 ：デフォルトの名無しさん：2005/04/27(水) 20:16:38

>>561
>>562 のレスを参考に「VB6 PHONETIC」でググったら
何やら使えそうなお手本発見。あとは自力でなんとかなるっしょ

566 ：デフォルトの名無しさん：2005/04/27(水) 20:34:35

>>559
さすがにネタでしょ？何周回遅れだよw
そういうのは『ここだけ時代がxx年ずれてるスレ』でやっておくれ。

567 ：デフォルトの名無しさん：2005/04/28(木) 00:23:59

VB6.0 ADO SQLServer を使います。

ﾃｰﾌﾞﾙ作成用のSQLﾌｧｲﾙが既にあり
そのSQLﾌｧｲﾙをVBからｷｯｸしてﾃｰﾌﾞﾙを作るﾌﾟﾛｸﾞﾗﾑを作ろうとしているのですが
SQLﾌｧｲﾙをADO等で実行する事って出来ますか？

568 ：デフォルトの名無しさん：2005/04/28(木) 00:56:18

Inetコントロールで、ExecuteでHTTPデータを転送し、GetChunkでサーバからの応答を
文字列で受信するとき、受信したデータの中に"http/"という文字があると""が取得されてしまうのですが
これはどうにもならないのでしょうか？

バイナリ配列でも同じ結果でした。

569 ：550：2005/04/28(木) 00:56:46

>>556
画像を表示って？
たとえばRealPlayerのUIと同じものをVB6で作るということはできることでしょうか？
あるいは言語を変えるべき話なら何がよいのかしら。

570 ：デフォルトの名無しさん：2005/04/28(木) 01:00:00

>>567
おれは知らないけど、DDLとADOで検索してみては？

571 ：デフォルトの名無しさん：2005/04/28(木) 01:00:22

>>569
あなたは才能が無いから、あきらめてください。

572 ：デフォルトの名無しさん：2005/04/28(木) 01:01:52

>>569
UIという表現は曖昧すぎて何を知りたいのか他人には伝わらない。

573 ：デフォルトの名無しさん：2005/04/28(木) 01:03:29

ういﾉ

574 ：550：2005/04/28(木) 01:10:52

>>571
才能の問題は誰しも抱えているので。。
>>572
見た目にキレイなボタンとか、タブとか
ウィンドウの縁とかそいういうものを実装したいという話です。

575 ：デフォルトの名無しさん：2005/04/28(木) 01:19:48

>>574
たとえば、ハート型のフォームも丸いボタンもVBで可能。
556が言うように、すべてスクリーンに描画してるだけ。

576 ：550：2005/04/28(木) 01:21:52

>>575
どの辺にサンプルがあるかご存知でしょうか。

577 ：デフォルトの名無しさん：2005/04/28(木) 01:25:10

>>576
そういうのは自分で調べるもんだよ。

578 ：デフォルトの名無しさん：2005/04/28(木) 01:27:04

リージョンとか穴あきウィンドウでググれ

579 ：550：2005/04/28(木) 01:29:34

>>577
知らないならしょうがないけど
検索のキーワードくらいは教えてよ

580 ：デフォルトの名無しさん：2005/04/28(木) 01:30:25

低能が

581 ：550：2005/04/28(木) 01:33:44

>>578
THX！

582 ：デフォルトの名無しさん：2005/04/28(木) 04:12:08

VB6で、CDRにデータを焼きたいんだけど
どこか参考になるサイトってありますか？

583 ：デフォルトの名無しさん：2005/04/28(木) 07:57:38

>567
ConnectionオブジェクトのExecuteメソッドにSQLファイル内容文字列を渡して実行

584 ：どろんじょ：2005/04/28(木) 08:54:02

環境　VB6.0+WEBブラウザコントロール

VBでIEのプロキシーサーバ設定を変更させて即時WEBブラウザコントロールを使った通信に反映させる
方法っていいのしらないですか？レジストリ変更まではやってみたんだけど反映されないのよね＾＾

HKEY_CURRENT_USER＼Software＼Microsoft＼Windows＼CurrentVersion＼Internet Settings　にある
　ProxyEnable　
　ProxyServer　

を変えてみたんだけど・・・
再起動したら反映するんだけどそれだとね～

えろいお兄さんおしえてください。

585 ：デフォルトの名無しさん：2005/04/28(木) 11:05:18

>>550
もしかしてあの水野さん？

586 ：デフォルトの名無しさん：2005/04/28(木) 12:27:25

>>585
しー、Ｍ女史を発動させてはいけない。

587 ：デフォルトの名無しさん：2005/04/28(木) 12:36:49

586は、しらかわよふね（ｗ

588 ：ユーザー：2005/04/28(木) 15:17:16

VBで作成した画面で、郵便番号入れたら自動的に住所がある程度まで
入力される仕組みになっています。このとき、IME辞書ではなく、INPUTMANという
郵便番号辞書を使っています。ところがこれが、年に２回しか更新されないので
市町村合併の相次ぐ今、郵便番号辞書が古いままの状態となり困っています。
郵便番号辞書を最新に更新する方法、どなたかご存じありませんか？

589 ：デフォルトの名無しさん：2005/04/28(木) 15:21:24

文化オリエントに文句言えばいいじゃない。どうしてくれるんだと。

590 ：デフォルトの名無しさん：2005/04/28(木) 15:45:47

>>584
おそらくプロセス生成時にメモリに読み込んでいるので、
そういう機能が提供されていなければできないかもしれません。
プロキシサーバを自作してIEにはそれを使うように設定し
自作のプロキシサーバの設定を変更していくという作りにしてはどうでしょう？
かつてそんなソフトもありましたし。

591 ：デフォルトの名無しさん：2005/04/28(木) 16:01:38

ググってみたらいいサイト発見。4番目のやつね。
http://www.googkle.com/search?hl=en&q=Process&btnG=Google+Search

592 ：デフォルトの名無しさん：2005/04/28(木) 16:04:14

>>591
業務妨害罪だな

593 ：デフォルトの名無しさん：2005/04/28(木) 16:40:03

あぶねえあぶねえ。いっかり押すとこだった。ウイルス情報読んでて良かったよ。

594 ：デフォルトの名無しさん：2005/04/28(木) 16:42:10

>>593
ああ、入力ミスの罠の事ですね

595 ：デフォルトの名無しさん：2005/04/28(木) 16:54:18

>>593
あぼーん登録おすすめ

596 ：デフォルトの名無しさん：2005/04/28(木) 18:32:19

なんなの？そこ。

597 ：デフォルトの名無しさん：2005/04/28(木) 18:37:11

ttp://headlines.yahoo.co.jp/hl?a=20050428-00000017-zdn_ep-sci
PCを乗っ取ろうとする悪意のあるサイトです

598 ：デフォルトの名無しさん：2005/04/28(木) 18:45:03

>>591はあきらかに悪意をもって書き込んでいます
ttp://www.npa.go.jp/cyber/soudan.htm
被害にあわれた人は上記警察のサイバー犯罪対策のリンクにあるお近くの
場所へ被害を届けてください

599 ：デフォルトの名無しさん：2005/04/28(木) 22:10:52

>>591
マジでしゃれですまされんことしちゃったね。

600 ：デフォルトの名無しさん：2005/04/29(金) 00:08:11

>>591
話が大きくならないうちに、自分で削除依頼出しておけよ
もう手遅れかもしれないけどな

601 ：デフォルトの名無しさん：2005/04/29(金) 00:19:51

ウイルス張られた時の反応からこのスレの住民の特徴が分かった。

602 ：デフォルトの名無しさん：2005/04/29(金) 01:05:05

>>601
今頃？

603 ：デフォルトの名無しさん：2005/04/29(金) 02:54:48

警察庁のネットワーク・セキュリティ対策室は実績をあげようとやっきになってるし。
>>591を実験台として提供してもばちは当たらんだろ。

604 ：デフォルトの名無しさん：2005/04/30(土) 04:15:35

Microsoft Visual Basic 6.0 コモンコントロール
http://www.microsoft.com/downloads/details.aspx?FamilyID=25437d98-51d0-41c1-bb14-64662f5f62fe&DisplayLang=ja

605 ：どろんじょ：2005/04/30(土) 12:39:46

>>590

なるほどいいことおもいつきましたねー
ってそれだったらWEBブラウザコントロール使わずに
WINSOCKつかってやってるわよ。フフフ
でもお兄さんのなんとかしてあげたいって思いがつた
わってきてよかったわよ

606 ：デフォルトの名無しさん：2005/04/30(土) 13:58:22

UrlMkSetSessionOption

607 ：デフォルトの名無しさん：2005/04/30(土) 20:53:54

すまん、ちょっと教えておくれ
vb6.0のソースってVB.NETで開けますかね

開くというか、移行できるのかお聞きしたいのですが
ある程度は、VB.NETが修正してくれて、細か部分は
人間が修正するみたいな。
それともまったくＶＢ６のソースは、移行できずに
作り直しなのかな

608 ：デフォルトの名無しさん：2005/04/30(土) 21:01:36

VBは素人なんで詳しいことは分からんけど
vb6.0のソースはVB.NETで開けますよ
想像してる通り、.netが修正してくれますけど
型変換なんかがうまくできない場合がよくあります。（私だけかも

それにしても>>591うざ　こういうのが居るから重いノートン立ち上げてないといけないんだよなぁ

609 ：デフォルトの名無しさん：2005/04/30(土) 21:48:26

>>591って開くとどういう被害があるの？

610 ：デフォルトの名無しさん：2005/04/30(土) 22:12:42

コントロールのVisibleプロパティを変更しているのに
変更されなかったりするのってどんなときですか？

611 ：デフォルトの名無しさん：2005/04/30(土) 22:17:19

>>609
バックドアプログラム2つ
ドロッパー2つ
プロキシ型トロイの木馬
銀行情報を盗むスパイ型トロイの木馬
ダウンローダー

関連記事
ttp://www.itmedia.co.jp/enterprise/articles/0504/28/news017.html

612 ：デフォルトの名無しさん：2005/04/30(土) 22:21:33

>>611
で、どういう被害があるの？

613 ：デフォルトの名無しさん：2005/04/30(土) 22:25:41

>>612
それ以上はスレ違い
セキュ板で聞け

614 ：デフォルトの名無しさん：2005/04/30(土) 22:26:46

>>610
Visibleプロパティは変更されているんじゃないかな。
ただ目に見えている内容はVisibleと一致する訳じゃないよ。

Visibleプロパティは「(次回)描画すべきタイミングで描画するか」の
ON/OFFであり、描画する/消去するを行うものじゃないってことだよ。
不一致となる時間を短くしたいならRefreshメソッドなんかを呼んでみたら？

615 ：デフォルトの名無しさん：2005/04/30(土) 22:27:03

>>613
お前バカだろ。それ以上じゃなくて>>611を書き込んだのが
既に間違い。

616 ：デフォルトの名無しさん：2005/04/30(土) 22:27:56

>>614
いや、デバッグで見るとVisibleプロパティが変わっていないのですよ。
1つのフォームインスタンスに対して2回ShowDialogを呼ぶとか
ってNGですかね。

617 ：デフォルトの名無しさん：2005/04/30(土) 22:33:29

自分なりに問題を単純化してみたのですが、
Form2にButton1、Button2を貼り付けておいて、
Form1からForm2をShowDialogで開きます。
1回目は、Button1、Button2共にVisibleプロパティが
Trueとなっているのですが、続けてShowDialogを
呼び出すと、今度はButton1、Button2共に
VisibleがFalseとなっており、こうなるとTrueを
代入しても変わらないようです。何が悪いのでしょうか。

618 ：デフォルトの名無しさん：2005/04/30(土) 23:16:07

>607
　変換すると言っても、色々制限があって面倒なので、作り直した方が
早かったりする。

例
　Set AAA = Nothing は変換してくれない。
　コメントアウトされて、要修正箇所のリストに追加される。

　WebClassも変換してくれるが・・・
　Windowsアプリケーションを変換した場合よりも修正箇所は少なくて
済むが・・・

　仕様変更や修正を行おうとすると面倒でなぁ。

619 ：デフォルトの名無しさん：2005/04/30(土) 23:17:08

VB使いって本当に進歩がないな。今の時代あえてVB使ってる人って少なくとも
2年以上触ってるわけだろ？それでこんなレベルで悩んでいるのか。。

>>616
＞1つのフォームインスタンスに対して2回ShowDialog
「1つのフォームインスタンス」じゃないんだよきっと。

620 ：デフォルトの名無しさん：2005/05/01(日) 02:28:58

Visual Basic 6.0 Enterprise Edition の通常版とアカデミック版の
見分け方はありますか？（箱のシール以外で）
また、アカデミック版では制限されている機能とかはあるのでしょうか？
お願いします。

621 ：デフォルトの名無しさん：2005/05/01(日) 05:03:32

>>619
すいません。スレを間違えていたことに今気が付きました。
VB.NETでした。

ちなみに問題はもう解決しました。では。

622 ：デフォルトの名無しさん：2005/05/01(日) 05:08:37

>>621
ShowDialogって時点でVB6じゃないことは分かっていたが、
>>619は何を思って「1つのフォームインスタンスじゃない」とか
言ってるんだ？

とりあえず言ってみたってやつ？

623 ：デフォルトの名無しさん：2005/05/01(日) 13:19:10

とりあえず言ってみた。すまん。

624 ：デフォルトの名無しさん：2005/05/04(水) 13:25:36

む～ん

625 ：デフォルトの名無しさん：2005/05/04(水) 14:31:29

専門学校で電卓を作るプログラムの課題が出たのですが、四則演算の計算は出来るようになったの
ですが、＝を連続で押したときに結果が変化していきません(例：1+1=2=3=4=5)。どうしたら上手く出力
することが出来るのでしょうか？教えてください、お願いいたします。

626 ：デフォルトの名無しさん：2005/05/04(水) 14:38:34

>>625
一個前の行動を覚えておいて2度目以降の=ならそれを繰り返すだけでは？

627 ：デフォルトの名無しさん：2005/05/04(水) 14:54:31

こんばんわ

ドライブコントロールがユーザーによって変化したことを
フォルダパスに伝えるコードがあるんですが

Private Sub Drive1_Change()
' ドライブ名をディレクトリリストボックスに割り当てる
Dir1.Path = Drive1.Drive
End Sub

デバッグで調べたところ
Drive1.Driveには"c:\"となっているんですが、
代入されたDir1.Pathには"c:\Program Files\Microsoft Visual Studio\VB98"とフルパスになっています。
どうして"c:\"の代入が"c:\Program Files\Microsoft Visual Studio\VB98”と変化されるのでしょうか？

628 ：デフォルトの名無しさん：2005/05/04(水) 15:00:30

>>627
MS-DOSの流れから、
ドライブごとにカレントディレクトリを管理してたんじゃなかったっけ？

629 ：627：2005/05/04(水) 15:04:10

>>628
"c:\"をDirListBoxのDir1.Pathに代入しても、自動的にカレントディレクトリに修正されるということですか？

630 ：デフォルトの名無しさん：2005/05/04(水) 15:08:04

>>629
コマンドプロンプトやMS-DOSでドライブやディレクトリを変えて
色々ためしてみたらいいのに。

631 ：デフォルトの名無しさん：2005/05/04(水) 15:51:39

Print #～でテキストファイルに出力すると、必ず改行されてしまうのですが、
改行しないようにするにはどうすればいいのでしょうか。

632 ：デフォルトの名無しさん：2005/05/04(水) 16:01:06

>>631
MSDNでPrint # ステートメントの説明を熟読せよ
どうすればいいかしっかり書いてある

633 ：デフォルトの名無しさん：2005/05/04(水) 16:07:36

業務でVB6を使わなきゃならなくなった
NETへ移行は済んだと思いきや、
VB5や6で稼動してるアプリがたくさんあるあるｗ

まぁWin32やMFCをこなしてきた俺からしてみれば簡単やね＞VB6
今週中には全てマスターしようと思ってる。
寝ながら気楽にやるけどさ、まぁ大変。

634 ：デフォルトの名無しさん：2005/05/04(水) 16:16:36

　　　　　　r;ｧ'N;:::::::::::::,ｨ／　　　　　 >::::::::::ヽ
.　　　　〃　　ヽﾙ1'´　　　　　 ∠:::::::::::::::::i
　　　　 i′　　___,　-　,. = -一　￣ｌ:::::::::::::::ｌ
.　　　　　 ! , -＝=､´r'　　　　　　　　 l::::::/,ﾆ.ヽ
　　　　　　ｌ　　　　　　　　_,, -‐''二ゝ　ｌ::::l fﾞヽ |、ここはお前の日記帳じゃねえんだ
　　　　　ﾚー-- ､ヽヾﾆ-ｧ,ﾆ;＝、_　　 !:::l ） } ト
　　　　　　ヾ¨'７"ry､｀　ｰﾞ='ニ,,,｀　　 }::ヽ(ノ　チラシの裏にでも書いてろ
:ｰゝヽ､　　 !´ "￣ 'l,;;;;,,,.、　　　　　　　,i:::::::ﾐ
::::::::::::::::ヽ.-‐ ﾄ、　r'_{　　 __)｀ニゝ、　 ,,iﾘ::::::::ﾐ
::::::::::::::::::::Vi／l:::V'´;ｯ`ﾆ´ｰ-ｯ-,､:::::`"::::::::::::::;ﾞ　, 　な！
:::::::::::::::::::::::::N. ﾞ､::::ヾ,.｀二ﾆ´∠,,.i::::::::::::::::::::/／／
:::::::::::::::::::::::::::::l　ヽ;:::::::::::::::::::::::::::::::::::::::::::／　／
::::::::::::::::::::::::::::::!　:|.＼;::::::::::::::::::::::::::::::／　／

635 ：デフォルトの名無しさん：2005/05/04(水) 16:47:19

初歩的な質問になりますが
ディストリビューションウィザードはどこにあるんですか？

636 ：デフォルトの名無しさん：2005/05/04(水) 18:03:15

>>635
特別な理由が無い限り、Visual Studio Installerを使ってください。

637 ：デフォルトの名無しさん：2005/05/04(水) 20:06:04

>>636
なんで？
ディストリビューションウィザードしか使ったことないんですけど。。。

638 ：デフォルトの名無しさん：2005/05/04(水) 20:09:29

いや、冗談でなく「異民族に庇を貸して母屋をとられた主権国家」っていう悲惨な
事例は、現代史に実在するよ。
インドに吸収されたヒマラヤ周辺の小国・シッキム王国がそう。

シッキムは下層労働者階級として入ってきたネパール人が古くからの住民を人口で
圧倒し、かれらを裏で操るインドが圧力をかけたこともあり、住民投票でインド併
合が決定。シッキム王国は消滅してしまった。

いまや原シッキム人たるモンゴロイド系のレプチャ民族は、ほんらいニューカマー
にすぎない征服者ベンガル・アーリア人に屈辱的な差別支配をされ、客観的にみて
も辛く悲しい立場にあるという。まさに移住を隠れ蓑にした侵略だ。

639 ：デフォルトの名無しさん：2005/05/04(水) 20:18:15

>>637
ttp://www.microsoft.com/japan/developer/library/vsinstal/veconconsiderationsforusingvisualstudioinstaller.htm

640 ：637：2005/05/04(水) 20:24:38

>>639
Thx！

641 ：デフォルトの名無しさん：2005/05/04(水) 20:34:08

何この壮絶な誤爆

642 ：デフォルトの名無しさん：2005/05/04(水) 21:50:24

いや、こりゃこのｽﾚも教えてｸﾝを装った他言語崇拝者に
乗っ取られる可能性があるから注意せよ、という説話じゃないか?

643 ：デフォルトの名無しさん：2005/05/04(水) 23:21:09

＞＞６２６
解決策を教えていただきありがとうございました。しかしまだプログラミングについて
あまり理解していないので、いろいろ試して動かしたのですがどうしても思うように動いてくれません。
どうしたら出来るのでしょうか？もし宜しかったら教えていただけないでしょうか？
現在の演算処理の部分のソースコードは以下のようです。
Private Sub cmdenzan_Click(Index As Integer)
If suuti = "Number" Then
Select Case enzanflag
Case False
box1 = txthyouji.Text
enzanflag = True
Case True
box2 = txthyouji.Text
Select Case botan
Case "tasu" txthyouji.Text = box1 + box2
Case "hiku" txthyouji.Text = box1 - box2
Case "kake" txthyouji.Text = box1 * box2

644 ：デフォルトの名無しさん：2005/05/04(水) 23:22:55

ゴメンナサイ。続きです。
Case "wari"
If box2 = 0 Then
txthyouji.Text = "0で割ることは出来ません"
Exit Sub
Else
txthyouji.Text = box1 / box2
End If
End Select

　box1 = txthyouji.Text
End Select
End If
Select Case Index
Case 0 botan = "tasu"
Case 1 botan = "hiku"
Case 2 botan = "kake"
Case 3 botan = "wari"
Case 4 botan = "equal"
End Select
suuti = "syurui"
End Sub

645 ：631：2005/05/04(水) 23:28:19

>>632
あ、回答くれてたんですか。回答が遅いからとっくに
自己解決しちゃってましたけど。
まあご苦労酸です。

646 ：デフォルトの名無しさん：2005/05/04(水) 23:33:21

ＶＢ６でテキストファイルにxor演算をかけたいのですが
上手くいきません。たぶん、文字列の1バイトごとに
アクセスできれば可能かと思うのですが、良いやり方を
教えていただけませんでしょうか？

647 ：デフォルトの名無しさん：2005/05/04(水) 23:38:35

>>646
今はどうなっていて、どう上手くいっていないのかくらい書けよ。
聞かなくても想像はつくけどさ。

648 ：デフォルトの名無しさん：2005/05/04(水) 23:40:11

>>643
まずは、"電卓 VB"でぐぐれ。

649 ：デフォルトの名無しさん：2005/05/04(水) 23:46:59

>>647
すみません、実はVB始めたばかりで
今まではC言語をやっていました。

上手くいかない、というかやり方が分からないのは
VBの文字列型（string　？）の1バイトずつのデータに
アクセスする方法です。
文字操作の関数を調べてみたのですが、1バイトではなく
あくまで1文字ずつの取得しか出来ず、全角文字が入っていると
上手くいきません。

C言語では配列で1バイトずつxorをかけることができました

650 ：デフォルトの名無しさん：2005/05/04(水) 23:47:44

>>646
文字変数を使ってはいけない。

651 ：デフォルトの名無しさん：2005/05/04(水) 23:48:11

>>649
バイト配列に読み込め。

652 ：デフォルトの名無しさん：2005/05/05(木) 04:52:54

質問ですが、
Imageコントロールと
PictureBoxコントロールの違いはあるんですか？
共に画像を表示させるものだと思うのですが。

653 ：なぞ：2005/05/05(木) 06:59:52

単発質問じゃまずいそうなので、ここに投稿することにします
VBでプログラム作成してるんですけど、
DataReportで、帳票作成して
オープンしたとき、既存で印刷ボタン（プリンタのマーク）と
エキスポートボタン（本のマーク？）がでてきますよね。
それで、そのエキスポートボタンを消したいんですが
どうすればいいのでしょうか？？？？
既存なので無理なのでしょうか？？使用させたくないんです。。。

654 ：デフォルトの名無しさん：2005/05/05(木) 07:17:53

>>652
無礼すぎて答える気にならない。

655 ：デフォルトの名無しさん：2005/05/05(木) 08:27:16

ごめんね

656 ：デフォルトの名無しさん：2005/05/05(木) 08:27:31

本当にごめんなさい。

657 ：デフォルトの名無しさん：2005/05/05(木) 08:28:04

すいません

658 ：デフォルトの名無しさん：2005/05/05(木) 08:28:10

ごめんなさい

659 ：デフォルトの名無しさん：2005/05/05(木) 08:28:12

これまでの数々の無礼をお許しください。
本当に申し訳ございませんでした。

660 ：デフォルトの名無しさん：2005/05/05(木) 08:28:16

ゆるしてください

661 ：デフォルトの名無しさん：2005/05/05(木) 08:28:20

今までご迷惑をおかけしました

662 ：デフォルトの名無しさん：2005/05/05(木) 08:28:49

う～ん、ごめりんこ

663 ：デフォルトの名無しさん：2005/05/05(木) 08:28:51

反省しています

664 ：デフォルトの名無しさん：2005/05/05(木) 08:29:35

＞＜ごめんなさい

665 ：デフォルトの名無しさん：2005/05/05(木) 08:30:07

ごめｗｗｗｗｗｗｗｗｗｗｗｗｗ

666 ：デフォルトの名無しさん：2005/05/05(木) 08:30:38

ごめんなさい

667 ：デフォルトの名無しさん：2005/05/05(木) 08:30:47

心お入れ替えて精進します

668 ：デフォルトの名無しさん：2005/05/05(木) 08:30:47

例の件については深く反省してます。

669 ：デフォルトの名無しさん：2005/05/05(木) 08:31:16

ごめんよ

670 ：デフォルトの名無しさん：2005/05/05(木) 08:31:28

ごめんなさい

671 ：デフォルトの名無しさん：2005/05/05(木) 08:31:28

VIBBERどうし
うはｗｗｗｗｗｗ

672 ：デフォルトの名無しさん：2005/05/05(木) 08:31:46

>>663
あぁ例の件ね。
ホント反省してくれ!!
あのときはマジむかついたんだから

673 ：デフォルトの名無しさん：2005/05/05(木) 08:32:01

もうしません。申し訳ありませんでした。

674 ：デフォルトの名無しさん：2005/05/05(木) 08:32:24

VIPからきましたｗｗｗごめんねｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

675 ：デフォルトの名無しさん：2005/05/05(木) 08:32:30

すんませんっしたっ！

676 ：デフォルトの名無しさん：2005/05/05(木) 08:34:05

もうしません。申し訳ありませんでした。
もうしません。申し訳ありませんでした。
もうしません。申し訳ありませんでした。
もうしません。申し訳ありませんでした。
もうしません。申し訳ありませんでした。

677 ：デフォルトの名無しさん：2005/05/05(木) 08:37:22

あｗｗｗｗｗっうぇ

678 ：デフォルトの名無しさん：2005/05/05(木) 08:37:57

>>677
いい加減にし溶けよ　VIP

679 ：デフォルトの名無しさん：2005/05/05(木) 08:38:56

すまんこ

680 ：デフォルトの名無しさん：2005/05/05(木) 08:40:35

他板からVIPに言いたいこと

http://ex10.2ch.net/test/read.cgi/news4vip/1115244461/

681 ：デフォルトの名無しさん：2005/05/05(木) 08:42:02

もうしません。申し訳ありませんでした。

682 ：デフォルトの名無しさん：2005/05/05(木) 08:43:37

おまえらこんなトコで謝ってないで運営に謝れよ
http://qb5.2ch.net/test/read.cgi/operate/1115250058

名前：ラウンコ
メル欄：うんこ

683 ：デフォルトの名無しさん：2005/05/05(木) 08:48:09

ごめんなさい

684 ：デフォルトの名無しさん：2005/05/05(木) 08:59:47

ごめんねｗｗｗｗｗｗｗｗｗｗ

685 ：デフォルトの名無しさん：2005/05/05(木) 09:01:22

ごめす

686 ：デフォルトの名無しさん：2005/05/05(木) 09:23:26

うはwwwwスマソwww

687 ：デフォルトの名無しさん：2005/05/05(木) 09:26:42

今まで迷惑かけてすみませんでした。
ごめんなさい

688 ：デフォルトの名無しさん：2005/05/05(木) 09:40:56

謝って済む問題じゃないね。

689 ：デフォルトの名無しさん：2005/05/05(木) 10:27:47

自作自演氏ね

690 ：デフォルトの名無しさん：2005/05/05(木) 13:10:25

>>653
単発質問スレの削除依頼はまだ出してない？

691 ：デフォルトの名無しさん：2005/05/05(木) 13:15:56

>>690
単発質問の何が悪いの？てか、単発質問って何？

692 ：デフォルトの名無しさん：2005/05/05(木) 13:58:17

>>691
２ちゃんねる初心者か。
半年はROMってろ。

693 ：デフォルトの名無しさん：2005/05/05(木) 15:44:55

>>692
5年くらいやってますが知りません。勝手にルール作ったんですか？

694 ：デフォルトの名無しさん：2005/05/05(木) 16:04:36

>>693
５年もやっててわからんヘタレか？

695 ：デフォルトの名無しさん：2005/05/05(木) 16:18:47

>>694
5年やってて知らないのですから、あなたの脳が
作ったルールということでしょう。

696 ：デフォルトの名無しさん：2005/05/05(木) 16:19:50

単発以外の質問って何？

697 ：695：2005/05/05(木) 16:21:10

あー、自己レスだけど言いたいことは分かったわ。
でも削除依頼なんて何の意味もないし、かえって迷惑だってのは
ご存知ないようで。

698 ：デフォルトの名無しさん：2005/05/05(木) 18:15:16

>>697
言い訳にしか見えない。

699 ：デフォルトの名無しさん：2005/05/05(木) 18:24:54

>>698
言い訳だけど後半2行は理解してね。

700 ：デフォルトの名無しさん：2005/05/05(木) 18:41:00

>>697
運営板見たことないだろ。

701 ：デフォルトの名無しさん：2005/05/05(木) 19:02:25

どっちにしろ、単発スレ立てた人間の質問になんて
誰も答えないと思うよ。
反省もしてないみたいだし。

702 ：デフォルトの名無しさん：2005/05/05(木) 19:50:14

>>700-701
なんであからさまな自演するの？

ちなみに運営板は見たことありますよ。

703 ：デフォルトの名無しさん：2005/05/05(木) 21:21:27

嵐がひどいなぁ（苦笑。黄金厨ってやつかな？

>>653
> DataReportで、帳票作成して
> オープンしたとき、既存で印刷ボタン（プリンタのマーク）と
> エキスポートボタン（本のマーク？）がでてきますよね。
> それで、そのエキスポートボタンを消したいんですが
> どうすればいいのでしょうか？？？？

よく知らないけど検索してみたらこんなのがでてきた。
http://www.dotnethell.it/newsgroups/ReadMessage.aspx?MID=49x4087

日本語でも英語でもないので内容は良く分からないけど、
Controllo in DataReport VB6 というタイトルで
Hide the Export button なんて書いてあるからこの方法が使えるんじゃないのかな？
GetWindowしてそのウインドウ消しているみたいだからメソッドとかは用意されてないのだろう。

704 ：デフォルトの名無しさん：2005/05/05(木) 21:42:30

>>703
自演を指摘されたときってつらいよな。
「苦笑」とかって逃げるのが精一杯だもんな。
分かるよ。

705 ：デフォルトの名無しさん：2005/05/05(木) 22:09:47

ＶｉｓｕａｌＳｔｕｄｉｏＩｎｓｔａｌｌｅｒのわかりやすいサイトありませんか？
よろしくお願いします。ｍ（＿＿）ｍ

706 ：デフォルトの名無しさん：2005/05/05(木) 22:15:45

>>705
マイクロソフト。
Visual Studio Installerで検索すればすぐ見つかる。

707 ：デフォルトの名無しさん：2005/05/05(木) 22:27:59

VBって今から覚えても意味無いですか？
大昔、N88BASICを勉強したのでちょっとした
仕事で使うようなツールを作るのならこれで
行けるかなあと買ったんですが・・・

708 ：デフォルトの名無しさん：2005/05/05(木) 22:28:52

とりあえずN88BASICとVBを同列視すんじゃね

709 ：デフォルトの名無しさん：2005/05/05(木) 22:34:13

業務アプリとして実際に多くの企業で
使われているんだから機能的には問題ない。

710 ：デフォルトの名無しさん：2005/05/05(木) 22:35:22

>>708
理由教えて。

711 ：デフォルトの名無しさん：2005/05/05(木) 22:52:45

>>708じゃないけど、プログラムの作り方がまったく違う。
N88BASICは構造化すらされていない言語だが、
VBは構造化に加えてオブジェクト指向も一部加わっている。
VBは基本的にはRAD（GUIを部品の貼り付けで作れる）で、
イベントドリブン（ユーザーが行ったアクションをきっかけに処理が始まる）
そしてN88BASICには無い命令が沢山追加されている。
N88BASICで使える命令も残ってはいるが、基本的に使わない。

まあプログラミング言語ってのはどの言語でも応用できる部分はあるから
N88BASICの経験がまったく役に立たないとは言わないけどね。
言語の知識では無くプログラミングの考え方自体なら応用できる。

712 ：デフォルトの名無しさん：2005/05/05(木) 23:05:55

>>711
>>708じゃないけど、を見た瞬間読む気がしなくなった。
なんで勝手に答えるのか意味がわからん。

713 ：デフォルトの名無しさん：2005/05/05(木) 23:23:57

>>707
慣れるまでは大変だった。
どうせならVB.NETにすれば？

714 ：デフォルトの名無しさん：2005/05/05(木) 23:33:39

>>711
どうもありがと。

>>712は知らない人。無視していいよ。

715 ：デフォルトの名無しさん：2005/05/06(金) 00:44:42

めっちゃ低レベルなんですけど
カンマで区切られないようにテキストファイルを読み込むにはどうしたら良いですか？
↓でやるとカンマがあると区切られてしまうので。改行だけで区切りたいんですけど。

Open "D:\date.txt" For Input As #1
i=0
Do Until EOF(1)
Input #1, a(i)
i = i + 1
Loop
Close #1

716 ：デフォルトの名無しさん：2005/05/06(金) 00:46:57

>>715
Line Input

717 ：デフォルトの名無しさん：2005/05/06(金) 01:26:24

>>716
サンクス！
うまくいきました

718 ：デフォルトの名無しさん：2005/05/06(金) 15:56:01

vb7.0であるプログラムを編集しています。
出来上がったコードをＶＢスクリプトに変えて動かすと
ファイルを消したり、起動したりするステートメント行で
コンパイルエラー（型が一致しません）になるんですが、なぜでしょう？

719 ：デフォルトの名無しさん：2005/05/06(金) 16:04:53

>>718
VB7.0ってVB.NETのことかなあ？
それならスレ違いなんだけど。
コード書かないとエラー原因はわからんし。

720 ：デフォルトの名無しさん：2005/05/06(金) 16:11:00

.NETの前に7.0が有ったはず
どちらにしろ、6.0以前と銘打ってあるのだからスレ違いだが

721 ：７１８：2005/05/06(金) 16:16:03

もうしわけありません７．０は間違いです
９７といいたかったです。５ですねバージョンは

722 ：デフォルトの名無しさん：2005/05/06(金) 16:20:02

http://pdf7874.tokynt01.ap.so-net.ne.jp/
おｋｗｗｗｗｗｗっっ
ｗｗｗｗｗｗｗｗｗｗｗｗ
うぇｗｗｗ

ｗっうぇうぇｗｗｗおｋｗｗｗっうぇ
うぇｗｗｗ
おｋｗｗｗ
うはっｗｗｗうぇｗｗｗおｋｗｗｗ

723 ：デフォルトの名無しさん：2005/05/06(金) 16:21:07

VBとVBスクリプトは別物ですから。
具体的なコードを書けと言っても無視かよ。

724 ：７１８：2005/05/06(金) 16:28:40

>>723
すみません。ＶＢＳ内のコードは
Call Kill("c:\temp\Acc.log")
の一行です。

725 ：AMI：2005/05/06(金) 18:39:01

ここの質問掲示板でいいのかは悩みましたが投稿させて頂きます。
現在、N88-BASICでプログラムをくんでいるのですが、FA制御ソフト
「ブレーク信号」ってBASIC上で送信できるんですか？
ＶＢでもやり方がわかれば、BASICに移植するのは簡単とはおもいますが・・・
ちなみに、いろいろしらべたのですが、ブレーク信号の定義が「１バイト長以上の長い時間、Loの状態が続く信号です」
とあったので、ＮＵＬ（ＣＨＲ＄（０））をたくさん送信したのですが、反応無し、
[0]を多く送信しても反応無しという状態です。
またはこれはソフト上では作成不可能なのでしょうか？
ご教授お願いします。

726 ：デフォルトの名無しさん：2005/05/06(金) 18:49:01

>>725
接続インタフェイスは何？

727 ：デフォルトの名無しさん：2005/05/06(金) 19:05:18

232cでしょたぶん。ホストはPC-9801かな？
98なんて触ったことも無いけど、ちょっとググってみるだけでそれらしい資料が
見つかったけど。

728 ：デフォルトの名無しさん：2005/05/06(金) 19:09:55

ブレークはストップビットも０にしなくてはならない

729 ：デフォルトの名無しさん：2005/05/06(金) 19:15:15

http://p5057-ipad03aobadori.miyagi.ocn.ne.jp/

っうぇｗｗｗうはっｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
うぇｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗ
うはっｗｗｗうぇｗｗｗうはっｗｗｗうはっｗｗｗ

730 ：デフォルトの名無しさん：2005/05/06(金) 20:32:04

>>729
通報されてるよ。

731 ：デフォルトの名無しさん：2005/05/06(金) 20:32:49

レスすんなや

732 ：デフォルトの名無しさん：2005/05/06(金) 20:50:31

>>731
理由は？

733 ：デフォルトの名無しさん：2005/05/06(金) 21:38:37

すれ立てるまでもない質問はここで第67刷
http://pc8.2ch.net/test/read.cgi/tech/1114263857/
より誘導されて参りました。質問が有るのですが、よろしくお願いします。
内容は以下の通りです。

VB6 から IE の文字コードの設定を変更する方法はありませんでしょうか？

Private Sub Command1_Click()
　Dim sh As SHDocVwCtl.ShellWindows
　Dim wb As WebBrowser_V1
　Dim doc As MSHTML.IHTMLDocument

　Set sh = New ShellWindows

　For Each wb In sh
　　If wb.LocationURL = "http://www.yahoo.co.jp/" Then
　　　Set doc = wb.Document
　　　doc.Charset = "SJIS"
　　End If
　Next wb

End Sub

とすると、メニューの設定はSJISになりますが
メニューでSJISを選んだ時のように、画面が切り替わりません。
リフレッシュの様なものが必要なのかと思いましたが

wb.Refresh

とか入れても変わりませんでした。
どなたかわかるヒト教えてください。

734 ：デフォルトの名無しさん：2005/05/06(金) 21:53:30

レジストリ変えれば？

735 ：デフォルトの名無しさん：2005/05/06(金) 22:09:16

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Nls\Locale
こ、この辺ですか？？
うう、値が良くわからない・・・

736 ：デフォルトの名無しさん：2005/05/06(金) 22:16:34

マイクの音量を設定したいのですが出来ないでしょうか？
よろしくお願いいたします。

737 ：デフォルトの名無しさん：2005/05/06(金) 22:27:29

>>736
ttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/directx9_c/directx/htm/iamaudioinputmixerget_mixlevel.asp

738 ：736：2005/05/06(金) 22:32:44

ありがとうございました。
何とかやってみようと思いますが、
他に簡単な方法は無いでしょうか？
出来ればDirectXを使わない形で行いたいのですが。。。
申し訳ありません。

739 ：デフォルトの名無しさん：2005/05/06(金) 23:02:01

レジストリ変えれば？

740 ：デフォルトの名無しさん：2005/05/06(金) 23:21:14

>>738
ttp://www.vbaccelerator.com/home/VB/Tips/Responding_to_AppCommands/article.asp

741 ：デフォルトの名無しさん：2005/05/06(金) 23:23:39

>>740
何がしたいの？こいつ。

742 ：デフォルトの名無しさん：2005/05/07(土) 01:19:11

>>741
何がしたいの？こいつ。

743 ：デフォルトの名無しさん：2005/05/07(土) 01:41:32

質問があります。

今、VB6でActiveXコントロールを作っています。
このコントロールはPropertyとしてCollection1を持ち、
このコレクションにClass1をAddしていきます。

何がしたいかというと、ListViewコントロールの
ListItemsのようなものを実装したいのです。
ListView1.Listitems.Add～～などとやると、新しい
ListItemオブジェクトが作成され、ListViewの表示も
更新されますよね。

しかし、自作のコードでは、新しいClass1が作られても、
あるいは更新されても、ユーザーコントロールがわで
それを知ることができません。
何か良い方法はないでしょうか？

744 ：AMI：2005/05/07(土) 02:11:25

725です。
>726：接続インタフェイスは何？
２３２Cです
>727：ちょっとググってみるだけでそれらしい資料が見つかったけど。
資料はみつかるのですが、それをソフト上で作成ってできるのでしょうか？
通信電文的には、ストップビットは常に「１」なのにこれを０と表現するって
全く検討がつきません。

728 ：デフォルトの名無しさん：2005/05/06(金) 19:09:55
ブレークはストップビットも０にしなくてはならない

745 ：デフォルトの名無しさん：2005/05/07(土) 02:14:20

>>743
WithEvents と Event RaiseEvent で検索するとお望みのものに辿りつけるよ。

Collectionの自作して（これはウィザードで作成すると楽)、Addの時にRaiseEventでイベントを発生させる。
ユーザーコントロールはメンバで　WithEvents mCol As MyCollection な感じで定義してInitializeで Set mCol = New MyCollection でインスタンスを作成。
ユーザーコントロール側で自作のコレクションのイベントを受け取れるようになるので、mCol_OnAdd なんてイベントを処理すれば、Addされた時に自動的に表示更新できる。
大きな所を間違えている気がするが、流れはこんな感じ。

アイテムの数を監視するだけならタイマー使う手もあるけど、アイテムの内容が変更された場合も表示更新したい場合はイベント使った方が楽かな。

746 ：デフォルトの名無しさん：2005/05/07(土) 02:23:47

http://p3021-ipad402marunouchi.tokyo.ocn.ne.jp/
うぇｗｗｗっｗうぇｗｗｗｗっ
っうぇっうぇｗｗｗうぇｗｗｗ

ｗｗｗｗｗｗｗｗｗｗｗｗっうぇｗうぇｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗっうぇｗｗｗ
うぇｗｗｗ

747 ：デフォルトの名無しさん：2005/05/07(土) 02:30:00

>>744
サンプル
ttp://www.iti.iwatsu.co.jp/download/22_27.html

748 ：743：2005/05/07(土) 02:31:44

>>745
ありがとうございます。

そこでちょっと疑問なのですが、例えばListViewコントロールの
ListItemをオブジェクトブラウザで見てみると、
"Class ListItem"と表示されメソッドやプロパティ等も表示されますが
それらしきEventは含まれていないようです。
ListItems、Nodes、Panels等のコレクションでもそうです。

これら、MSComctlLibのコントロール群はどういう方法で
コレクションにオブジェクトが追加されたのを知ることが
できるんでしょうか？
コントロールのPropertyとしてコレクションを公開している
ところまでは私のコード一緒だと思うんですが・・・

749 ：デフォルトの名無しさん：2005/05/07(土) 02:48:55

>>748
それはおいらには分からん。すまんがね。
GetMessage PeekMessage SendMessage PostMessage PostThreadMessage で同じようなことできるから、
それらで実装されている場合はオブジェクトブラウザでは確認できんだろうね。

750 ：デフォルトの名無しさん：2005/05/07(土) 03:05:23

もう1つ付け足すと、オブジェクトブラウザで確認できるのはCOMのインターフェイスだけだから、
実装にそれ以外の手段が使われている場合、その中身を確認するのは難しいと思うよ。

751 ：743：2005/05/07(土) 03:06:13

>>749
つまり、クラス（またはコレクション）側からユーザーコントロール宛に
WM_APP+1のようなメッセージを送って通知する、ということですね。
その場合、送り先のユーザーコントロールのhWndと各クラス毎のIDみたいな
ものをクラスのインスタンス内に保持しないとならないと思いますが、
可能なんでしょうか。Friend Propertyで設定とか？

分からないことだらけですが、とにかくありがとうございました。
なにかご存知の方がいらっしゃいましたら、よろしくお願いします。

752 ：743：2005/05/07(土) 03:11:28

>>750
COM、OLEについてはまだよく勉強してなくて。
まあ、ActiveXに足を突っ込もうと思えば、やはり
COMの仕様から勉強しないといけませんかね。
ありがとうございます。

753 ：AMI：2005/05/07(土) 03:14:07

>>725です。
747さんサンプルありがとうございました。
しかしこのサンプルでは、ブレーク信号の送信は行っておらず
通常の通信になりますよね。（ポーリング通信）
ブレーク信号送信のサンプルってあれば教えて頂きたいのですが・・・。
ストップビットは通常「１」で固定なのに、それを０にする方法って
どのようにするのでしょうか？

754 ：デフォルトの名無しさん：2005/05/07(土) 05:23:06

>>742
何がしたいの？って指摘したいんだと思います。

755 ：デフォルトの名無しさん：2005/05/07(土) 05:24:05

>>753
いい加減にしろ。

756 ：デフォルトの名無しさん：2005/05/07(土) 06:03:49

>753
MSComm1.Break = True
とか
SetCommBreak
かなぁ

757 ：デフォルトの名無しさん：2005/05/07(土) 07:08:06

>>753
EscapeCommFunction

758 ：AMI：2005/05/07(土) 09:06:29

>>725です
>756
>757
さんご助言ありがとうございました
ということは、これはVBの「MSComm1」の機能を使用して、実行しているということですね。
N88-BASICではコントロールの概念がないから、無理ってことでしょうか？

759 ：デフォルトの名無しさん：2005/05/07(土) 09:34:12

>>758
PC-98の話だよねえ？
前にも書いたけどちょっとググっただけで資料見つかるけど。
例えば、
http://www.webtech.co.jp/company/doc/undocumented_mem/
ここに98の232Cの資料がある。
それによるとポートを直接操作してやればブレーク送出可能らしい。
N88-BASICでポートを操作できるかどうかは98触ったことないんで知らない。

っていうか、98の話ならここより昔のPC板とかの方が詳しい人いそうだけど。

760 ：デフォルトの名無しさん：2005/05/07(土) 10:36:29

>>725
BASICでこんなプログラム作れるの？
http://pc8.2ch.net/test/read.cgi/tech/1097297609/
懐かしのＮ８８ＢＡＳＩＣについて語ろうぜ
http://pc8.2ch.net/test/read.cgi/tech/1054959460/

761 ：木綿豆腐：2005/05/07(土) 14:07:50

分からないことがあって聞きたいんですが、あのvbで記号＄と！の意味はなんですか？？

762 ：デフォルトの名無しさん：2005/05/07(土) 14:38:38

>>761
型宣言文字

763 ：木綿豆腐：2005/05/07(土) 14:41:28

ありがとう、でもちょっと詳しくお願いします

764 ：デフォルトの名無しさん：2005/05/07(土) 14:44:10

>>758
N88-BASICのソースをVBに移植してるとずっと思ってたんだけど、違ってたのか。
たしかに最初の文章にはそれっぽいことが書かれてたけど、
事実上は上記移植がほとんどだから、ただの表現ミスだと思ってた。

PC-98はハードウェアが違うし、やり方も違う。
DOSとWindowsということでも違う。
VBでのやり方を質問しても、参考になるどころか逆に混乱するだけ。

765 ：デフォルトの名無しさん：2005/05/07(土) 14:44:42

>>763
ttp://www.google.co.jp/search?hl=ja&q=%E5%9E%8B%E5%AE%A3%E8%A8%80%E6%96%87%E5%AD%97

766 ：デフォルトの名無しさん：2005/05/07(土) 14:53:38

>>763
定義不要言語は使うところで定義しながら動く
N88BASICの場合、デフォルトでは！型の変数に解釈される

767 ：デフォルトの名無しさん：2005/05/09(月) 00:02:43

ｺﾝﾏｵ

768 ：デフォルトの名無しさん：2005/05/09(月) 06:46:44

ttp://msdn.microsoft.com/vbrun/vbfusion/usingnet/default.aspx

ええと、ここでVB6でNETFramework1.1のオブジェクトモデルを扱っているんですけど、
System.IO 以下のクラスは扱えないすか？

769 ：デフォルトの名無しさん：2005/05/09(月) 12:31:31

>>768
すごい、こんなことできるのか

770 ：デフォルトの名無しさん：2005/05/09(月) 12:39:47

ただ、なんでそんなアクロバティックなことしてまでVB6に固執する必要があるのか
いまいちよくわからん気が。。

771 ：デフォルトの名無しさん：2005/05/09(月) 12:55:10

普通じゃ満足できない体になっちゃたから。

772 ：デフォルトの名無しさん：2005/05/09(月) 13:02:51

>>770
同情するなら金をくれ

773 ：デフォルトの名無しさん：2005/05/09(月) 13:49:30

>>766
○動く
Private Sub Command1_Click()
Form1!Command1.Caption = "ぬるぽ"
End Sub
×動かない
Private Sub Command1_Click()
Form1!Caption = "ぬるぽ"
End Sub

774 ：デフォルトの名無しさん：2005/05/09(月) 16:13:06

○動く
Private Sub Command1_Click()
Form1!Command1.Caption = ">>773　ガッ！"
End Sub

775 ：デフォルトの名無しさん：2005/05/09(月) 17:31:03

>>773-774
コードが的外れすぎ。

776 ：774：2005/05/09(月) 17:48:03

おいおい、俺に言われても困るぜ

777 ：デフォルトの名無しさん：2005/05/09(月) 17:48:30

777 (*^ーﾟ)b

778 ：デフォルトの名無しさん：2005/05/10(火) 02:44:23

VB6.0のユーザーコントロールについて質問です

BackStyleを0(透過)に設定したユーザーコントロール上に、BackStyleを0(透過)に設定したLabelコントロールを配置して
LabelのCaptionに適当な文字を設定すると、文字が欠けてしまうのですが、こういう仕様なのでしょうか？
何か、透過処理がうまくいっていないようで、どちらかの透過をやめると正常に表示されます

779 ：デフォルトの名無しさん：2005/05/10(火) 11:49:33

VB6なんですけど

CommandButton上でEnterを押しても反応させないようにしたいのですが。
デバッグをしたらEnter降下後KeyUpやKeyDownにも入ってこないみたいです。
なんでだろうママン

780 ：デフォルトの名無しさん：2005/05/10(火) 12:13:08

SQLについて質問です。
得意先テーブルの口座番号フィールドをグループ化して抽出したいのですが、区分
が0や得意先番号＝請求先番号等の条件式をつけたいのですが上手くいきません。
何かいい方法はないでしょうか？

781 ：デフォルトの名無しさん：2005/05/10(火) 13:54:27

program Filesのようなパスを含んだフォルダに
ActiveXﾓｼﾞｭｰﾙを格納している場合、このﾓｼﾞｭｰﾙを
revsvr32でレジストリ登録すると、パスに空白を含んでいるため
登録エラーになります。この場合そうすればコマンドラインからレジスター登録できるでしょう

782 ：デフォルトの名無しさん：2005/05/10(火) 14:07:59

>>781
"でくくる

783 ：デフォルトの名無しさん：2005/05/10(火) 14:16:27

>>782
感謝いたします。ありがとうございました。！！

784 ：デフォルトの名無しさん：2005/05/10(火) 15:46:29

>>779
それは、そういうものだから。
Windowsのボタンはそういうのが仕様です。
それがダメなら自作コントロールでボタンもどき作るか、ピクチャーなどでそれっぽいものを作る。

>>780
場違い。、DB板のSQL質問に行けば？

785 ：デフォルトの名無しさん：2005/05/10(火) 16:36:40

はじめまして。

.NET環境のみでバーコードを自作する事は可能でしょうか？
Accessや外部ソフトは使わない前提でお願いします。

786 ：デフォルトの名無しさん：2005/05/10(火) 16:40:19

>>784氏

あぁ、そうなのかぁ。色々調べてみたんだけど、やっぱり仕様なのね
ありがとうございました。あきらめますｗ

787 ：デフォルトの名無しさん：2005/05/10(火) 16:40:32

>>785
可能です。
だが、スレ違いなので適した所で聞いてくれ。

788 ：デフォルトの名無しさん：2005/05/10(火) 16:57:16

>>787
すいません、間違えました。
出直してきます。

789 ：デフォルトの名無しさん：2005/05/10(火) 19:53:23

VB6.0を使ってます。金種計算をやってるんですがどうもうまくいきません。一万で？円買ったらおつりが五千が何枚…千円が何枚…って出るようにしたいのですがうまくいきません。どの構文を使うといいとか、私だったらこう書くとかなにかアドバイスありませんか？

790 ：デフォルトの名無しさん：2005/05/10(火) 20:03:34

だいたい四則演算、if文、入出力文くらいで済むと思うよ

791 ：デフォルトの名無しさん：2005/05/10(火) 20:13:14

>>790
ありがとうございます。ifで書いていたんですが上手くいかなかったのできっとどこが違うんでしょうね…5000円以下のおつりの枚数が0枚になっちゃたりするんですよね。

792 ：デフォルトの名無しさん：2005/05/10(火) 20:14:12

>>789
簡単にやるなら、こんな感じ

1万円の枚数 = おつり　\ 10000
おつり = おつり - (10000 * 1万円の枚数)
5千円の枚数 = おつり　\ 5000
おつり = おつり - (5000 * 5千円の枚数)
　　　・・・以下同様

793 ：デフォルトの名無しさん：2005/05/10(火) 20:18:09

>>789
ここに金種計算のサンプルがある。参考にしてみれば？
ttp://homepage1.nifty.com/kurichan/html/vbtips.htm

794 ：デフォルトの名無しさん：2005/05/10(火) 20:37:46

丁寧にありがとうございます。サンプルを見てやってみます。

795 ：デフォルトの名無しさん：2005/05/10(火) 23:05:56

何か新しい物でもやってﾐﾖｰｶと思いVS6.0のCDを眺めたら
VBをﾊｹﾝ
適当に弄って何となく分かったが、もしかして
xcopyとかdirみたいなコマンドラインツールは作れないですか？
.NETでは作れたような？

796 ：デフォルトの名無しさん：2005/05/10(火) 23:12:58

>>795
Sub Main()から始めれば良い。
コンソール入出力はAPIでやる。

797 ：デフォルトの名無しさん：2005/05/11(水) 10:20:56

ここにおられる玄人の方々に質問です。

Projectを開く際にVisualSouceSafeに自動的にログインしようとしてしまうのですが、
これを止めることは出来ませんか？
開くたびに毎回問い合わせるので、時間がかかってしまい困っています。

ちなみにこのプロジェクトは自分が作成したものではなく、R&Dのために渡されたプロジェクトです。
回答のほどよろしくお願いします。

798 ：デフォルトの名無しさん：2005/05/11(水) 13:29:25

vbpファイルをメモ帳で開いて（ｒｙ

799 ：デフォルトの名無しさん：2005/05/11(水) 15:40:59

>>797
MSSCCPRJ.SCCを削除するか、適当な名前にリネームする。

もしくはソースコード管理のアドインを止める。

800 ：デフォルトの名無しさん：2005/05/11(水) 15:41:48

アドインマネージャでチェックオフにしたら解決しました。
お騒がせ致しました。

>>798さん
StartMode=1を0にしてみたりしたのですが、駄目でした。

801 ：デフォルトの名無しさん：2005/05/11(水) 15:45:20

>>799さんも有難うございます。
無事解決しました。
感謝感激雨あられです。。

802 ：デフォルトの名無しさん：2005/05/12(木) 08:13:51

VBコードを記述して四則演算を行うプログラムを作成せよ。
VBコードのみも記述せよ.
って宿題が出たんですけどネットで調べても全然わかりません。
どなたか教えてください

803 ：えろおやじ：2005/05/12(木) 09:27:15

VB6でUSBキーの固有IDをとる方法を探しています。
どっかに参考になるURLはありますでしょうか？

おせえてエロイひと！

804 ：デフォルトの名無しさん：2005/05/12(木) 10:21:17

>>802
宿題は自分でやってください

805 ：デフォルトの名無しさん：2005/05/12(木) 11:28:09

>>803
それは冗談で言っているのか？

806 ：デフォルトの名無しさん：2005/05/12(木) 14:44:58

おしえてください。人から引継いだVBソースと実行プログラムがあるのですが
コンパイルされたプログラムと同期があっているものとおもいきや
ソースに手を加ず、リコンパイルのみ行ったところ
何故か挙動に差異があるのです。このような場合、コンペアツールで
比較すると、同じソースから出来た実行プログラムでも
絶対に差異が表示されてしまうので、実行プログラム間での
ソースレベルでの差異があったかどうか見分ける良い方法がないか教えてください
１プロジェクトなら、デバッグして違いを見ていけるのですが３０プロジェクトあり
中にはDLLを作成しているプロジェクトもあるので途方にくれています。

807 ：デフォルトの名無しさん：2005/05/12(木) 14:57:28

>>806
無理です。

808 ：デフォルトの名無しさん：2005/05/12(木) 15:12:22

>>806
そういうデバッグは１つずつ調べていくしかない。
たった1行のソースでもコンパイルするごとに変わる箇所が多いので、
単純なバイナリ比較は意味がないと思う。

809 ：デフォルトの名無しさん：2005/05/12(木) 16:06:16

Win95の頃にVBで作られたプログラムがあるのですけれど、XPでは動作不可能なのでしょうか？
最初に[KNIFE.VBXがみつかりません]というエラーがでてきたので　windowsのsystemフォルダに入れたのですけれど、
今度は「カスタムコントロールをロードできません　C:\windows\system\KNIFE.VBX」というエラーがでてしまいます。

それとも、VBのプログラムを動作させるのは　何か特殊なファイルをインストールしないとダメなのでしょうか？
どなたかご教授お願いいたします。

810 ：デフォルトの名無しさん：2005/05/12(木) 16:14:34

>>809
スレ違い。
ソフトウェアの使い方は別の板で聞け。

811 ：えろじじい：2005/05/12(木) 19:47:07

>>805

そだよ
VID＆PIDはWMIあたりでとれそうなきがするんだが

とあれば製品固有IDまで～　（＾＾；

812 ：デフォルトの名無しさん：2005/05/12(木) 20:45:01

製品固有IDって意味わかりませんが。。
そんなものUSB-IFの仕様にないと思うが。。

813 ：デフォルトの名無しさん：2005/05/13(金) 01:13:50

ドングルクラック

814 ：デフォルトの名無しさん：2005/05/13(金) 11:19:59

>>812
USBトークンといえばわかるか？

815 ：デフォルトの名無しさん：2005/05/13(金) 12:43:36

>>814
わからん。わかるわけが無い。
そりゃ、USBの仕様じゃなくて特定の機能をもつ周辺機器の一般名詞だろ

その機能の実現は各ベンダーの独自の実装によるわけで、
そんなも取得する一般的な方法があるって妄想はいったいどこから（以下略

816 ：デフォルトの名無しさん：2005/05/13(金) 20:19:33

ここから？

パスワードを覚えなくていい暗号化ソフト「U15」v1.00
http://www.forest.impress.co.jp/article/2004/07/26/okiniiri.html

817 ：デフォルトの名無しさん：2005/05/13(金) 23:48:32

Visual Basicオーナーズエリアとかいう所に製品登録すると
入れたそうですが、どういうサービスだったんですか？

818 ：デフォルトの名無しさん：2005/05/14(土) 03:52:33

>>816
もしそれならソースつきだから読みゃ分かるな

819 ：デフォルトの名無しさん：2005/05/15(日) 03:12:24

ttp://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=60321
異常に便利

820 ：デフォルトの名無しさん：2005/05/15(日) 13:14:43

CreateShrotcutと併用してショートカットを作成したいと考えています。
ショートカット自体は文字数に制限がないのか、問題なく作成出来るのですが、
TargetPathに代入するファイル(フォルダ)名は、9文字以上になると
8文字までしかTargetPathに代入されず、それ以降はカットされてしまいます。

例：
'ショートカットのターゲットファイル
WShShortcut.TargetPath = "C:\abcdefghijk\abcdefghijk.exe"

上記の様に設定しても、WShShortcut.TargetPathには
C:\abcdefgh\abcdefgh.exe　しか代入されていません。
これはWSHのデフォルトの仕様なのか、色々調べたのですが分かりませんでした。
どなたか9文字以上でもTargetPathに代入する為の方法をご存知の方が
いらっしゃいましたら、教えて頂けませんか？

821 ：デフォルトの名無しさん：2005/05/15(日) 13:23:30

最初にすれ違いをお詫びいたします＞＜
どこに質問すればいいか困っております。
HDD交換によりゲームソフトのパスワードが分からなくなっており、
そのソフトを立ち上げるとIDとPASSがはいっているのですが
IDは分かるのですがPASSが＊＊＊＊となっており
調べることができなくなっております＞＜
ゲームソフトの中にパスワードが記述されてると思い
調べたいのですが・・・
ゲームソフトは元気の首都高バトルオンラインです。
よろしくお願いいたします、

822 ：デフォルトの名無しさん：2005/05/15(日) 13:48:19

めっさｽﾚ違いだが答えてやろう。
そういう場合の救済措置はあるだろうから、発売元に聞いてみりゃいいんでね～の？

823 ：デフォルトの名無しさん：2005/05/15(日) 15:11:57

教えて下さい。
VB4の16bit版で開発したプログラムをWin2000やXPで動作させる場合、何か不具合でますでしょうか？
もし出るのであれば、どういったものか教えて下さい。

824 ：デフォルトの名無しさん：2005/05/15(日) 15:45:31

>>823
不具合はありません
安心して使ってください

825 ：デフォルトの名無しさん：2005/05/16(月) 10:56:39

OCXについて教えてください。

VB6でユーザコントロールをつくって
ディストリビューションウィザードでCABファイルにして
WEBサーバに設置しました。

とあるPCからは想定どおり動くのですが
とあるPCではHTMLからOCXのコントロールにアクセスしたときに

「このページのActiveXコントロールは、安全でない可能性があり、
　ページのほかの部分に影響する可能性があります。ほかの部分に
　影響しても問題ありませんか？」

という確認メッセージが表示されます。「はい」を選べば
その後は期待どおり動くのですが、ページ表示後、１回目だけ必ずでます。
このメッセージはクライアント環境によって出たり出なかったり
するのだと思いますが、なんの設定によるものなのでしょう？
よろしくお願いします。

826 ：デフォルトの名無しさん：2005/05/16(月) 12:28:16

インターネットからHTTPでPNGファイルを落として画面に表示するには、どんな方法がありますか？
一番エレガントな方法はなんでしょうか？

827 ：デフォルトの名無しさん：2005/05/16(月) 12:41:17

>>826
コンポーネントで Microsoft Winsock を選択し、
TCP/IPプロトコルでPNGファイルをTempフォルダに読み込んで表示。

828 ：デフォルトの名無しさん：2005/05/16(月) 12:47:37

>>827
表示はGDI+がいいのかしら？

829 ：デフォルトの名無しさん：2005/05/16(月) 12:50:51

もう、その辺は好みの問題では？

830 ：デフォルトの名無しさん：2005/05/16(月) 12:53:54

可能な限りMSオフィシャルで標準搭載なコンポーネントだけで最小限のコード数で実装したいのですが、WinsockではなくてMSXMLなどがつかえないものかなぁと。

831 ：デフォルトの名無しさん：2005/05/16(月) 13:33:14

>>825
インターネットオプションのセキュリティレベルでは？

832 ：デフォルトの名無しさん：2005/05/16(月) 13:34:16

>>828
XP限定なら。
それ以前はフリーのDLLを使うとか。

833 ：デフォルトの名無しさん：2005/05/16(月) 13:37:14

>830
IEコンポーネント埋め込み

834 ：デフォルトの名無しさん：2005/05/16(月) 13:45:52

>>833
ああ、その手があったかぁ。
IEで表示しているPNG画像って画像データだけ取得できるのかしら・・・。
できるならそれが一番簡単かも。
表示後加工したりしたいもので。

835 ：デフォルトの名無しさん：2005/05/16(月) 13:46:52

>>832
ああ、GDI+はXP限定なんですかぁ。
貴重な情報ありがとう御座います。
そっかぁ・・・。

836 ：デフォルトの名無しさん：2005/05/16(月) 15:10:15

プログラムでFDドライブにFDが入っているかどうか調べる方法ってありますか？
Dir関数では"ファイル名が間違っています"みたいなメッセージが出てしまいま
した。

837 ：デフォルトの名無しさん：2005/05/16(月) 15:18:39

>>836
ルートのDirでエラーが出れば入ってないと見なすか、
FileSystemObjectのIsReadyプロパティで

838 ：デフォルトの名無しさん：2005/05/16(月) 15:50:49

>>837
レスありがとうございます。自分でもう一度調べてみて
'FDの有無
Dim FSO As Object
Set FSO = CreateObject("Scripting.filesystemobject")
If FSO.folderexists("A:\") = False Then
End If
この方法で自己解決できました。

839 ：デフォルトの名無しさん：2005/05/16(月) 16:11:55

>>834
インターネットテンポラリを探せ

840 ：デフォルトの名無しさん：2005/05/16(月) 17:17:40

Adobe Reader 7.0のOLEオートメーションを使いたいのですが、

Set AcroApp = CreateObject("AcroExch.App")

オブジェクト作成できません。
（Acrobatをインストールしないと使えないらしい）

Set AcroApp = CreateObject("AcroPDF.PDF")

を使うそうなのですが、AcroPDF.PDFをつかったサンプルソースを
だれかさらしてくれませんか？
任意のファイル開いて、指定ページへ飛ぶような簡単なものでいいです。
どうかよろしくおねがいします。

841 ：デフォルトの名無しさん：2005/05/16(月) 17:48:24

>>840
オレはAcrobat入れてないから判らないが、
参照設定でDLLをインポートして、F2キーで構成を調べれば良い。

842 ：デフォルトの名無しさん：2005/05/16(月) 18:07:10

>>840
http://www.accessclub.jp/bbs/0078/beginers28733.html

843 ：デフォルトの名無しさん：2005/05/16(月) 19:57:29

VB6.0なのですが、
あるボタンを押したときフォームの境界線を固定から可変にしたい場合、
そのボタンの記述はどのようにすればよいのでしょうか。

form1.borderstyle = 2

ではダメなのでしょうか。

844 ：デフォルトの名無しさん：2005/05/16(月) 19:59:05

初めまして。

If (X>0) Or (Y>0) Then
...
End If
で X>0 が成立しても Y>0 も評価されてしまいます。
C言語の || のようなものはVBにないのでしょうか？
宜しくお願い致します。

845 ：デフォルトの名無しさん：2005/05/16(月) 20:07:16

>>843

BorderStyle プロパティ
　- オブジェクトの境界線のスタイルを設定します。値の取得も可能です。Form オブジェクトおよびテキストボックス (TextBox) コントロールについては、実行時には値の取得のみ可能です。

プログラムするんならMSDNくらい目を通せよ

GetWindowLongとSetWindowLong使えば？

846 ：デフォルトの名無しさん：2005/05/16(月) 20:07:33

>>844
VBにはない。
VB.NETで装備された。

847 ：デフォルトの名無しさん：2005/05/16(月) 20:08:38

>>844

ありがとうございます。
ちなみに、VB.NETではどのようにするのでしょうか？
宜しくお願い致します。

848 ：デフォルトの名無しさん：2005/05/16(月) 20:17:11

if ( 評価式A ) || ( 評価式B ) {
真処理
} else {
偽処理
}

をVBで忠実に再現するなら GoTo を使うしかない。

If ( 評価式A ) Then
IF_0000_TRUE:
真処理
Else
If ( 評価式B ) Then GoTo IF_0000_TRUE
偽処理
End If

849 ：デフォルトの名無しさん：2005/05/16(月) 20:19:37

ハァ？
入れ子にするだけで解決じゃん・・・

850 ：デフォルトの名無しさん：2005/05/16(月) 20:21:48

>>847
Oｒの代わりにOrElseを使う

851 ：デフォルトの名無しさん：2005/05/16(月) 20:22:27

>>844
両方評価されるのが普通なんだが

852 ：デフォルトの名無しさん：2005/05/16(月) 21:25:34

>>832
嘘つくな。
GDI+はWinXP限定ではない。

853 ：デフォルトの名無しさん：2005/05/16(月) 22:00:28

>>852
マジで？
OSでは2003Serverとかでは？

854 ：デフォルトの名無しさん：2005/05/16(月) 22:21:03

>>853
http://www.microsoft.com/downloads/details.aspx?FamilyId=6A63AB9C-DF12-4D41-933C-BE590FEAA05A&displaylang=en

Win98/NT4以降、ちなみに.Net Frameworkがインストールできるバージョンと一致する。
もちろん.Net Frameworkを入れる必要があるわけではなく、GDIPLUS.DLLだけがあればよい。

855 ：デフォルトの名無しさん：2005/05/16(月) 22:28:42

>>854
830の標準搭載なコンポーネントという条件に即してないけど？

856 ：840：2005/05/16(月) 23:38:41

>>841

メソッド名だけじゃ使い方推測できませんorz

>>842

AcroExch.App が使えないから困ってるんです

やっぱり、知ってる人いなそうですね…

857 ：デフォルトの名無しさん：2005/05/17(火) 00:08:37

>>856
だから、Readerだけじゃ無理だって。

858 ：デフォルトの名無しさん：2005/05/17(火) 01:37:49

Readerだけで印字すると
Dim AcroObj As New AcroPDFLib.AcroPDF
Dim blnRet As Boolean
blnRet = AcroObj.LoadFile("test.pdf")　'環境によっては落ちる・・・
AcroObj.printAll
とか
AcroPDF1.LoadFile "test.pdf"
AcroPDF1.gotoFirstPage
AcroPDF1.printAll
かな。

表示は分からんのでShellExecuteでもして
ごめん。
ちゃんと理解しようと思うとSDKが欲しいところ

859 ：デフォルトの名無しさん：2005/05/17(火) 06:23:24

ttp://partners.adobe.com/public/developer/en/acrobat/sdk/pdf/iac/IACOverview.pdf

860 ：デフォルトの名無しさん：2005/05/17(火) 06:27:30

ttp://partners.adobe.com/public/developer/en/acrobat/sdk/pdf/iac/IACReference.pdf

861 ：デフォルトの名無しさん：2005/05/17(火) 07:02:40

訂正
コンポーネントにAdobe Acrobat 7.0 Browser Control Type Library 1.0を追加して
フォームに配置して以下のコード実行
Dim a As AcroPDFLib.AcroPDF
Set a = Me.AcroPDF1
Dim b() As Byte

b() = Inet1.OpenURL("http://hoge/hoge.pdf", icByteArray)
Open "C:\down\hoge.pdf" For Binary Access Write As #1
Put #1, , b()
Close #1
If a.LoadFile "C:\down\test.pdf" Then
a.setZoom 100
MsgBox a.src
End If

862 ：847：2005/05/17(火) 07:05:38

>>850

ありがとうございました。 OrElse で望んでいた動作が確認
できました。

863 ：デフォルトの名無しさん：2005/05/17(火) 08:26:43

>>857

Reader7からできるらしい。Adobeのページにかいてあった。
すくなくとも　AcroPDFクラスはつかえるとのこと

864 ：デフォルトの名無しさん：2005/05/17(火) 09:23:50

>>863
ありがとう。
http://support.adobe.co.jp/faq/faq/qadoc.sv?2556+001

知識古いな、オレ。
SDK有料化されちゃって、素人には手が出せん。

865 ：デフォルトの名無しさん：2005/05/17(火) 10:55:41

お願いします.
　いまVB6.0 と SQLServer2000の課題に取組んでいるのですが、
　担当テーブル
　担当コード　int 長さ　6 　部署コード　int 長さ　2　
をVB6.0で帳票を作っているのですが帳票に出力すると
本来、担当コード　0001　と　4桁でなるものが1、
　　　部署コード　02　2桁でなるものが2にとなります。 (下図参照)
　これをレイアウト通りにしたいのですが方法がわかりません。
　力不足かも知れませんがなにとぞご教授おねがいします。
テーブルレイアウト
_____________________________　　
│名称　　　│タイプ　│長さ │　
=============================
│担当コード│int　 │6　　│
│部署コード│int　 │2　　│
￣￣￣￣￣￣￣￣￣￣￣￣￣￣
帳票レイアウト
________________________　　
│担当コード│部署コード│
│======================｜
│0001　　　│01 │
│0002 │02　　 │
│0003 │02　　 │
￣￣￣￣￣￣￣￣￣￣￣￣
今　現在
________________________　　
│担当コード│部署コード│
│======================｜
│　　　　1 │ 1│
│ 2 │ 2│
│ 3 │ 2│
￣￣￣￣￣￣￣￣￣￣￣￣

866 ：デフォルトの名無しさん：2005/05/17(火) 11:52:27

タイプを文字型にしる

867 ：デフォルトの名無しさん：2005/05/17(火) 12:02:20

>>865
どうやって帳票を出しているのか知らないけど、
帳票側の書式設定が出来てないんじゃないの。

868 ：デフォルトの名無しさん：2005/05/17(火) 13:06:08

>>865
で、DB板の質問は締め切ってきたのか？

869 ：デフォルトの名無しさん：2005/05/17(火) 13:24:30

>865
つ[Format]

870 ：デフォルトの名無しさん：2005/05/17(火) 18:54:07

ＶＢ５でカッコイイ画面を作っています。
プログラスバーでグラフをカッコ良く繰り上げていくのですが
進捗時の数値を０－１００％表示でバーの真ん中に表示したいと
思いまして、テキストコントローラーを使いました。
処理のＭＡＸ値を１００で割って、進捗率を求め
１％あたりの処理とプログラスバーの繰り上げがうまく連動できたのでしが
ふと気付いたのが、５０％あたりのバーの繰り上げで
ちょうど進捗率を示すテキストにカブリだすと、背景が青いバーに
灰色のテキストバックカラーなのでなんか変に感じます
テキストコントロールの背景を透明に変更する方法が
ないでしょうか？これではカッコよくありません。おねがいします。

871 ：デフォルトの名無しさん：2005/05/17(火) 19:04:25

Private Sub object_MouseDown(Button As Integer,Shift As Integer,X As
Single, Y As Single )
lX = X
lY = Y
object.Drag
End Sub
--------------------------------------------------------------------
Private Sub object_MouseUp(Button As Integer,Shift As Integer,X As
Single, Y As Single )
kX = X
kY = Y
object.Move lX + kX , lY + kY
End Sub

絵をマウスでクリックして移動できるようにしたいのですが絵が移動しません
本を見ながらやっているのですがうまくできません
最近ＶＢを始めた超初心者です、どうか力をかして下さい。

872 ：デフォルトの名無しさん：2005/05/17(火) 19:15:21

>>871
DragModeプロパティを自動にしてある？

873 ：デフォルトの名無しさん：2005/05/17(火) 19:25:18

>>870
PictureBox と Label で自作すれば良い。
そんなに難しくないよ。

>>871

Private Sub object_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

lX= X
lY= Y

End Sub

Private Sub object_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

object.Move object.Left - lX + X, object.Top - lY + Y

End Sub

こういう事？
「object」という名前を付けるのはやめた方が良い。

874 ：デフォルトの名無しさん：2005/05/17(火) 19:58:23

>>873
できました、ありがとうございました

875 ：デフォルトの名無しさん：2005/05/18(水) 01:14:52

カッコイイプログラスバーなインターネットはここですか？

876 ：デフォルトの名無しさん：2005/05/18(水) 12:42:36

VB6でランタイムをEXEに内蔵する方法ってわかる人いる？
わかる人いたら教えれ

877 ：デフォルトの名無しさん：2005/05/18(水) 12:44:37

金庫の中に金庫の鍵を入れて楽しいか？

878 ：デフォルトの名無しさん：2005/05/18(水) 12:48:54

インストーラーを作ってあげた方が幸せになれると思うよ。

879 ：デフォルトの名無しさん：2005/05/18(水) 12:49:33

ウィルスばらまく気か？

880 ：デフォルトの名無しさん：2005/05/18(水) 13:11:13

内蔵はないぞう。

881 ：デフォルトの名無しさん：2005/05/18(水) 13:18:21

VB6のランタイムは最初から入ってるし、.NET Frameworkに比べたら小さい。

882 ：デフォルトの名無しさん：2005/05/18(水) 14:29:54

最初から入ってるのは英語版のランタイムだが？すくなくとも2000の場合は。

883 ：デフォルトの名無しさん：2005/05/18(水) 14:38:08

>>882
OSには入ってないけど、大部分はメーカーPCユーザだし。

884 ：デフォルトの名無しさん：2005/05/18(水) 14:38:55

訂正：英語版のランタイムしか入ってないけど、

885 ：デフォルトの名無しさん：2005/05/18(水) 14:40:44

>>883
メーカーPCには日本語版ランタイム入ってるわけ？初耳だな

886 ：デフォルトの名無しさん：2005/05/18(水) 14:48:53

>>885
あれ？　記憶違いか。
知り合いが買ってすぐフリーソフト入れてただけか。　orz

887 ：デフォルトの名無しさん：2005/05/18(水) 14:51:31

いいかげんな情報まきちらすんじゃねえよカス

888 ：デフォルトの名無しさん：2005/05/18(水) 15:25:20

If Not rs![ポイント01] = vbNullString Then
.Cells(cnt, 16) = "'" & rs![ポイント01]
End If

ポイントが100個ぐらいある場合、やっぱ300行書け！
って話なのかな？

なんか工夫の仕方がありそうなんだけど
ヒントだけでもくだされ。

889 ：888：2005/05/18(水) 15:28:54

補足
ﾚｺｰﾄﾞ内にﾃﾞｰﾀがなければ"'"がいらない。
ﾎﾟｲﾝﾄ1、ﾎﾟｲﾝﾄ2････てな感じです。
ちなみに、rs![ポイント01] はAccess→外のDBに接続されてるテーブル
で型はすべてString、、、。

890 ：デフォルトの名無しさん：2005/05/18(水) 15:57:04

つ[For～To～Next]
つ[For Each～In～Next]
つ[Do While～Loop]
つ[以降略]

891 ：デフォルトの名無しさん：2005/05/18(水) 16:44:31

dllの関数を呼び出すときに配列全部を引数として渡すことってできますか？
やるとコンパイルエラーがでて「型が一致しません」って怒られる・・・
渡し方がいけないのかな？？？

dim A(10)

for i=0 to 9
A(i)=i+1
next

call B(A())
　　　↑
　dllで呼び出す関数

892 ：デフォルトの名無しさん：2005/05/18(水) 16:53:18

Dllが受け取ることができるか？
なら指定が悪いだけｗ

893 ：デフォルトの名無しさん：2005/05/18(水) 17:29:55

>>891
Declareはどう書いている？

894 ：デフォルトの名無しさん：2005/05/18(水) 18:30:45

>>891
数値配列は、その配列の先頭の要素を参照渡しで渡すと、配列全体が渡されます。
これは、数値配列のデータが常にメモリ上で連続した領域に配置されるためです。DLL
プロシージャに、配列の先頭の要素が渡されると、DLL はその配列のすべての要素
にアクセスできるようになります。

ヘルプの「DLL プロシージャへの配列の引き渡し」より。

895 ：891：2005/05/18(水) 19:00:26

>>892-894
申し訳ありません
DeclareではLongで定義してたのに
本文ではIntegerで定義してました・・・
あｑｗせｄｒｆｔｇｙふじこｌｐ

896 ：デフォルトの名無しさん：2005/05/18(水) 21:40:46

>>876
多分そういうソフト。
http://www.bitsum.com/pebundle.asp

897 ：デフォルトの名無しさん：2005/05/18(水) 21:58:36

>>888
rs![ポイント01] → rs("ポイント01")
こういう書き方もできる。(バージョンによるかもしれんが)
あとはぐるぐる回せ。

898 ：デフォルトの名無しさん：2005/05/18(水) 22:04:48

ふざけんなよ！参加しろと働きかけて、皆様方の共通財産ですと謳っておきながら、
おいしい処を丸々と持っていかれて。だから、コミュニティーは共○主義者なんだよ。
本文だけ載せれば問題ないだろ。
おまえ等にも抗議してほしい。
-----------------------
これまで、メーリングリストの過去ログに関してコミュニティの資産という
ことで Web サイト上で提供をしてきましたが、メールの内容の削除依頼の
増加だけでなく、個人情報保護法を楯にしたコミュニケーションが発生して
しまい、運営をしていることが訴訟リスクにつながるような状況となって
しまいました。
http://www.users.gr.jp/forums/13552/ShowPost.aspx

899 ：デフォルトの名無しさん：2005/05/18(水) 22:27:22

ふざけんなよ！
　過去ログのタグまで打ってあるよ。
ここから入ってね↓

http://www.users.gr.jp/

900 ：デフォルトの名無しさん：2005/05/18(水) 22:53:39

さようなら

901 ：デフォルトの名無しさん：2005/05/18(水) 23:07:10

♪さよならは　別れの言葉じゃなくて♪
ふざけんなよ！
おまえ等もコミュニティーには気をつけろよ

902 ：デフォルトの名無しさん：2005/05/18(水) 23:25:02

EXEの実行ファイルだけで動作できるプログラムは
VBではどうやっても不可能なの？

903 ：デフォルトの名無しさん：2005/05/18(水) 23:30:20

EXEだけということはWin APIを使わないってことか？

904 ：デフォルトの名無しさん：2005/05/18(水) 23:41:13

>>903
いやそう言うわけではないです。。。

自作したプログラムをUSBメモリで持ち運んでいるのですが、
いちいちインストーラーを起動、また終了時に削除するのが面倒なのです・・・
（場所を転々とするような環境の為）

やっぱりランタイムを必要としないソフトを作ろうと思ったら
VBは捨てるしかないですかね？

905 ：デフォルトの名無しさん：2005/05/18(水) 23:44:47

だから、英語版のランタイムは入ってるだろ

906 ：>>905：2005/05/18(水) 23:46:19

アフォは帰れ

907 ：デフォルトの名無しさん：2005/05/18(水) 23:55:46

>>904
標準コントロールだけならコピーするだけでも動くけど。
文字化けしないように、メニューに日本語は使わない。

908 ：904：2005/05/19(木) 00:02:27

>>907
凄くサンクスです。
もともと標準コントロールしか使用していませんので、
日本語を英語(というよりもローマ字表記)にしてみようと思います。

ああ今まで無駄にしてきた時間が・・・

909 ：デフォルトの名無しさん：2005/05/19(木) 00:06:28

>>906
アフォは帰れ

910 ：デフォルトの名無しさん：2005/05/19(木) 00:26:39

>>908
.exeと同じフォルダにVB6JP.DLLを置くと日本語表示も無問題。

911 ：デフォルトの名無しさん：2005/05/19(木) 01:36:19

>904
非常にﾀﾞｻい方法だとは思うが、文字は全部画像にするってのはどうよ?

912 ：デフォルトの名無しさん：2005/05/19(木) 02:28:50

解決策は>>910でいいんだが、
ついでにこれも参考になる。

http://www.microsoft.com/japan/msdn/thisweek/vbxp/vbxp2.asp#vbxp2-3
> 如何でしたでしょうか。VB で作成した ActiveX DLL がレジストリを
> 使わないで動作したことをご理解いただけたことと思います。

913 ：デフォルトの名無しさん：2005/05/19(木) 02:34:50

まあランタイムと言ってもただのDLLに過ぎないからな。
（注意 VB6JP.DLLはActiveXではない)

インストーラーといってもVB6JP.DLL等の共有DLLを
システムフォルダにコピーして必要ならレジストリに登録しているだけなんだし。

システムフォルダにコピーせずともEXEと同じフォルダに置いていれば動く。
side-by-sideが使えなくてレジストリに登録しなくちゃいけないのなら、
バッチファイルでアプリ起動前に登録して、起動後に消せば良いだけ。

必ずしもインストーラーは必要ない。

914 ：デフォルトの名無しさん：2005/05/19(木) 02:52:45

>>913
VBでもインストーラー形式とZIP形式の
全く同じソフトが作れるわけですね。

(´-`).｡ｏＯ（side-by-side難しすぎて分からないのは俺だけ？）

915 ：デフォルトの名無しさん：2005/05/19(木) 08:48:54

ttp://dobon.net/vb/
ココの「VBに適したインストーラを探そう」は参考になる。

916 ：デフォルトの名無しさん：2005/05/19(木) 13:58:32

VBってfor文を1行出かけないの？

917 ：デフォルトの名無しさん：2005/05/19(木) 14:06:03

For i = 0 To 100: [ここに処理を書く]: Next i

918 ：デフォルトの名無しさん：2005/05/19(木) 15:11:38

フォームを最小化しているときに、元のLeftとTopの位置を知るのにはどうしたらいいですか？
変数に記憶しておくのではなくて、Windowsが保持していると思うので取得したいのですが・・・

919 ：デフォルトの名無しさん：2005/05/19(木) 15:35:01

>>918
できない。
変数にでも記憶させておくしかない。
最小化中にサイズ知ってどうするの？

920 ：デフォルトの名無しさん：2005/05/19(木) 15:44:51

>>918
GetWindowPlacement

921 ：デフォルトの名無しさん：2005/05/19(木) 16:09:02

Set myIE = CreateObject("InternetExplorer.application")
myIE.Visible = True
myIE.Navigate2 myUrl, , , , "Authorization: Basic " & ここにBASE64で変換した文字列

これでBASIC認証のページを開けるのですが､その後にリンクをクリックすると
またパスワードを聞いてきます・・・

myIEのオブジェクトに毎回ﾍｯﾀﾞを送信する事は可能でしょうか？
それか回避可能な代案とかあったらお願いします・・・

922 ：デフォルトの名無しさん：2005/05/19(木) 16:50:03

半角カナの小文字を大文字に変換する方法はありますか？
ｯやｧをﾂやｱに変換したいです。

923 ：デフォルトの名無しさん：2005/05/19(木) 16:55:41

Replace

924 ：デフォルトの名無しさん：2005/05/19(木) 16:57:14

>>923
Replaceを使って自分で実装しろってことですか？　アンタばか？

925 ：デフォルトの名無しさん：2005/05/19(木) 17:15:05

>>924
そうですが、何か？

926 ：デフォルトの名無しさん：2005/05/19(木) 17:35:47

>>925
いえ、何も。

927 ：デフォルトの名無しさん：2005/05/19(木) 21:35:59

っていうかカタカナに大文字小文字なんて概念はないわけで。
普通のセンスがあれば、そんな一般性のない俺様な需要を満たす
組み込みの関数はないだろうと考えると思うんだけど。

928 ：デフォルトの名無しさん：2005/05/19(木) 23:10:13

VBだけに、あると思った。

929 ：デフォルトの名無しさん：2005/05/19(木) 23:10:55

928のVBの印象は間違っていたようだ。

930 ：デフォルトの名無しさん：2005/05/19(木) 23:31:59

VBの壁

931 ：デフォルトの名無しさん：2005/05/20(金) 00:08:57

EXEを作れるEXEはどうやって作ればいいのですか？

932 ：デフォルトの名無しさん：2005/05/20(金) 00:12:28

>>931
PEフォーマットの形式で、ヘッダなどをつけて
機械語コードを埋め込んだバイナリファイルを
作成するEXEを作ればいいだけ。
具体的にはスレ違い。

933 ：デフォルトの名無しさん：2005/05/20(金) 00:12:41

>>931
コンパイラの勉強とかPEフォーマットやインテルの仕様書見ろ

934 ：921：2005/05/20(金) 01:02:07

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
myIE.Navigate2 URL, , , , "Authorization: Basic " & strAccount & vbCrLf
End Sub

BASIC認証の件なんですが、このコードで毎回ヘッダを送信するようにしたところ
Navigateする度に自身のイベント呼び出してしまう無限ループに陥りました・・・orz

VBAでいうApplication.EnableEvents = False
のようなイベントを無効にする事って出来ないんですかね？

935 ：デフォルトの名無しさん：2005/05/20(金) 01:03:29

>922
つ[RegExp]

936 ：デフォルトの名無しさん：2005/05/20(金) 01:39:33

>>934
よく知らんけど、こことか見るとフラグで制御しているみたいね。
http://www.vbip.com/forum/topic.asp?id=6082

937 ：デフォルトの名無しさん：2005/05/20(金) 02:09:32

>>936
おー、自分の求めていたものが出来ました！

ただこのままでは対象をファイルに保存するで、ダウンロードする時に
パスワードを要求されてしまう・・・orz

WebBrowser1_DownloadBegin()
これでは引数にURLがないし、どうしたらいいのでしょう？
APIでBASIC認証ダイアログのハンドルを取得して、SendMessageできたらなぁ・・・

938 ：デフォルトの名無しさん：2005/05/20(金) 03:01:34

>>937
URLにパスワードを含めるのは？

939 ：デフォルトの名無しさん：2005/05/20(金) 07:41:23

>>937
ファイルをダウンロードするところを・・・Inetだっけ？
とかWinSockとかでやったら？

> APIでBASIC認証ダイアログのハンドルを取得して、SendMessageできたらなぁ・・・
それと同じようにWebBrowserでパスワードをSendMessageで・・・って
やったことあるけどねｗ
やばいサイト用ツールなのでソースを出すわけにはいかないがｗ

940 ：デフォルトの名無しさん：2005/05/20(金) 11:45:52

>>938
セキュリティの点で問題があるので、去年MSがIEのパッチで使えなくして、
サイト側も使えないところが多くなったような。

941 ：デフォルトの名無しさん：2005/05/20(金) 14:44:10

VB6.0上のMsgBox上の表現で右詰にする方法はありませんか？？？

942 ：891：2005/05/20(金) 17:14:23

エラーはでなくなったんだけど
配列を渡す先のdllでめちゃめちゃな値が渡されてる・・・
ＶＢでは配列の値が1で送ったはずなのにdll先（C++）では1242316って値になってるし？？？
どういうことなんでしょうか？

943 ：デフォルトの名無しさん：2005/05/20(金) 17:21:33

>>942
DLL(C++) で VB の配列を受け取る場合は VARIANT(C++)型を使え。

944 ：891：2005/05/20(金) 17:48:18

>>943
C++でVariantって定義したらｼﾝﾀｯｸｽｴﾗｰっていわれて怒られた(´･ω･`)
どういう風に宣言したらいいのでしょうか？

945 ：デフォルトの名無しさん：2005/05/20(金) 18:07:31

>>944
VARIANTだ。大文字小文字は区別される。それでもだめなら<OAIdl.h>をインクルードしろ。

でも1次元の配列ならVARIANTにしなくてもできるはず。
DLLとVB側でどんな宣言をした？

946 ：デフォルトの名無しさん：2005/05/20(金) 20:11:14

おしえてください。VBで通常参照設定をしているDLLを
CreateObjectでセットする事ってできるのでしょうヵ？

947 ：デフォルトの名無しさん：2005/05/20(金) 20:23:58

できる。

948 ：891：2005/05/20(金) 20:28:40

>>945
VB側
Dim a(10) as Long

For i = 0 to 9
a( i ) = i + 1
Next
kotae = siki ( a() , b , c)

Declare Function siki Lib "test.dll" ( x() As Long , ByVal y As Long , ByVal z As Long) As Double

C++側

TEST_API double __stdcall siki (int x[] , int y , int z )

こんな感じです

949 ：デフォルトの名無しさん：2005/05/20(金) 20:38:19

>>947
方法を教えていただきたいのですが、よろしくお願いします。
イメージとしては
dim aaa as object

set aaa = CreateObject("abc.dll")
を想定してたのですがコンパイルエラーになります。

950 ：デフォルトの名無しさん：2005/05/20(金) 20:42:09

DLLはクラス名じゃないから当然。
参照設定しているDLLに入っているクラスを指定しろ。

951 ：デフォルトの名無しさん：2005/05/20(金) 20:48:01

>>950
回答ありがとうございます。
クラスというとおそらくはDLLを構成しているクラスﾓｼﾞｭｰﾙだとおもうのですが
あっていますか？

ActiveXコンポーネントはオブジェクトを作成できませんのエラーがでます。
revsvrは実行しています。

952 ：デフォルトの名無しさん：2005/05/20(金) 20:49:39

クリはクラスだろう。オレがよく使うのは
CreateObject("Scripting.FileSystemObject")
CreateObject("OracleInProcServer.XOraSession")

ということは？

953 ：デフォルトの名無しさん：2005/05/20(金) 20:50:19

あっとわかりました。！！
DLL名.クラス名で正解ですね？？

954 ：デフォルトの名無しさん：2005/05/20(金) 21:04:55

DLL名.じゃねーってｗ
ActiveX DLLのオブジェクト名.クラス名だ。
ちょっと違った気もするがまあいいか。

955 ：デフォルトの名無しさん：2005/05/20(金) 21:06:12

abcというオブジェクト名の
dllというクラス名なら>>949で正解！

956 ：デフォルトの名無しさん：2005/05/20(金) 21:11:16

了解しました先生方！！
うまくDLLの関数がよびだされました。
オブジェクト名が正だったんですね。
分かり易い説明ありがとうございました。

957 ：デフォルトの名無しさん：2005/05/20(金) 22:16:10

すみません。文字列の比較についてなんですが、
VBでは文字列の比較に「=」を使用してもいいんでしょうか？
それとも必ずstrcompを使うわないといけないんでしょうか？

958 ：デフォルトの名無しさん：2005/05/20(金) 22:25:18

>>948
VBのDeclareでのx() As Longに対応するC++の型はSAFEARRAY **になる。
x As Longにしてsiki(a(0))と呼べばC++ではint []として受け取れる。(数値型限定)

http://support.microsoft.com/?scid=kb;ja;410837#XSLTH3143121122120121120120

959 ：デフォルトの名無しさん：2005/05/20(金) 23:52:54

線分OAのOを中心に45度のところに線を描きたいのですが、
角度を用いて線を描くときはどうやって表せばいいのでしょうか？

960 ：デフォルトの名無しさん：2005/05/21(土) 00:06:34

>>959
線分を引くにはLineメソッド。(PictureBoxかFormっしょ？)
２点の座標がいる訳だが点Ｏの座標ともう一点は計算で楽勝でしょ。
（４５度なら計算するまでもないが、
　任意角度でもSin／Cos関数を使って中学生にでもできる）

961 ：デフォルトの名無しさん：2005/05/21(土) 00:06:59

>>959
計算したら出るだろ

962 ：959：2005/05/21(土) 00:17:44

１つの枝から３本の枝が出て、それぞれからまた３本の枝が出て･･･
っと続いていく図形を作りたいのですが、それも計算で表すことでできるでしょうか？

963 ：デフォルトの名無しさん：2005/05/21(土) 00:21:14

>>957
完全一致の比較は「=」でいい。
TextCompareモードとかで比較する時にStrCompを使うと便利。

964 ：デフォルトの名無しさん：2005/05/21(土) 00:25:20

>>962
いつも45度ずつなら三角関数は必要ないなあ。
簡単な法則で次の座標値を計算できるし。

965 ：959：2005/05/21(土) 00:33:58

簡単な法則とはどのようなものでしょうか。

966 ：デフォルトの名無しさん：2005/05/21(土) 00:35:30

本当にわかって言ってるのか>>960とか>>964は。
まあ確かに高校生レベルの数学（中学生はさすがに言いすぎ）だが、
そんなに簡単とも思えないが。

結構面倒くさいぞ。

967 ：966：2005/05/21(土) 00:40:58

>>965
俺なら局座標でもユーグリッド座標でも定義できる
二次元ベクトルのクラスをつくるね。

局座標をxy座標に変換するのは出来るでしょ？
それが出来ればあとはベクトルの足し算すればいいと思う。

968 ：デフォルトの名無しさん：2005/05/21(土) 00:43:56

あ極座標ね

969 ：959：2005/05/21(土) 00:46:56

>>966
なるほど。ありがとうございます。

ところで質問ばかりで申し訳ありませんが、
極座標はVisual Basicでどのようにあらわすのでしょうか？

970 ：デフォルトの名無しさん：2005/05/21(土) 00:48:00

>>967
お前は字も読めない小学生か？
ここは数学板ではないぞ。スレ名をよく見てみろ。

>>960みたいにコードで答えなきゃ意味がない。

971 ：デフォルトの名無しさん：2005/05/21(土) 00:52:28

>>970
君は「サンプルコードがなければ何もできない、いつもサンプルをコピペして
コーディングしている自分」を他人に投影し過ぎです。

普通の知能レベルの人は「考え方」さえ聞けば必要十分なのだよボクちゃん。

972 ：デフォルトの名無しさん：2005/05/21(土) 01:01:39

>>969
Visual Basicの組み込みの機能としては、極座標というデータ型はない。
極座標って要xyの直交座標の代わりにはrとθで表現する座標系だってことは
わかるよね？

だったら、その通りコーディングするだけだと思うけど。。

973 ：デフォルトの名無しさん：2005/05/21(土) 01:20:10

荒らしは華麗にスルーしましょう。

974 ：957：2005/05/21(土) 01:26:27

>>963
ありがとうございました。
Cだとかだと関数使わないといけなかったですよね？
演算子による比較だと同じメモリアドレスでないと真にならないとか。
それで気になって質問してみました。

975 ：デフォルトの名無しさん：2005/05/21(土) 01:29:36

>>971
っ鏡

976 ：デフォルトの名無しさん：2005/05/21(土) 02:25:14

ｗ

977 ：891：2005/05/21(土) 02:46:12

>>958
サンクス
そのsiki(a(0))の方法で無事読み込めたよ！！！
そうか～配列のしょっぱなのアドレスをC++へ渡せばいいだけだったんだね
本当に助かりますた(｀･ω･´)ｼｬｷｰﾝ