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

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

VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。

○ 質問者の心得
　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。
　二．VBScript、インストーラーなどはこのスレでＯＫ。
　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。
　四．荒らしは相手しない。

○ 回答者の心得
　一．答えられない質問は無駄に罵倒せずスルー。無理するな。
　二．代用法を強制しない。
　三．回答する上で必須ではない情報をむやみに聞き返さない。
　四．荒らしは相手しない。
　五．VB情報募集中。
　六．回答は質問者が理解できるよう具体的に。

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/

※「まず自分で調べる」クセを身につけよう。

過去ログ
　　Part 1 http://piza2.2ch.net/tech/kako/968/968328471.html
　　Part 2 http://piza2.2ch.net/tech/kako/990/990793224.html
　　Part 3 http://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
　　Part 4 http://pc.2ch.net/tech/kako/1006/10069/1006922992.html
　　Part 5 http://pc.2ch.net/tech/kako/1010/10106/1010624646.html
　　Part 6 http://pc.2ch.net/tech/kako/1013/10138/1013844542.html
　　Part 7 http://pc.2ch.net/tech/kako/1015/10158/1015836357.html
　　Part 8 http://pc.2ch.net/tech/kako/1018/10187/1018794901.html
　　Part 9 http://pc.2ch.net/tech/kako/1020/10208/1020830472.html
　　Part10 http://pc.2ch.net/tech/kako/1022/10221/1022127528.html
　　Part11 http://pc.2ch.net/tech/kako/1024/10243/1024380249.html
　　Part12 http://pc3.2ch.net/tech/kako/1026/10266/1026642565.html
　　Part13 http://pc3.2ch.net/tech/kako/1029/10292/1029241786.html
　　Part14 http://pc3.2ch.net/tech/kako/1030/10309/1030947162.html
　　Part15 http://pc3.2ch.net/tech/kako/1032/10327/1032706491.html

　　Part16 http://pc3.2ch.net/tech/kako/1034/10343/1034302532.html
　　Part17 http://pc3.2ch.net/tech/kako/1036/10361/1036154952.html
　　Part18 http://pc3.2ch.net/tech/kako/1038/10381/1038103769.html
　　Part19 http://pc3.2ch.net/tech/kako/1039/10398/1039859691.html
　　Part20 http://pc5.2ch.net/tech/kako/1041/10418/1041879465.html
　　Part21 http://pc5.2ch.net/tech/kako/1044/10440/1044028945.html
　　Part22 http://pc5.2ch.net/tech/kako/1046/10463/1046354784.html
　　Part23 http://pc5.2ch.net/tech/kako/1047/10477/1047743187.html
　　Part24 http://pc5.2ch.net/tech/kako/1050/10501/1050151126.html
　　Part25 http://pc5.2ch.net/tech/kako/1052/10526/1052627913.html
　　Part26 http://pc5.2ch.net/tech/kako/1055/10551/1055145106.html
　　Part27 http://pc5.2ch.net/tech/kako/1058/10586/1058674927.html
　　Part28 http://pc5.2ch.net/tech/kako/1061/10612/1061296197.html
　　Part29 http://pc5.2ch.net/tech/kako/1065/10654/1065446334.html
　　Part30 http://pc5.2ch.net/test/read.cgi/tech/1069160036/

　　Part31 http://pc5.2ch.net/test/read.cgi/tech/1073732636/
　　Part32 http://pc5.2ch.net/test/read.cgi/tech/1077216109/
　　Part33 http://pc5.2ch.net/test/read.cgi/tech/1080606445/
　　Part34 http://pc5.2ch.net/test/read.cgi/tech/1084544243/
　　Part35 http://pc5.2ch.net/test/read.cgi/tech/1087519251/
　　Part36 http://pc5.2ch.net/test/read.cgi/tech/1092906058/
　　Part37 http://pc5.2ch.net/test/read.cgi/tech/1090286450/
　　Part38 http://pc5.2ch.net/test/read.cgi/tech/1095673000/
　　Part39 http://pc5.2ch.net/test/read.cgi/tech/1099737063/
　　Part40 http://pc5.2ch.net/test/read.cgi/tech/1106748775/
　　Part41 http://pc8.2ch.net/test/read.cgi/tech/1112414085/
　　Part42 http://pc8.2ch.net/test/read.cgi/tech/1116924129/
　　Part43 http://pc8.2ch.net/test/read.cgi/tech/1123952677/
　　Part44 http://pc8.2ch.net/test/read.cgi/tech/1130231657/
　　Part45 http://pc8.2ch.net/test/read.cgi/tech/1133977286/

　　Part46 http://pc8.2ch.net/test/read.cgi/tech/1138975113/
　　Part47 http://pc8.2ch.net/test/read.cgi/tech/1141320612/
　　Part48 http://pc8.2ch.net/test/read.cgi/tech/1146678926/
　　Part49 http://pc8.2ch.net/test/read.cgi/tech/1152667953/

http://www.microsoft.com/japan/msdn/vbasic/support/vistasupport.aspx
Visual Basic チームは、Visual Basic 6.0 アプリケーションが Windows(R) Vista でも
"そのまま" 動作する互換性を提供することを表明します。」

Visual Basic チームは、Windows XP で実行できる Visual Basic 6.0 アプリケーションが
Windows Vista でも実行できるようにすることを目標としています。
また、Windows Vista で実行できる Visual Basic 6.0 の開発環境を提供するための取り組みも行っています。
このドキュメントで説明するように、Visual Basic 6.0 ランタイムは、Windows Vista のライフサイクルをとおして
サポートされます (メインストリーム サポートが 5 年、延長サポートが 5 年の合計 10 年になります)。
マイクロソフト プロダクト サポート ライフサイクルの詳細については、http://support.microsoft.com/gp/lifepolicy (英語) を参照してください。

マイクロソフトでは、ユーザーが Windows Vista で Visual Basic 6.0 アプリケーションを実行できるようにするため、
Windows Vista に Visual Basic 6.0 ランタイムの主要コンポーネントを同梱する予定です。
Visual Basic 6.0 ランタイムを使用するように記述されたアプリケーションが Windows XP と Windows Vista の両方で
同様に動作する互換性を確保するため、一連のアプリケーションを使用してテストを行いました。

Visual Basic 6.0 IDE は、延長サポートの一環として、2008 年 3 月まで Windows Vista でサポートされます。
Windows Vista チームと Visual Basic チームでは、Windows Vista で Visual Basic 6.0 IDE のテストを行い、
IDE が以前のオペレーティング システムと同様に機能するようにしています。
-
とっととVB.NETを覚えて下さい。

VB6の手軽さは異常杉

見た目を変えずOptionButtonの変更を
ロックするプロパティってないんですか？
Enabled=Trueだとグレーになっちゃうし・・・
TextBoxのLockedみたいなプロパティは無いし・・・

皆さん、どのように対処してますか？

>>8
フレームとかピクチャボックスの中に入れて
そのフレームとかピクチャボックスのEnableプロパティをFalse

>>8
「見た目を変えずOptionButtonの変更をロックする」なんてＵＩは最低最悪。

CSVファイルの内容をすべて一覧で表示したいのですが、
FlexGridやListViewなどのocxを配布するコントロールが使用できません。
行ごとの追加削除をしたいので行ごとの選択をしたいのですが、
ListBoxコントロールでLFで隙間を空けるのも試してみましたができません。
なにかいい案はありませんか？

MS FLEX GRID　もだめなのか？

12は間違いだったｗｗスマン

ピクチャボックスの上にチェックボックス＋テキストボックスとか動的に並べて擬似グリッドとか(；´∀｀)
だめっぽｗｗｗ

ListBoxを横にならべて、
１つ目の選択行が変わったら他の選択行も変えようかとも思ったんですが、
ListBoxごとにスクロールバーができるんですよね・・・

> ocxを配布するコントロールが使用できません。
何故に？

というよりは､そういう条件でありながら､何故にVBを選んだのか気になる。
今時､VB6しか使えないなんてことは無いだろうし。

14の名前欄間違えました。11です。
とりあえず重ねてスクロールバーが見えないようにはしたけど、
Topindexが変わったのをキャッチすることができません。
いっそ何か違う方法のほうがいいのかな・・・

VBもocxなしもお客様からの指定です・・・
ちょっと何か違う方法を考えてみます。
ありがとうございました。

>>11
HTAでTDCを使う。

そんな客だったら100倍くらい値段吊り上げる

今VB6環境ないんであれだけど
こんなんでいけるんじゃね？（ｒｙ
タブとか消されるんで適当に解釈してくれ、あと行も詰めて書くわ

Option Explicit 'これであってたっけ？
Private Const mcMaxRow As Long = 3
Private Const mcMaxCol As Long = 3
Private mText(1 To mcMaxRow, 1 To mcMaxCol) As TextBox
Private mCheck(1 To mcMaxRow) As CheckBox

Private Sub ContainorMake()
Dim i As Long, j As Long
Dim cnt As Long, TempLeft As Long, TempCulc As Long
Me.Check(0).Top = 0
Me.Text1(0).Top = 0
For i = 1 To mcMaxRow
Load Me.Check(i)
Set mCheck(i) = Me.Check(i)
Set mCheck(i).Container = Picture1
With mCheck(i)
.Top = mCheck(i).Height * (i - 1)
.Visible = True
End With
Next i
cnt = 0
For i = 1 To mcMaxRow
TempLeft = mCheck(i).Left + mCheck(i).Width
TempCulc = 0
For j = 1 To mcMaxCol
cnt = cnt + 1
Load Text1(cnt)
Set mText(i, j) = Text1(cnt)
Set mText(i, j).Container = Picture1
With mText(i, j)
.Left = TempLeft + (.Width * (j - 1))
.Top = mCheck(i).Top
.Text = ""
.Visible = True
End With
Next j
Next i
End Sub

上のは
コンテナ用
Picture1 As PictureBox

あとは表示用
Check(0) As CheckBox
Text1(0) As TextBox

という3つのコントロールが貼り付けられてるの前提でお願い（CheckBoxno縦幅にあわせるので）
あとチェックとテキストは貼り付けた時にサイズを適応に指定して、非表示っつうかんじで

参考書のとおりに
outportb Port +2,0
と打つと、
outportb（Port +2,0）
となってしまうのですがなぜでしょう。
outportbは宣言済みです。

>>17
CreateObject でエクセルでも使え。

>>23
仕様。

掛け算のプログラムを打ち込みたいのですが、繰上げの部分がうまくできません。
↓のは足し算のプログラム(端折ってますが)なんですが、
これからうまく掛け算のプログラムに変えられますか？

For i = 0 To L2 - 1
a = CInt(Mid(strA, L1 - i, 1))
b = CInt(Mid(strB, L2 - i, 1))

wa = kuriage + a + b

If wa <= 9 Then
ans = CStr(wa) & ans
kuriage = 0
Else
ans = Mid(wa, 2, 1) & ans
kuriage = 1
End If
Next i

If kuriage = 0 Then
If L1 = L2 Then
execPlus = ans
Else
execPlus = Mid(strA, 1, L1 - L2) & ans
End If

Exit Function
End If

＞　これからうまく掛け算のプログラムに変えられますか？
変えられるだろうけど、変える気はしない

>>27
激しく同意ｗｗｗ


>>26
つか、普通に+演算子とか*演算子を使っちゃいかん理由でもあるのか？

・・・と、釣られてみるｗｗｗ

>>28
10進演算したいんじゃない？

引用して打ち込んでください、とのことなんですが、>>28さんのやり方でやってみます。

レスありがとうございました。

ﾏﾝｶｽ

VBからADO経由でJETデータベースの
ロック状況とか接続ユーザーの情報とか
取得する方法ってある？

やっぱ*.ldbの有無と内容を解析するしかない？

プロの方々、教えてください。
「abc123」というテキストが書かれているファイル
test01.txt　をバイナリで読み込んで、それの
１文字目と２文字目のxor値をとり、その値を
abc123の後に入れてファイルに書き出すことが
やりたいのですが、下記を実行すると
「型が一致しません」となります。
どうおかしいのかと、さらにはうまくいく方法を
教えていただけないでしょうか。
よろしくお願いいたします。
ちなみにBASP21を使っており、本ソースは
xor値をとるところまでとなっています。

Option Explicit
Dim bobj
Dim BinAll
Dim BinXor
Set bobj = CreateObject("basp21")
BinAll = bobj.BinaryRead("C:\test01.txt")
BinXor = bobj.MidB(BinAll,1,1) Xor bobj.MidB(BinAll,2,1)

何でわざわざbasp21使うの？
バイナリ読込はVB標準で出来るのに。


というツッコミは無しですか？

>>34
あ、そういうツッコミもアリです。
ありがとうございます。

VBSでも標準でできるんでしょうか？

VBSの場合､VBS(wsh及びvbscript)の機能では出来ないけど
basp21入れなくても標準で入ってるCOMでバイナリ読み出来る。

つーか､ここはVB6スレなわけよ。
VBSは一応許容範囲だが､その場合はきちんとVBSであることを明記すること。
VBSだと予測は付くが､クイズスレじゃないんだから回答者に予測させてどうするよ？

>>35
俺ならADODB.Streamで
バイナリデータ読み込むけどなぁ。

なるほど。
いろいろツッコミありがとうございます。
ところで、方法はいろいろあってバイナリで
読み込んだとしましょう。

読み込んだ後に１バイトとるってのは
BASP21だとMidBなんでしょうが、
他だとどうなるんでしょうか。
また、その１バイトとったやつの
XOR値をとると「型エラー」になるということは、
バイト型or数値型になっていないのでしょうか・・・

つーか､バイナリに対して｢１文字目と２文字目｣って何なの？
abc123なら｢61 62 63 31 32 33｣となるわけだが､
1文字目が6で､２文字目が1って意味か？それとも61と62か？
ちゃんとバイト･ビットって正しい用語を使って話せるようになろうよ。

>>39
本来テキストなので、そのときの１文字目および２文字目
という意味です。
当然バイナリで読み込んだ後は１バイト目、２バイト目
というふうに言い換えるべきでした、すいません。

2バイト文字の場合どうするんだい？

とにかく君は､全てに置いて抜け過ぎ。
自分の頭の中では､VBSなのもテキストとしての文字数単位なのも決定事項なんだろうが
第三者には君の脳内決定事項なんて知らない。もっと深く考える頭を持とうぜ。

で､ぶっちゃけテキストとしての文字単位なら､テキスト読みして
strText = "abc123"
MsgBox Asc(Mid(strText, 1, 1)) Xor Asc(Mid(strText, 2, 1))
でいいんじゃないの？

>>41
そうですね、すいませんでした。
とりあえず２バイト文字の場合もあるし、
純粋にバイナリの場合もあります。
毎回確実に１バイトとるので、ascが使えない
場合もあります。
言葉足らずでほんと申し訳ないです。

テキストなんじゃなかったのかよ。
とりあえずADODB.Streamでバイナリ読んでAscB(.Read(1))で。

>>43
なるほど、AscBで数値を取得できました。
目からウロコです。ありがとうございました。

これをまたバイナリに戻すのは、なんという
関数を使えばいいのでしょうか？
文字列であらわせるとは限らないので、
chrだとダメなんでしょうか・・・

chrBを自力で見つけました。
これでちょっとやりたかったことをやってみます。
本当にありがとうございました。

普通にバイト配列に読み込めばいいだけだろ。

こういうのも自力って言うのかねぇ？
AscにAscBが有るのを教えれば､Ascと対になるChrに
ChrBが有ると教えてるのと同じだろうに。

バイナリで書き込むときに、また行き詰るんじゃないか。

バイナリで書くときに行き詰りましたorz
要は、自分が今どんな状態なのか
把握してないんですよね・・・

AscBにしてもChrBにしても、バイナリ書きが
できません。
BASP21のBinaryWriteを使ってるんですが、
Xor値をとった答えが書き出せないんです。

Dim bobj
Dim BinAll
Dim BinXor
Dim wlen
Set bobj = CreateObject("basp21")
BinAll = bobj.BinaryRead("C:\test01.txt")
BinXor = bobj.AscB(BinAll,1,1) Xor bobj.AscB(BinAll,2,1)

wlen = bobj.BinaryWrite(BinXor,"C:\test02.txt")

もう飽きたから､君は来なくて良いよ。

>>50
すごい自分勝手なやつだな
ここってこんなやつばっかりか？

>>49
何で BASP21 等という訳の分からん物使うんだ？
ファイルの読み書きなんて、ＶＢ標準で出来るだろうが。

VBSじゃなかったけ？
まぁ質問者は仕様をもっと明確にしたほうが良い

> BinXor = bobj.AscB(BinAll,1,1) Xor bobj.AscB(BinAll,2,1)
ていう風に､いきなり関数をXorに掛けないで､
まずは変数ち取って処理しろ。そしてエラーが出たら､MegBoxなどで
変数自体の値やTypeNameを確認する。無知なりに工夫してやれよ。
これは今回に限らず何でもそうだ。
オマエは行き詰まったら､そこで努力や試行錯誤も止めてるとしか思えない。

思えない、というより実際そうだからこんなところで聞いているのだろう。

VBScriptもokとは言え、
ここより、BASPやVBScript、WSHの掲示板で聞いたほうがいいんじゃないか。

質問させていただきます。
VB5 使っているのですが、例えばメモ帳の IMEモードを取得したい場合
どうやったらよいですかね？
次番号にコード書きます。フォームの上にラベルコントロール１個、
テキストボックス１個、タイマーコントロール１個を配置してください。
テキストボックスに、IMEが　ONなら、０以外の数値が入ります。

Option Explicit
Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Declare Function ImmGetContext Lib "imm32.dll" (ByVal hwnd As Long) As Long
Private Declare Function ImmReleaseContext Lib "imm32.dll" (ByVal hwnd As Long, ByVal himc As Long) As Long

Private Declare Function ImmGetOpenStatus Lib "imm32.dll" (ByVal himc As Long) As Long

Private Sub Form_Load()
Me.Label1.Caption = "ImmGetOpenStatus"
Me.Timer1.Interval = 400
End Sub

Private Sub Timer1_Timer()
Dim Ret As Long, RetB As Long, GFgW As Long

GFgW = GetForegroundWindow

Ret = ImmGetContext(GFgW)

RetB = ImmGetOpenStatus(Ret)
Me.Text1.Text = RetB

RetB = ImmReleaseContext(GFgW, Ret)
End Sub

自フォーム内で、IMEを　ON／OFFすると反応するのですが、
メモ帳とか他アプリだと反応しません。
AttachThreadInputも試したのですが、やはり反応しませんでした。
なにか助言ありましたら、お願いします。

XPでVisual Basic 6.0を使用しています。

Imageコントロールに画像を貼り付けた後、それをドラッグして移動させて、
先ほどのImageコントロールの場所にまた別の画像を貼り付ける（この画像もドラッグできる）。
という作業を繰り返せるようにしたいのですが、一つのImageコントロールから
何回も別の画像を取り出せるようにするにはどうしたらいいのでしょうか？

Image1(x)として、xを変更していけばできるのでしょうか…？

>>60
フォームに、イメージコントロール１個、テキストコントロール１個、
コマンドボタン１個、シェイプコントロール１個を作成してください。
イメージコントロールの index は 0　に。
下記のコードを貼り付けてください。

Option Explicit

Dim mDownFLG As Boolean, mDownX As Single, mDownY As Single, sX As Single, sY As Single

Private Sub Command1_Click()
Dim i As Long
i = Me.Image1.Count
Load Image1(i)

Image1(i).Picture = LoadPicture(Text1.Text)

Image1(i).Visible = True
Image1(i).ZOrder
End Sub

Private Sub Form_Load()
Me.Shape1.BorderWidth = 2
End Sub

Private Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
mDownFLG = True
With Me.Shape1
.Move Me.Image1(Index).Left, Me.Image1(Index).Top, Me.Image1(Index).Width, Me.Image1(Index).Height
sX = .Left: sY = .Top
mDownX = X: mDownY = Y
.Visible = True
.ZOrder
End With
End Sub

Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If mDownFLG = True Then
Me.Shape1.Left = sX + (X - mDownX)
Me.Shape1.Top = sY + (Y - mDownY)
End If
End Sub

Private Sub Image1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
mDownFLG = False
Me.Shape1.Visible = False
With Me.Image1(Index)
.Left = Me.Shape1.Left
.Top = Me.Shape1.Top
End With
End Sub

テキストボックスには、画像ファイルのフルパス＋ファイル名で、
コマンドボタンをクリック。
あとは、適当に動かせるハズ。しょぼいコードですが。

・・・うまくいったら、５７の質問にご協力を・・・。Orz

>>64
hWnd がしっかり取れてないだけでは。

>>64
プロセスをコンソールに吐く事くらいしろ。

やりたい事がよくわからんけどヒントやる。
・自分でメモ帳起動して、プロセス取得
・マウスの位置からプロセス取得
・ｳｨﾝﾄﾞｳのタイトルからプロセス取得

まぁ頑張って。

6.0プロと6.0エンタープライズ

のバージョンに違いはどれ位ありますか。

エンタープライズに出来てプロにはない機能とか、

簡単でいいので教えてください

>>67
ハルミデザインとオリエント工業くらい違う。

>>65 >>66
ありがとうございます。メモ帳等のハンドルは取れるのですが、
ImmGetContextについて調べた結果、自アプリ以外の hWnd は
はじいてしまうようです。ImmEnumInputContextを使えばあるいは・・・
というところまでは行ったんですが、AddressOf演算子を使ったりで、
メモリーエラーを頻繁に出すので、もうあきらめる事にします。

>>67
Winsock等の便利コントロールが付いてくるか来ないかの
違いだった気がします。

いいかげんな事を書くのは嘘よりタチが悪い

LeaningEdition買っちゃって(´･ω･`) な俺様が通りますよ
っていうか今から6.0買う人っているのね

血統書つきの6.0は高値で取引されるのですよ・・・ニニフ

MSDN契約してたら全部
月単位で送ってくるんじゃね？

フォームAからフォームBを起動するときにパラメータを渡す方法としてはどのような方法が一般的なのでしょうか？いくつかオプションがある場合はその長所と短所を説明していただけませんでしょうか？

フォームは起動するもんじゃないだろ
イチャモンだと思うかもしれないが重要なことだよ。

フォームBは必要なパラメータをプロパティとして公開しといて、
フォームBを作った奴がそれを設定するのがVBではベストじゃないかな。

VBでも工夫すれば他の言語の引数付きのコンストラクタみたいなことも
できないこともないが、コードを書いたときにはうまく書けたように思えても
あとで見直すとわかりにくいコードになりがち。

なんにしろ今時のOOP言語と比べてVBのダメなところがもしわかってないなら
妙な工夫はむしろしない方がいいと思う。

>>74
http://hanatyan.sakura.ne.jp/vbbbs/wforum.cgi?mode=allread&no=7627&page=0
マルチ乙

マルチとかくだらんことにこだわる奴の方こそ病気だと俺は思うけどね
マルチが悪い理由を系統だてて聞いたためしがない。
俺様の好意を踏みにじる行為だ云々、という浪花節なら何度も聞いたが。

マルチが悪い理由すら思いつかない奴が
まともなプログラム組めるのか？
論理的な思考回路を持ってないとしか思えないがw

そういうのが浪花節っていうんだよw
情に訴えるんじゃなくて論理に訴えてくれ

じゃ、取り敢えずマルチポストOKの立場から
マルチポストの有益なところを聞かせてくれないか？

悪いけど無罪を証明するまでは有罪みたいな思考は北朝鮮か中国なみの民度だと思うぞw
といってもアホにはわからんかw

つまり、建設的に議論する気はない訳ね？
俺は参考までに意見を聞きたかったんだがな。

つ〜ことで、以下スルーﾖﾛｗｗｗ

> 以下スルーﾖﾛ
って､言い負け宣言だよね。
もう言い返せないから､これ以上虐めないで･･･ってw

マルチはイカンと言い出した側がスルーって意味がわからんw
挙証責任の概念もないのか。
マルチ有罪説を解きたいならそう主張する側がそれを立証しろってw

ちょっとまてｗ
77≠80だｗｗｗ

ついでに言うと80=82だが。

議論の内容に興味持ってるのではなく
単に踊らせるために煽ってるだけだってことに気付いているのかな。
そこの操り人形の如く踊っちゃった哀れな道化師君。

つまらんな。

糞虫ども乙ｗｗｗ

お前らはマルチどーのこーの以前の存在だよ

俺はシナリオ書くだけ。
プログラム書いて機械を踊らせるよりは
シナリオ書いて人間踊らせる方がおもしろい。

>>75
今時のOOP言語と比べる事自体間違ってるだろ。
優劣なんかなくて、単に適材適所なんだから。

>>92
何を見当違いなことを。。
誰もVBそのものの他と比べた優劣なんか言ってないだろうに。

ただVBのOOP言語としての問題を踏まえずに下手に工夫をこらすと
策士策に溺れるになるよ、と言ってるだけだろう。
だからベタなコード書けと言ってるわけだが、それも読めないのか。

>>93
自分が比較してる事すら分かってないのか。
救い様がないな。

ダメなところを考えずにどうやって適材適所を判断するんだろう…。

まあ、日本語という（恐らく）ネイティブな人語の読解すらままならない奴に
何言っても恐らく無駄だろう。

昔から日本の国語教育って問題あるけど、最近若い奴に特に増えてるね。
文章から文脈とか意図とかを正しく読み取れない奴が。

>>96
お前が一番分かってない

ＶＢの話しようぜ。

よし。じゃぁ燃料を投下しよう。

VBでもイベントは継承できるじゃん。

継承元でコーディングして、それをさらに継承すれば
オブジェクトっぽい継承が実現できない？

ちなみに、経験上そんなことはした事ない。

精々、へっぽこＤＢとのIF部品にイベント
を組み込んでカーソルの移動を送ったくらい。

>>61-64
返事が遅れてしまいましたが、上手くいきました。
本当にありがとうございました。

>>99
無理矢理そんな使い方しなくても。
ＶＢらしいコードを書けばいい。

Collectionを型だと思っているﾔｼは死んだほうがいい。

Collectionは型だよ。
そんなことも知らなかったの？

>>103
あれは、デフォルトプロパティを持つクラス。

Private WithEvents evtTextBox As TextBox

とかって書いて、イベントを紐付ける事ってできるじゃん。

あれをＡｃｔｉｏｖｅＸＤｌｌで実装しようとしたら、
イベントが紐つかないのはなぜ？

オレはわからん・・・。

>>105
「紐付ける」って何だ？
方言か？

>>106
イベントを関連付ける。

その前に、お前に質問の意味がわかるの？

>>102-104
なんかこのスレにお似合いの間抜けなやり取りだなあ
特に104はアホだろうかw

>>104
メール欄見るといいよ。
｢これは餌です。釣られないようにw｣って書いてあるから。

>>103,108
カスめ。　出直してこい。

>>103,108
カス共にヒントをやるよ。

As New とかいてインスタンスが生成できるのは
なんでだと思う？

Cのtypedefが新しい型の定義ではない、という話はわりとよく聞くが、
クラスは型でないって見解は初めて聞いたよw

っていうか、VBのコレクションが組み込みのクラスだって見解も本当かよって気もするが。

>>111
ttp://strawberry.web-sv.com/cgi/up/sgt/nm1567.mp3

>>112
確かにオマイのいう通りだ。
そもそも、クラスはユーザー定義型だ。なさけねぇ・・・

VBのコレクションは、組み込みのクラスだ。
やっと話が分るヤシがいた。

>>113
てめぇ！・・・保存しちゃったよ・・・。

>>112
ttp://msdn2.microsoft.com/ja-jp/library/a1y8b3b3.aspx

なんか103に釣られまくってるな。

・・・・・あ、あれが釣りなのか・・？

も、もしかして、釣られてるのか・・？

目欄にわざわざ . を入れてるところを見ると､最初から釣り目的だったんだろうな
後から本人が出てきて釣りだったと言っても誰も信用しないので
事前に餌として書いているのだという証拠を残しておくって寸法だろう
これで反応しちゃった奴らは､釣られたという事実に対して言い訳出来なくなるし

他人の書き込みをいちいち疑わない普通の人なら「騙される」のは当たり前。
「釣られた」のは言い訳できない事実だが、恥ずかしがる必要は全く無い。

本気で書いてるかどうかなんて本人以外の人がわかるわけないんだから、
どうせ「釣る」ならもっと釣った側も釣られた側も楽しめるようなトリックを仕掛けようぜ。

>>76
なるべく多くの方の意見を聞きたかっただけです。
別の掲示板なので問題ないと思いますが。。。

自作自演でマッチポンプに見える罠ｗｗｗ

可愛そうに

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

お前ら











　　　　　　　　　　　　　　　　　　　　　　休日なのに楽しそうだな！まったく

>>124
デスマーチ乙であります。

別のプログラムにキーボード入力を送るプログラムを書こうと思い
試しにメモ帳に「A」と入力しようとしているのですがなかなかうまくいきません。
SendKeysやkeybd_eventは対象のウィンドウがアクティブでないと使えないのでPostMessageを使おうとしたのですが…、

PostMessage handleOfNotepad, WM_KEYDOWN, vbKeyA, 1
うんともすんともいいません。

handleOfNotepad には事前に取得したメモ帳のハンドルが入っています。
普段は0でメモ帳を起動すると違う値になるのでここは間違えていないと思います。
PostMessageの返り値は1でした。

何が原因なのでしょうか…？

>>126
WM_KEYDOWN送ってるから。

いままでＶＢをほとんど触ったことがなかったんですが今日仕事でちょっと触ることになったのですが
よくわからなかったのでお教えください。
フォームの上のコントロールが移動したりサイズ変更しようとしてもまったくできませんでした。
VSSで管理されていたのでチェックアウトして読み取り専用は編集前にはずしました。
なぜ動かせなかったんでしょうか？
自分で新規作成してフォームに貼り付けたコントロールは動かしたりサイズ変更したりできたと思ったのですが…

>>128
フォームを右クリック

右クリックメニューにロック解除的なメニューか何かがあるのでしょうか。。
すいません今ソースが手元にない（自宅）なので試せないのですが、
明日会社で試してみます。ありがとうございます。

今自宅のＶＢ6でフォーム上で右クリックしたらロックって書いてありますね…
何で気づかなかったんでしょう…ありがとうございます（//▽//）

先生方に、ちょい質問。

現在、VB6.0+VSFlexGrid7.0で開発中。

そこで、VSFlexGridを使ったサンプルソースのあるような
サイト知ってる？

エロイ人、教えて。

お前の態度が気に入らない。

>>133
先生、無知な私をお許しください。


先生、どうか教えていただけないでしょうか？

先生と連呼するのは相手をとても馬鹿にした態度です。
狙って言ってるんだろうけどな。

>>132
製品に各種サンプルが付いてくるじゃん。
グレープシティのサイトにも色々あるし。

わかりました。



おい、この下衆野郎。
どうか教えてください。

つーか､いきなり楽してソースを得ようって態度が気に入らない。
まずはリファレンスで基本を勉強､次に他人の書いたソースで応用を参考に､だろ。

まずは製品サンプルを全部読めよ・・・

時間になったらテーブルファイルに登録されたファイルの
タイムスタンプをチェックしたいんですが
Timerコントロールで5秒おきに、その時間かどうかチェックさせてます
具体的には↓な感じに
DateDiff(n,format(now,"HH:MM"),format(destTIME,"HH:MM")

Timerコントロールで毎5秒チェックってのが気に入らないんですが
リアルタイムにさせる事はできますか？

こういうのもゆとり教育の弊害？>>140

ピクチャボックスに、Line関数を用いて簡単なグラフを描いたのですが
その上に別のウィンドウを重ねると重なった部分だけグラフが消えてしまいます。
どなたかお教えいただけないでしょうか？

鳳描画

ListViewコントロールで詳細表示にしたとき､
アイテム(行)をD&Dで入れ替えられるようにするのはどうすればいいですか？

>>142
再描画しる。

>>144
MouseDownイベントとMouseUpイベントで、行が違う場合に
それぞれの行の情報を入れ替えるみたいな、地道な作業が
ぱっと思い浮かんだ。

もしかしたら、HitTestメソッドとか使わないと、自分の列が取得
できないかも。

ガンガレ。

>>145
MouseDownとMouseUpで､D&D開始位置と終了位置の
行番号を取得する部分まではガンガって作ってみたものの､
26列のSubItemを一つ一つ移動するのはどうかと思い､
質問に来た次第です。

最低でもListItem単位の入れ替えが出来ないものでしょうか?
出来ればFlexGridの
RowPosition(元の行番号) = 移動先行番号
の様に､インデックスのみで操作出来れば理想的なんですが。

>>146
オレが知る限り、いきなり移動はできないと思うが、subitem単位じゃなくて
ListItemという型を使って、行単位ではどうよ？

なんにせよ内部じゃ一個づつ移動してるわけだがな

そもそも、ListView でそんなＵＩはどうかと思うが。

ケツを付ける奴に限って､良い提案すらまともに出来ない件について

>>148
それをいうと元も子もない。


CでWin32Apiかけるようになれば、VBアプリ自体、
裏でちまちまと動いてるのがわかる。


けど、生産性と要員の確保から考えると、
オレはVBはスゴイと思うし、結構好きだ。

>>150
つまりそれがお前にとっての良い提案か。

DropHighlight プロパティって違うの？

すみません。

プロセスIDからそのプロセスが存在するか、
存在する場合にWindowsのハンドルないし、タイトルが
取得できるようなAPIはありますか？

もしくは、APIを工夫して、そのような処理が実現できますか？

>>154

自己レスします。
解決しました。

OpenProcess

Visual Basic 6.0 SP5 を使用しています。
複数のフォーム（画面）があるプロジェクトで、各画面のテキストボックス
などのサイズを変更しています。

変更中の画面を（プログラム実行時のような表示で）プレビュー確認したい
のですが、実行(F5)してしまうと、変更中の画面ではなく特定の画面が表示
されてしまいます。（スタートアップフォームの画面？）

変更している画面をその場でその画面だけを実行時のプレビューとして確認
したいのですが、何か方法はありますでしょうか。

（他の設定類やプログラムなどはできれば変更したくないです。）

>>156
設定もプログラムのいじらないでってことなら、
実際にプログラムを実行していってそのフォームを開くしか方法なさそう。

>>156
よく言っている意味がわかならいが・・・

プロジェクトのプロパティで、スタートアップの設定が
画面になってるんでしょ？

まずは、Sub　Mainからスタートさせることからしない？

それぞれの画面でオマイの言うテキストボックスなどの
変更が発生した場合用にグローバルなプロパティを
コーディング。

次にSub　Mainの中で、オブジェクト変数を書いて
そこに画面のインスタンスを生成。

そして、Call Load(おぶじぇくと)　としてメモリに溜めこんで
各オブジェクトから変更用プロパティを参照して、フラグが
立っている画面だけをShowしてやればおｋ？

>>156
よく言っている意味がわかならいが・・・な・・・

レスどうもです。

>>157
やはりそういう手順になってしまいますか。

>>158
すみません。説明不足なところがありました。

すでに出来上がっているアプリケーションの画面のテキストボックスのサイズ
をマウスでドラッグするなどして変更する、というだけの行為なのですが、
変更する画面が複数あるので、実際の画面を確認するのに実行／開始(F5)
をして該当する画面までたどっていくというのが面倒だなと思い、ショートカット
する感じで変更した画面（編集中の画面）を確認する方法はないものかと質問
したしだいです。
ただ作っている最中の画面の確認をしたい、というだけなのでコード類はいじり
たくないというのがあります。
（ほかの人が作ったものの上、私はVB操作の経験があまりありません。）
それで方々調べてみたのですが、それらしいことが見つからなかったので、ここに
質問させていただきました。
>>156の文面じゃよくわかりませんね。orz

VB6にSP6を充てたのですが、適用できているのかどうかは判るものでしょうか？
バージョン情報の中にはソレっぽい項目がなくて…
VB5のときにはタイトルに[(SP○)]とＳＰ番号がくっついていたのですが今回見あたりません。

別のハードディスクに過去につかっていたＶＢがあり、ＳＰのセットアップ中、そっちのドライブに書き込まれているような
表示もあったりでほんとうに適用できているか不安なもので…

そのへんの情報のググり方のコツでもいいです…　orz

項目無いなら入ってないんだろうさ

>>161
どもです。
ためしにライセンス違反覚悟で、他のドライブが１つしかないＰＣで
全部のセットアップをやりなおしたら、ＳＰ６の表示がありました。

ダメな方は、どうもおかしな環境になっていて、VisualStudio自体が正常にインストール出来てないようでした。
ドライブ指定しようと何しようと、旧ドライブに何か書いた上に失敗って出てる…気付かなかった orz

>>160
なぁなぁ？
オレってば、すごい不思議なんだけどよぉ？


どうして、インストールするだけの作業で失敗すんの？


なぁなぁ？なんで？

ヒント： 無能

>>163
レジストリとかをを変に弄ってたりすると失敗する事もある。

>>164
誰でも出来るインスコ作業を能力で失敗できるなら、それはそれで才能だとおも・・・いたい

仕事用の環境で、ＨＤＤまるコピーで環境移植したんで、ＯＳとProgramFilesフォルダがサブＨＤＤにも居る上に、
窓９８だったのを２ｋに上書きしていて、ＶＢ４が旧と新の両方に、ＶＢ５が新にインストールされている。
セットアップ中のインストール先を見ていると、先のを全部見つけ出して、勝手に分解して失敗してるようだ。

レジストリは触ったことないが、さすがにアホい環境っぽいので、新規購入のほうで使うことにする…＞ＶＢ６
へんなことですまん。

そりゃおかしくなって当たり前だわな
つーか仕事用でプログラム環境構築なら
OSごと全部クリーンインスコすべし

>>160,167

まぁ、その、なんだ。
ガンガレ。

ああ、それでもレスが…ありがたや。ガンガル。

>>168
ＰＣから８ビットＣＰＵまで、扱うものがいろいろ有りすぎるのに、ＰＣ１台しかもらえず各種環境詰め込み…
上位ＰＣに移行するにも、並べて使えるワケでもなくて、いちからやり直すとすざまじく……
ＨＤＤ移植で今回の惨状。

もうじき新規にＰＣを購入してもらえるので、そっちはクリーンインスコでいきまふ。

VB2005で、Windowsユーザを管理するソフト、って作れるでしょうか？
色々調べているのですが、それらしい資料に当たれません。
ご存知の方、方法論でもヒントでもいいので、情報下さいませorz

>>171
お前は１すら読めないのか
氏ねばいいのに

>>171
バッチファイルでさえ作れる。

ＶＢ初心者友の会ってまだやってんの？投稿全然ないけど。

>>174
何か投稿してみりゃいいじゃん。

端末側のＶＢ画面からリモート越しにSunのワークステーションに置いているShellコマンドを
起動したいのですが、シンプルに作れそうなそういうAPI系のコード
ないでしょうか？TELNETとかwinsocとか駆使して自前で作らないと
難しいでしょうか？Vb6（SP3）,OsはXPです。Sunワークステーションはsol.10です。

>>176
俺だったらhttps経由でCGI操作するが。

2chで過去ログ倉庫に入ってるスレの最終更新日(最終書込日)を取得する方法を教えてください。
やりたいことは過去ログの勢い(生存時の勢い)の一覧を作ることです。
勢いは時間当たりのレス数で算出する為､どうしてもスレが立ってから最終書込まで
何ヶ月何日何時間掛かったのかを調べる必要があるのです。
スレが立った日時はスレの番号から､レス数は過去ログ倉庫のsubject.txtから
取得できることがわかり､そこまではコードも書いたのですが､最後のレスの日時だけがわからず行き詰まってます。

●は持っているので●を使う方法でも構いませんが､●でログインする方法とかは全然わからないので､
具体的なサンプルコードでの回答をお願いします。Visual Basic6sp6です。

>>178
2chサーバの負担になりそうだから教えない

> 　一．答えられない質問は無駄に罵倒せずスルー。無理するな。

蜂の巣状みたいな正六角形をpictureboxの中にいっぱい書くには
どうすればいいでしょうか？

>>181
いっぱいとは
一つの六角形を最大の大きさに？
固定の大きさの図形をいっぱい敷き詰め？

三角の組み合わせなんだからパズル的にやってみよう

>>182
レスありがとうございます。
固定の大きさの図形をいっぱい敷き詰めです。

>>183
じゃあ固定の六角形の大きさわかってるんだから敷き詰めるだけでしょ

>>184
正六角形が書けないのですが・・・
どうしたらいいのでしょうか？

>>185
三角形くらい書けるだろ
一辺がわかれば高さもわかるだろ
線と点の交点は習っただろ
三角形を組み合わせれば六角形が書けるだろ
正三角形の角度くらいわかるだろ
HEX描画くらいぐぐれば出てくるだろ
一個の六角形が書ければ重ねるだけでしょ
色々やり方あるでしょ

>>186
三角形は書けますが・・・
その方法で書くと六角形の中に線が出てくるので、
六角形のそれぞれの頂点の座標を指定して書いてみましたが、うまく書けずに縦長になってしまいます。
適当な大きさの正六角形の座標を教えていただけないでしょうか？

>>187
ちゃんと計算した？タイルにするには正六角形+αが無いとめんどくさいよ
重ねる事も考えて作ろうね

LOGOは知らないけどさ
top:
left 30
forward 100
right 30
forward 100
right 30
forward 100
left 30
forward 100
if x < width goto top
以下略

ComboBoxのテキストを右寄せにする方法を教えてください。
スペースで調整するとかではなく､文字寄せ方向の変更です。

>>190
バカだろ。

文字寄せっていうのは、内部で文字位置を調整してる
だけなんだよ。


コンボボックスの場合は、APIで位置を調整するしかない。

ハズレ

>>191
>>191
>>191
>>191
>>191
>>191

だれか教えてやれよ。

>>192,193
もしかして、右から左に読むとか双方向テキストの表示と
勘違いしてない？

MsgBox "WWWWWWW"&vbTab&"bbb"&vbLf&"1111111"&vbTab&"bbb"
タブで揃えようとしてもずれるんですが、
うまく揃える方法はありませんか？
スペースをいくつ足すとよいか計算する方法とか。

>>196
それ、おもしろい宿題じゃん！
再帰なんかで書いたら、結構格好いい関数できると思うよ。

オレも、夜眠たくなったら、ちょっとコーディングしてみるよ。

>>196
プロポーショナルフォントだと
スペース使用で揃えるのは難しいと思うよ

>>196
最大文字幅を10とした場合ね

maxlen = 10
txt = "(スペース10個)"

len = strlen(in_txt)
mid (txt, maxlen - len, in_txt)

脳内コードだが動くと思う
in_str の長さが10 以上だとエラー起こす

つかこれぐらい考えれ

<span>に、MsgBoxで使われてるフォントやサイズを指定して、
テキスト入れて、width取り出して、、、で出来ないかな。

>>199
的を外してる。

>>196
たしかに、プロポーショナルフォントだとインデントがそろわない。

う〜ん。　難しいねぇ〜。

多分、ぴったりインデントは無理かもしてないけど
なんとなくインデントを合わせる事はできるのかもしれない。

プロポーショナルフォントだと文字ピッチが一定かすら怪しい

95 2000 XP Vによっても違うし。

MsgBoxに似せたフォームを作ったほうが楽だろ

>190
ComboBox内のEditのハンドルを取得してSetWindowLong、かな？
Win32APIスレあたりが適当かと。

>>192,193
カスめ。

オレはお前らのような落ちこぼれが死ぬほど
嫌いだ。

お前らはカスなんだよ。

>>206
カス

オ

固定ピッチフォントを使えばいいだけじゃん。

インデントの奴、今年の基本情報の問題だったなｗ

>>209
プロポーショナルフォントでなければ、そうなんだけどなぁ


詰が甘いな

Windows2k+VB6です

Form1, Form2, Form3 とあって、Form上のボタンを押すと子Formを
Modalで開いています。

子Formの最小化Btnを押したら、子Formを含む全てのFormを最小化
したいのですが、とりあえず子FormのForm_Resizeイベントに親Form
のWindowStateを設定するように書いてそれっぽく動くようになりま
した。

ただ、親Formを最小化した瞬間に、子Formのアイコンが消えてしまっ
て、最小化状態から元に戻せなくなるという現象が起きています。

Windowsの制約っぽい気もするのですが、これを回避する（親Formを
最小化しても、Modalで開いた子Formを非表示にさせない）方法は
ありますでしょうか？

>>211
タスクバーからって子フォームが消えるって事？



ちなみに、そんなレベルの話でWindowsの制約云々と判断するにはまだ早くね？

>>211
モーダルで子フォームを開いているのに
なんで、親フォームが触れるんだよ・・・

>>213

>211
>子FormのForm_Resizeイベントに親FormのWindowStateを設定するように書いて

>>211
モーダルは絶対使わない方がいい。

>>214
なるほどねぇ。。。


なんてマヌケなUIなんだ。
Form2がShowされるときにもリサイズイベント通るんじゃないの？

それは現象というより、どうみても仕様通り動いてるだけ。

というか、やめとけ。
どうしても実装したいなら、子画面をActiveXのexeか、通常のexeにして、
プロセスIDをわけて、個別にAPIでシコシコ挙動を制御すれば実現可能だけど・・・

恥ずかしいプログラミングだｗ

VB6.0 SP3 WinNT
long型の変数に浮動少数点（1.1）などの値を入れた場合
値は自動的に四捨五入されるようですが、この動作はプログラムで
保証されているのでしょうか？

dim temp as long = 1.1
deboug.print temp

1
-------------------------
dim temp as long = 1.5
deboug.print temp
2

プログラムがどうやって保証するんだ

>>218
回答する知識がないのならレスすんな。



俺も知らんが。

>>218
あらし、氏ね

>>217
まず根本的に勘違いしてる。四捨五入はされない。
1.5は2になるが、2.5も2になる。

暗黙の型変換では内部でRound()されてる。詳しくはRound()のHelp参照。
Round≠四捨五入なので注意。

Longに小数が入る方が怖い。
勝手に四捨五入されるのも怖い。

基本中の基本だからねぇ・・・

カレンシーの保証する小数桁数も3桁くらいじゃなかったっけ？
浮動少数は誤差が発生するし。

難しいよね〜

整数及び、0.5（=1/2）、0.25(=1/4)、0.125(=1/8)、0.0625(=1/16)、・・・とか
これらの和は桁数が足りる限り不動小数点数で表現しても誤差が発生しないので
安心して使ってくれ！ｗｗｗ
（実装がマトモならリテラル・文字列からの変換でも大丈夫なはず。）

ちなみにリテラルからの変換は文字列からの変換と同じく
10進→2進変換なんで、その逆変換ともども
単純な表現誤差以外に結構厄介な問題がある。
（浮動小数点演算の黎明期、確か1960年代頃にはその話題で
変換の精度についてアメリカ数学会に論文が書かれたくらい厄介な問題だ。）
心配なら整数で初期化してから割り算して値を作れば丸め誤差は入るけど、
より厄介な10進2進変換の誤差は紛れ込まなくなるのでオススメ。
（桁数が足りてる限り整数の10進2進変換には誤差がなく、表現の誤差もからね。）

>>222
浮動小数点型に誤差が発生するのは基本中の基本だよ・・・


悲しくなるよ・・・。

Dim s As Single
Dim i As Long
　　For i = 0 To 9
　　　　s = s + 0.01
　　Next i

カナシス・・・。
業務系は浮動小数は極力使わないよ・・・

HTMLが表示出来て､軽いコンポーネントを教えてください。
WebBrowserコンポーネントは､重いというか起動が遅すぎて使えません。
ローカルのhtmlファイルを読ませるだけなので､多機能は求めません。

WindowsXP SP1､Visual Basic6 SP6の環境で使えるフリーのものでお願いします。

先にメモリにLOADして読み込ませとけばよくね？

>>226
それ自体に時間を食ってしまうため､今回別コンポ探しに来ました。

>>225
ＶＢを使うなら、「〜が遅い」ってのはハードの増強で解決するのが基本。
WebBrowser が遅すぎて使えない、ってどんなスペックだよ一体。

>>228
Xeon5150x2、メモリは2GBです。
WebBrowserを起動させようとすると結構待たされます。

>>229
どのくらいの時間待たされるの？

>>228
スペックはAthlon64 FX57にDDR2-677 2048MBです。
スペックはそんなに低くないと思いますが､これ以上スペックを上げて
WebBrowserの起動が速くなっても､他のも速くなるから
相対的にWebBrowserの遅さが目立つのは変わらないと思います。
人間の感覚は絶対性より相対性の方が濃いですから。

とにかく今回はコンポーネント探しをしております。
代用法や基本を教えていただけるのはありがたいですが
失礼ながら求めているものとは違うので､引き続きコンポーネントの回答をお待ちします。

ある程度検索しましたが、それらしい内容を見つけられなかったので質問します。

VB4.0でADOを使用してデータベースへ接続するように記述して、
デバッグしたところうまく動いたので、Exeファイルを作成してみたのですが、
何度やっても「ご迷惑をおかけしております…」というようなメッセージが出て強制終了されてしまい
Exeファイルが作成できません。

いろいろやってみたところ、キーワード"New"がよくないように思いました。
Set cnt = New ADODB.Connection
この行を削除したらコンパイルできたので。

下記のように、宣言時にNewをつけてみてもだめでした。
Dim cnt As New ADODB.Connection

解決法などあればよろしくお願いします。

無い。
次の質問どうぞ。

>>231宛
>>232ｽﾏｿ

>>231
どんだけ高性能なマシンだよ・・・。


オレの会社の開発マシンなんか、ﾄﾞﾄﾈﾄだとコーディングに
文字が追いついてこないようなウンコマシンだけど
それでもWebBrowserでサクサク動く。


処理、間違えてるんじゃない？

>>232
開発マシンとexeを実行しているマシンは同一？


しかも、NEWでコンパイルエラーという事は、参照設定
してないんじゃないの？

>>233
ちょっと面白かったです。

>>236
Exeを実行しているマシンというのがどれを指すのかちょっとわかりませんが、
自分のPCでVB起動してコード書いてコンパイルして、ってやってまして
それで今回はExeファイルすら作れないという状況です。

参照設定はできてると思います。
オブジェクトブラウザから見れますし、デバッグ(F5押してやるやつ…)では
たしかに動いていましたから。

>>232
CreateObject でやるとか。

>>233
無いと答える必要はない。
何故なら悪魔の証明にあるように､無の証明はまず出来ないからだ。
一個人の｢無い｣という回答は､｢俺は知らない｣と同義。

>>225
> HTMLが表示
→テキストでおｋ

> ローカルのhtmlファイルを読ませる
→ファイル直読みできるメソッドアリ

つ　RichTextBoxコントロール

○ 回答者の心得
　一．答えられない質問は無駄に罵倒せずスルー。無理するな。
　二．代用法を強制しない。

ルールを守れない質問者より､ルールを守れない回答者の方が多いスレってのも珍しいよねw

ここの1はルールというほどの強さは無いさ
あえて心得を外すほどの回答は無いようだが。

>>237
せめて、F8。

Option　Explicitもつけて。

> ここの1はルールというほどの強さは無いさ
その割には質問者には.NETはスレ違いだの､ググれMSDN読めと強制していたような･･･

> あえて心得を外すほどの回答は無いようだが。
いや､そうでもない。

常識的に考えても.NETはスレ違いだろう

常識的に考えても答えられない質問だからって罵倒するのはダメだろう

>>245
ググルのと、MSDN をそれらしい言葉で検索するぐらいのことしてから
質問するのは常識だと思うけど。

質問者自身のためにも。

>>248
あのー､それを俺に言われても･･･。
>>1に書かれていることはルールではないと言ってるのは>>243だよ。
俺はそれを受けて､ルールじゃないと主張する割にはルールのように強制してるな､と返しただけ。

俺自身は.NETはスレ違いだと思うし､先に検索するのを含めて
｢○ 質問者の心得｣も｢○ 回答者の心得｣も､それぞれが守るべきルールだと思ってる。

>>249
頭の固い人だな、気持ち悪い

>>238
CreateObjectでコンパイルできました!
ありがとうございます。
しかしなぜNewではだめだったのか…わかりかねます。

>>244
Option Explicitもつけてましたし、F8も使っていました。
ですが、コンパイルできませんでした。


もう一つ質問させてください。MSDNで一応調べましたけどわかりませんでした。
またVB4.0でADOなのですが、Recordsetオブジェクトは
ActiveConnectionプロパティ、CursorTypeプロパティなどで
Open前に値の設定ができます、よね。
その設定をしているにもかかわらず、

[RecordSetオブジェクト].Open
だと「引数が足りません」と、エラーになります。
.Open "テーブル名",[Connectionオブジェクト],…
と、引数で値を設定してあげると問題なく開きます。
Connectionオブジェクトでも、同じような状態です。

開くだけならそれでいいのですが、DataGridを使用したいのです。
そのためにはRecordSetオブジェクトを開く前に
[RecordSetオブジェクト].Properties("IRowsetIdentity")=True
を記述しないと表示されないようなので、
RecordSetオブジェクトのOpen前に値の設定をしたいのです。


長くなってすみませんが、よろしくお願いします。

Visual basic 6.0を用いた RS-232Cｹｰﾌﾞﾙを用いたシリアル通信についてご質問いたします。

いま、PCとある機器を繋いで１分間隔でデータを要求し、それに対して 返信をもらうようなロガー機能を持たせたシリアル通信プログラムを
作っているのですが、知識が薄いために困っています。使用機能はMScommです。

具体的には、文字列データ約50個を１分おきに送信して （このﾀｽｸはタイマールーチンに入れます）機械に要求し､
それに対して応答が来れば受信→ファイルに書込み→ 最終的には時刻と機械から取り込んだ複数の数の関係を
グラフにしたいと思っています。 困っているのは受信のｺｰﾄﾞの記述ですが、本ｹｰｽにおいては､
ｲﾍﾞﾝﾄﾄﾞﾘﾌﾞﾝ形式で（Rthreshold=1,Sthreshold=1等と設定して､） １文字ずつ受信→イベント発生→１文字データ読取
とさせることが厳しい（と思う）いうことです。
ソース的には �@〜�Cまでのﾀｽｸを１分周期で行いたいです。できれば ｳｫｯﾁﾄﾞｯｸﾞ機能もつけたいですね。
�@メインルーチンをタイマーにして、MSComm1.Output="G aa bb cc dd ee ff "
のように、相手機械にaa,bb,cc,dd,eeという変数を要求（ちなみに
Ｇは相手側機械に要求するというｺﾏﾝﾄﾞ） �A要求に対する受信を待つ→aa=1.01, bb=2.02, cc=3.03, dd=4.04, ee=5.05
のような値が以下のような感じで相手から返ってくる "1.01 2.02 3.03 4.04 5.05"
�Bここで１文字ずつ受信ごとにイベント発生ではなく送信完了したら、受信待機を始めて受信バッファに
たまったものを一度で書き込む�@〜�Bを４回繰り返す（データが大量にあるため、４回にわけないといけない）
�Cファイルに書込み

ＶＢシリアル通信にお詳しい方､どのようなｺｰﾄﾞにすれば良いかお教え下さい。相当困っています。
以上､よろしくお願いいたします。

>>250

>>251
そもそも何故ＶＢ４・・・
まさかＯＳはＮＴ４なの？

>>252
人に話すのと人に説明するのが同じ人間って言われないか？
読みづらいんだが…しかも激しく

○ 回答者の心得
　一．答えられない質問は無駄に罵倒せずスルー。無理するな。

○ 質問者の心得 
　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。

>>257
無駄に罵倒する理由にはならない。
ルールは守るべきだ。

＾＾；；；；；

XPで6.0を使用しています。
ある特定の範囲内にドロップされたImageコントロールを、
特定の座標に移動させたいのですが、どのようにすればいいでしょうか？

>>252
割り込み使うならSAMPLESにあるVBTERM参考にすればどうよ
あるいは送信して受信完までループさせて待つ手もある

>>261
ありがとうございます。VBTERM発見しました。
これを元に考えてみます。

VSBでHTTPSのサーバーにアクセスしてファイルをDLしてくるスクリプトを組んでるのですが、
全ての処理をバックグラウンドで行いたくて、ダイアログ等の表示が無い様にしたいんです。
IEのオブジェクトを使うと、どうしてもSSLの認証ダイアログが出てきてしまうのですが、非表示で処理する方法って無いですか？

IEのオブジェクトを使わない。

VBわからんけど不通にソケットでつないでリクエスト投げればファイルくらい取れるんじゃね？

かなりいろいろ調べたのですが方法がわからないのでここ
で質問させてもらいます。
テキストファイルを読み込んでその中の最後から５行ほどだけを
を表示する方法を教えてください。

>>266
全部または最後の五行分が余裕で入るくらいの情報を読み込んで後ろから改行コードを探す

すみません質問なんですが
ttp://up2.viploader.net/pic/src/viploader354556.bmp
Command1を押してText1に入力した文字を変数にいれて
Command2を押すとLabel1にその変数が出力されるという問題なんですが
変数のところがよくわかりませんよろしくお願いします

Dimを先頭に

>>268
問題って、専門学校か何か？
VBを勉強する学校とかあるのかな？
教えるから、教えてよ。


Dim ABCD　AS long

を
Private ABCD AS string

として、しかも一番上に書くとおｋ

>>263
どうせスクリプトならjavaスクリプトの方が使えるぞ。


SSL認証きいてくるなら、しょうがないような気がするんだが


自分でサーバたてればねぇ

Private Sub General()
Private ABCD As String
ABCD = Text1
End Sub
上記のようにジェネラル欄にいれたんですが変数がCommand2押しても
だめなんですがどうすれば後コマンド1-2部分は合っていますか？

>>269 Dim をどこにいれればいいですかね
>>270 都内のコンピュータ情報系みたいな専門学校です　

>>272
Private ABCD As String
Private Sub General()

>>273 先生できました、ありがとうございます禿感謝

>>274
すげぇかわいい。


今は打算でしか、物事を考えられないオレも
昔はそうやって自分で勉強したんだって記憶が
蘇ってきた・・・

>>275 なにそれ気持ち悪いんだよ禿

＿|￣|○ il||li

>>271
そうなんですよねぇ。相手が取引先の鯖なので手が出せないんですよ。
仕方が無いので、OpenSSLのソース使ってCで認証だけ通す事にしました。
ActiveX化されたものもあるみたいなのですが数十万オーダーでしたので、自作します。
ありがとう御座いました。

>>223
ちゃんと勉強してからいいなはれ。

世間ではよく誤解されているようだが
浮動小数点数にはいつモヤモヤと誤差があるわけじゃない。
値によってはちゃんと誤差なく表現が出来る。
まず小数部の桁数（ビット数）が足りている限り整数は全く誤差なく表現できる。
また(1/2)^nは10進表現で言えば(1/10)^mに当たる特別な数字群で
2進数の浮動小数点表現でも桁がずれる（つまり指数部の数字が変わる）
だけなので整数と同じく全く誤差なく表現できる。
（指数部が桁あふれしない限りな。）
そしてこれらの数の間の加減算は桁あわせした際に桁数が足りている限り
完全に正確に行われる。
さらに乗除算の場合は指数部の桁数が足りている限り完全に正確に行われる。
つまり浮動小数点数も注意深く使えば全く誤差のない表現と演算が可能だ。

そしてこの性質と
一部のプロセッサでは専用ハードウェアによってlongを使う整数演算より
浮動小数点演算のほうが早いということを生かして大量の整数演算する際に
わざわざ浮動小数点演算を利用するという研究が実際にある。

>>279
どうでもいいから、>>224を試しに実行してみればいいじゃん。

>>270
Dimのままじゃだめなんですか

>>281
オレに聞いてるv(´∀｀*v？？？

>>266
５行分のバッファを用意して、最初から順番に読んで格納し、
６行目は一行目のバッファに上書きして・・・ってやればいい。
最後迄読めば、最後の５行分が残るでしょ。

ありです
できました

>>260ですが、何かいい方法はないでしょうか？

>>285
俺はルールを守っている。

>>260
ある範囲内に
Imageをドラッグドロップした座標4点が含まれてるか調べる。
含まれてたらImageを特定の座標に移動。

>>287
オマイの回答と>>260の質問と、何が違うのか教えてくれｗ

>>288
ソース無しで答えるにはこれが精一杯だと思うｗ
まぁ書いてることは変わってないけど・・・
書いてるとおりの事をソースで書けば良いだけなのになぁ・・・

○ 回答者の心得
　一．答えられない質問は無駄に罵倒せずスルー。無理するな。

>>287
わかりました、ありがとうございます
もう少し頑張ってみますね

VBでHashtableの機能を持つ型ってある？

せいぜい、コレクションくらいしか、今のところ知らない。
ArrayListすらVB6.0にはないよね？

ないなら、自作しかないのかな？

CollectionかDictionaryが使えるんとちゃうん？

>>293
Dictionaryは初めて知りました。
自作なんかより全然速そうで素敵です。

アリガ�d

ＶＢ６で、イメージの部分に順番に図を表示していきたいのです。
それと、リストボックスで選択したものをファイルに書き込みたいのです。
以下のようにやってみたのですが、うまくいかずどうしていいか分かりません。
教えていただけないでしょうか。

Public dirl, angele As String
Dim fname(100) As String
Public cot As Integer

Private Sub form_load() 'フォームが開いたときの処理
Dir1 = "C:\Documents and Settings\karalab\My Documents\ito\図形\0" '表示イメージを読み込みするファイル
For i = 1 To 100
fname(i) = Str(i) + ".jpg"
Next
End Sub

'スタートの処理
Private Sub Command1_Click()
cot = 1
Image1.Picture = LoadPicture(Dir1 + fname(cot)) 'イメージを表示
End Sub

'次へを押したときの処理
Private Sub Command2_Click()
Image2.Picture = LoadPicture(Dir1 + fname(cot)) 'イメージを表示
End Sub

Private Sub Command3_Click() '「END」ボタンを押した場合
End
End Sub

DTPickerってEnterキーでもKeyDownイベント起きるよな？
BreakPoint仕掛けてるのに一向に通ってくれないよ。
Spaceとか他のキーならOKなのにEnterだけ効かん。orz

カレントユーザーのマイドキュメントのパスを取得する方法ってある？

>>296
普通はくるね。

>>297
環境変数でTMPあたりから取得したパスを加工するとか
あらかじめ、環境変数に入れとくとかじゃだめ？

>>296
Command Button のどれかをデフォルトボタンにしてるのでは。

>>297
環境変数の USERPROFILE を参照するとか。

>>297
Dim obj As Object

　　Set obj = CreateObject("WScript.Shell")
　　Debug.Print obj.SpecialFolders("MyDocuments")

>>295
ソースが汚ねぇ

それに Str(i)ってどこで宣言してる？
Option Explicitを入れてコンパイル汁。

あとdirlの宣言ではバリアントになってるけどいいの？

>>298
�d。だよねぇ。
別のフォーム上ではちゃんとKeyDown発生してる・・・orz

いろいろ、ありがとうございます。
今直してみて、２つディレクトリを使って
「次へ」を押したときにDirから＋１ずつ足してずを表示していきたいのですが＋１しかされず、
その後、足されていかないのですがどうしたらいいでしょうか？

Private Sub Command1_Click()
Dir1 = "C:\Documents and Settings\karalab\My Documents\ito\図形\21\" '表示イメージを読み込みするファイル
Dir2 = "C:\Documents and Settings\karalab\My Documents\ito\図形\11\" '表示イメージを読み込みするファイル
For i = 1 To 100
fname(i) = Mid(Str(i), 2) + ".jpg"
Next
cot = 1
Image1.Picture = LoadPicture(Dir1 + fname(cot)) 'イメージを表示
Image2.Picture = LoadPicture(Dir2 + fname(cot))
End Sub
'次へを押したときの処理
Private Sub Command2_Click()
Image1.Picture = LoadPicture(Dir1 + fname(cot + 1)) 'イメージを表示
Image2.Picture = LoadPicture(Dir2 + fname(cot + 1))
End Sub

書いてる通りに動いてる

>>304
まさにソースに書いてある通りに動いてる。
cotの値はいくら？

前のレスで質問させていただいたものは解決することが出来ました。
申し訳ありません。
あと、もうひとつ質問なのですがリストボックスで選択したものをファイルに書き込みたいのです。

以下のような、書き方では書き込むことは出来ませんか？

Open "C:\DATA\OrderData.csv" For Append As #2
Write #2, list1.Text, _
list2.Text, _
list3.Text, _
Close #2

ピクチャーボックスで
Picuture1.Heightでは高さが変わるんですが
Picture1.ScaleHeightではピクチャーボックスの大きさが変わりません
値の取得はできるのですが…

大きさの方はフレームの分も考えながらHeightで設定しなければいけないのでしょうか？

すいません、分かりました、
ScaleHeightに値を設定すると、ユーザー設定の座標系になるんですね。
ScaleHeight=100 としたら、上から下までを100とするオリジナルの座標系になると
いや、分かりにくい書き方ですけど自己解決

VBでプログラミングの世界に入ってみようと思うのですが
初心者におすすめの入門書、参考書を教えてください。

>>310
いまさら6.0をはじめるのか？
やめとけよ

>>311
ぐわ、6.0以前スレでしたか・・・
誤爆でした。すみません。

VBでアイコンをリソース登録したんだけど、それを使おうとするとｴﾗｰになるのは何で？
WAVファイルをリソース登録して鳴らす方法は色んなサイトにあるのに、
アイコンの使い方書いてるサイト見つけられなかったんだけど。

>>313
画面にワーク用のイメージリストコントロールをはる。
そこにリソースから取得したアイコンをAddする。
最後にイメージリストのItemをExtractIconメソッドでアイコン化して
そこから、使いたい場所へ使う。

なんてのはどうよ？

エクセルVBAで作ったフォームをVB6にインポートしましたがデザイナというフォルダ内にセットされました。
コントロールを追加しようとするとFormデザイナでは使用できません云々のエラーとなってしまいます。
プログラム自体は問題なく走るんですが、コントロールの追加は一切無理です。コントロールの削除や移動はできます。
やり方が悪いのか、これで当たり前なのかすらわからない状況です。
先輩諸氏の皆様どうかご指導ください。

>>314
ありがとやってみる。
ずいぶん前に諦めたからｴﾗｰの内容や関数名忘れてるけど、
どちらにせよ記憶に無いやり方みたいなんでやる価値ありそうだ。

http://www.vector.co.jp/soft/win95/util/se072729.html
作者の方へ

VisualBasicの学習者たちのためにソース公開してください
（公式サイトが消滅しているようなので、ここにカキコします）
((((；ﾟДﾟ)

>>317
BREGEXP.DLLじゃないか

ソース公開の強要って､､､w
頭おかしいんじゃないの？

エクセルVBAで作ったフォームをVB6にインポートしましたがデザイナというフォルダ内にセットされました。
コントロールを追加しようとするとFormデザイナでは使用できません云々のエラーとなってしまいます。
プログラム自体は問題なく走るんですが、コントロールの追加は一切無理です。コントロールの削除や移動はできます。
やり方が悪いのか、これで当たり前なのかすらわからない状況です。
先輩諸氏の皆様どうかご指導ください。

当たり前。
VBAとVB6は多くの部分で互換性があるが､完全互換ではなく
その互換性がない部分の一つがVB6のフォーム対VBAのユーザーフォームの部分。

まあテキストエディタで開いて少し修正すれば使えないこともないから
やり方が悪いとも言えるかも知れないが。
どう修正するかはググればわかるから自分で調べること。

>>321
厳しくも暖かいご意見ありがとうございました。
散々ググッて見たのですがググり方が足りなかったようです。
これからググりまくってみます。

>>322
エクセルでそれを見ながらＶＢでゼロから作った方が早い。

VB6 SP6をWindowsXP Home Edition SP2で使用しています。
作成されたアプリケーションをエクスプローラから見ると、ファイル名の下に
登録ユーザー名が表示されてしまうのですが、これを変更することはできないのでしょうか？

ユーザー名ではなく所属でした。。。お願いします。

変更できます。

http://pc8.2ch.net/test/read.cgi/tech/1159388733/64　VB6 ＞＞＞＞＞＞＞＞＞＞ VB.NET
http://pc8.2ch.net/test/read.cgi/tech/1152851763/91　VB vs Delphi ＠夏厨2006
http://pc8.2ch.net/test/read.cgi/tech/1106538237/766 【VB.NET】VS2005 選ぶならどっち？【C♯】
http://pc8.2ch.net/test/read.cgi/tech/1161250878/375 VB.NET質問スレ (Part18)
http://pc8.2ch.net/test/read.cgi/tech/1159446575/23　VB6とVB2005って全然違わない？
http://pc8.2ch.net/test/read.cgi/tech/1151836157/21　CとVB.NETってよく似てるよな
http://pc8.2ch.net/test/read.cgi/tech/1147201705/40　VB.NETのとんでもない欠陥に気づいた
http://pc8.2ch.net/test/read.cgi/tech/1134464762/104 VBで作られた有名なアプリって何？
http://pc8.2ch.net/test/read.cgi/tech/1121006960/123 VB vs Delphi ＠夏厨2005
http://pc8.2ch.net/test/read.cgi/tech/1099112351/441 C++VB 初めてプログラム板来た初心者ｽﾚ delphi hsp
http://pc8.2ch.net/test/read.cgi/tech/1151412015/989 VBA総合質問スレッド
http://pc8.2ch.net/test/read.cgi/tech/1054356121/781 ●EXCEL・VBAの勉強法教えてスレ●

他のスレで>>317を見かけたので､試しにVB系のスレ回ってみたら.NETやVBAのスレにまで…

そんなヒマがあったら腹筋でもしろよ

というか､その情熱をVBの勉強に向ければ､
他人のソースなんて当てにしなくても､コード掛けるようになるのでは？

VBAスレから誘導されました。よろしくお願いします。

ExcelのVBAでDOM使ってXML書き出すプログラムを作ってます。
で、標準の文字コードがUnicodeのため、XMLファイルもUnicodeで出力されてしまいます。
これをShift-JISで出力したいのですがどうすればよいのでしょうか？
DOMリファレンスで見た限りメソッドにもそれらしいものは見当たらなかったのですが。。

ごめん思い出した。
LoadResDataで「実行時エラー326　識別子101のリソースが見つかりません」て出るんよ。
定数使用してLoadResData(101,vbResIcon)もダメ、（vbResIcon=1）
MSのサポートページにあるLoadResData(101,3)もダメ。
WAVは"CUSTOM"と文字を打つのでLoadResData(101,"ｱｲｺﾝ")とやったがダメ。全角半角両方。
上記はすべて同じエラーになる。
WAV同様"CUSTOM"なら取り込める。
でもバイトデータだから、これをまたアイコンにするんだったら意味わからん。
リソースファイルにアイコン入れるまではいいが取り出せないのは何なんよ…

>>331
基本からなってねぇ

LoadResPicture(リソース番号, vbResIcon)

>>332
ありがとう。でもvbResIconて数値いくつ？
変数が定義されてませんてｴﾗｰになるんで…

>>333
>定数使用してLoadResData(101,vbResIcon)もダメ、（vbResIcon=1）
　　　　　. .... ..: : :: :: ::: :::::: :::::::::::: : :::::::::::::::::::::::::::::::::::::::::::::
　　　　　　　　　 Λ＿Λ . . . .: : : ::: : :: ::::::::: :::::::::::::::::::::::::::::
　　　　　　　 　/:彡ミ゛ヽ;）ー､　. . .: : : :::::: :::::::::::::::::::::::::::::::::
　　　　　　　 / :::/:: ヽ、ヽ、 ::i . .:: :.: ::: . :::::::::::::::::::::::::::::::::::::::
　　　　 　　 / :::/;;: 　 ヽ　ヽ ::ｌ　. :. :. .:: : :: :: :::::::: : ::::::::::::::::::
　　￣￣￣（_,ノ ￣￣￣ヽ､_ノ￣

>>334
ごめんこ今やったらできた！
LoadResPictureか、そらLoadResDataでググッても使い方出ないわけだ。
額にアイコン張り付けてコンビニ逝ってくるよ。ありがとう！
ε＝ヽ（ ﾟ逝ﾟ）ノ

For Each...Next ステートメントには DoEvents みたいなのありましぇんか

Microsoftは、未だにVB6を使い続けるユーザー達のために、
Formの既定インスタンス機能や、IDEの挙動をVB6に似せるなど、
移行支援の為の対策をVB2005にたくさん盛り込んだわけだ。
特に、Formの既定インスタンス機能は、改悪と言って過言ではないと
自他共に認めるであろう。
MSは、そこまでしてVB6ユーザーを「救おう」としている。

さて、ここでVB6ユーザーであるスレ主が、
VB2005を使ってみて、居ても立ってもいられずに立ててしまったこのスレッドを見てみよう。

http://pc8.2ch.net/test/read.cgi/tech/1159446575/
＞ [VB6とVB2005って全然違わない？]
＞ 1 ：デフォルトの名無しさん ：2006/09/28(木) 21:29:35
＞ まずcommandがbuttomになってて
＞ ？？
＞ 線引こうにもlineが認識されない
＞ なんなの？

私たちはまだまだVB6ユーザーを甘く見ていたようだ。
救いようがないとはまさにこのことではなかろうか。
VB6ユーザーはVB2005に対して、完全同一な物を求めているようだ。

新しいものへのチャレンジ精神があまり備わっていないVB6ユーザーのために
MSは色々な対策を行った。
しかし、いまだにVB6を使い続けているVB6ユーザーには、
新しいものへのチャレンジ精神など微塵も備わっていなかったのである。

このようなVB6ユーザーを生み出したのはMSである。
VB6からVB.NETへと革新的に進化させた結果、このようにいつまでもVB6を使い続けるクズどもが発生したのである。
もはや救いようのないVB6ユーザー。しかしそれでもMSは、最後までこのVB6ユーザー達を見放してはならない義務があるのだ。

まあVB6の提供もサポートも再開するし、どうでもいい
VB.NETはVisualBasic.NETじゃなければいいんでね？

>>337
ＶＢ．ＮＥＴなんて全く必要ないんだけど。
ＶＢでやりたい事は全て出来る。

クラサバなら尚のことね。
ウェブにする必要があるのはごく一部の業種のわずかな部分のみ。

（＾ω＾）　勉強を怠った技術者はグチばっかりでとても困るぉ

>>332
なんかアイコンが潰れて表示されたorz
ググってみたけどLoadResPictureはまともアイコン扱えないの？
イメージリストコントロール使うしか無いのかな。でもツールバーにないし…

FPDへのアクセス中はアイコンがウィンドウみたいなの（デフォルトアイコン？）に
変わるのは仕様ですか？

>>341
ドドネトごときで「勉強」とか言っちゃってるよ、この人。(w

物事を「ごとき」で語る人間には「ごとき」程度のものしか見えていない。（ー人ー）ﾅﾑﾅﾑ

「ごとき」程度のものしかないだろ。

なんか変なものでも見えてるのか？

>>346
ここはお前の日記帳じゃぁないんだよ。

>>346
あんた、損してるよ。

>>326
方法を教えてほしいです・・・

>>349
プロジェクトのプロパティで設定後コンパイル。

>>347
日記帳に >>346 みたいな事は書かないよ。
バカじゃないの？ (w

>>348
別に俺は、ドトネトを極める匠じゃないから、
自分のやりたいことができれば、それで十分。

>>351
突っ込みどころ満載で、ちょっとおもしろいｗ
話しようぜｗ

何より、日記帳つけてんの？ｗｗ

>>350
プロジェクトのプロパティのそれらしいところを全て弄ってみて駄目だったので諦めていたのですが
windowsを再起動したらフォルダ上の表示が変わりました・・・
どうもコンパイルしなおしたファイルを、以前のファイルと同じものとOS側で認識していたみたいです。
お騒がせしてすみませんでした。

>>352
突込みどころ満載と言う割には、突っ込めないチキン君には用は無いよ。

（＾ω＾）ﾉｼ　ぃょぅ　だぉ！

>>354
いよぉ！351！ツッコミ入れられてもわからないんだなｗ

日記帳つけてんだろｗｗ
認めちまえよｗｗ

>自分のやりたいことができれば、それで十分。

普通は自分のやりたい事なんてしてる訳じゃなくて
仕事で必要だから、クライアントにVB使うなり、サーバーにC使う
なり、XPでのサポートを得るためﾄﾞﾄﾈﾄ使うなりしてるだけｗ

ウケルｗｗ　オバカ丸出しだぞｗｗ

>>356
ハイハイ、君の言う通りだね。

満足した？

>>357,354,351,346,344

お前、何にも引き出しがない、つまんないヤシだな。
会話も成立しない。

飽きた。もう、来るなよ。

>>358
>>357

>>295
>>304
>>307

どこかで見たクソソースだと思ったら
http://f57.aaa.livedoor.jp/~jeanne/bbs/faq.cgi?mode=al2&namber=8438
これか。

なんていうか、氏んだほうがいい。

アイコン使用の効率化を考え、LoadResPictureなどを使おうとした結果です。
1・imageで一個一個貼りつけ…現状。特に問題はないがダサい感じ
2・LoadResPicture…画像が崩れるのでダメ
3・imagelist…メモリ不足多発、EXEサイズ増大で良いこと無し
4・imagelistをアイコン10個ごとにインデックス分け使用…メモリ不足でコンパイル不可

3〜4はもちろんimageはすべて削除してる。2もほとんど削除し、転送用の数個のみ。

LoadResPictureで画像潰れないテクニックないすかねえ？

>>361
EXEにリソース埋め込んだら、意味がないだろ・・・・

普通はリソース用のDLLを作る。

お前のようなバカは、リソースなんか使うなといういい例。

馬鹿に馬鹿が突っ込む。
このスレらしい光景だねw

>EXEにリソース埋め込んだら、意味がないだろ
なんでだよw

>>363
本気で聞いてるのか・・・？

>>363
コイツはﾄﾞﾄﾈﾄ板にも入たリアルキティ。
救いようがない。

ほっとけ。

>>364-365
>>363 じゃ無いけど、おまえらのほうがよっぽど心配だよ。

EXEに埋め込みたい理由は、単に実行に必要なファイルを一つだけにしたいってだけなんですよ。

アイコンをカスタムリソースとして登録して、LoadResDataで
バイト型配列に取り込んで、テンポラリファイルに書き出してから
それを画像ファイルとして読み込む、というやり方もあるようだけど、
それじゃなんか釈然としない。
アイコン形式を使いたい動機は、PaintPicture一回でマスク付きで画像を描けるから。
一枚のでかい画像にアイコン画像全部並べて、マスク画像も作って
二枚の画像を持つのが無難なんだろうか。
PaintPicture二回必要になるけど、速度変わるかな？

六角形を書いてその内部を塗りつぶすプログラムを作っているのですが・・・
1つずつ塗りつぶす色を変える場合、下のプログラムでは、どうすればいいのでしょうか？
宜しくお願いします。

Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As Long, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function PaintRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Const LOGPIXELSX = 88 ' Logical pixels/inch in X
Private Const LOGPIXELSY = 90 ' Logical pixels/inch in Y
Private Const ALTERNATE = 1 '交差したリージョンは塗らない
Private Const WINDING = 2 '交差したリージョンも塗る

Private Sub PaintRegion(Dest As Object, ParamArray P())
' PaintRegion
' 多角形を塗りつぶす関数
' 使用方法:
' PaintRegion 描画オブジェクト, X1, Y1 , X2, Y2, ...
' 描画オブジェクトには、Form, PictureBox, Printerなどが使用できます。
' 座標はTwips単位で渡します
' 塗りつぶし色は、描画オブジェクトのFillColorプロパティの値が使用されます。

Dim Point() As Long '座標(ピクセルに変換した値)
Dim hRgn As Long 'リ−ジョンのハンドル
Dim i As Long, nPoint As Long
Dim PPTX As Single, PPTY As Single

ReDim Point(0 To UBound(P))
nPoint = (UBound(P) + 1) / 2

PPTX = GetDeviceCaps(Dest.hdc, LOGPIXELSX) / 1440
PPTY = GetDeviceCaps(Dest.hdc, LOGPIXELSY) / 1440
For i = 0 To nPoint - 1
'ピクセルに変換
Point(i * 2) = CLng((P(i * 2) - Dest.ScaleLeft) * PPTX)
Point(i * 2 + 1) = CLng((P(i * 2 + 1) - Dest.ScaleTop) * PPTY)
Next i

Form1.Picture1.FillColor = RGB(255, 0, 0)
'塗りつぶし
Form1.Picture1.FillStyle = vbFSSolid

hRgn = CreatePolygonRgn(Point(0), nPoint, WINDING)
PaintRgn Dest.hdc, hRgn
DeleteObject hRgn
End Sub

Private Sub Command1_Click()
'正六角形
Form1.Picture1.Line (433, 0)-(0, 250), &HFF0000
Form1.Picture1.Line (0, 250)-(0, 750), &HFF0000
Form1.Picture1.Line (0, 750)-(433, 1000), &HFF0000
Form1.Picture1.Line (433, 1000)-(866, 750), &HFF0000
Form1.Picture1.Line (866, 750)-(866, 250), &HFF0000
Form1.Picture1.Line (866, 250)-(433, 0), &HFF0000

Form1.Picture1.Line (866, 750)-(433, 1000), &HFF0000
Form1.Picture1.Line (433, 1000)-(433, 1500), &HFF0000
Form1.Picture1.Line (433, 1500)-(866, 1750), &HFF0000
Form1.Picture1.Line (866, 1750)-(1299, 1500), &HFF0000
Form1.Picture1.Line (1299, 1500)-(1299, 1000), &HFF0000
Form1.Picture1.Line (1299, 1000)-(866, 750), &HFF0000
'塗りつぶし
PaintRegion Picture1, 433, 0, 0, 250, 0, 750, 433, 1000, 866, 750, 866, 250, 433, 0
PaintRegion Picture1, 866, 750, 433, 1000, 433, 1500, 866, 1750, 1299, 1500, 1299, 1000, 866, 750
End Sub

Private Sub Command2_Click()
End
End Sub

長くなったけど・・・
宜しくお願いします。

>>370
Form1.Picture1.FillColor = RGB(255, 0, 0) 'これ

以前作ったやつの余計な部分削ったやつ
動作確認してないけど原理はあってる筈だから適当に修正しな
動作すればいいレベルのコーディングだ
つーか↑の6角形の座標固定値か

Dim SX As Integer, SY As Integer
Dim PI As Single, HexR As Integer
Dim tmpX As Integer, tmpY As Integer
PI = Atn(1) * 4
HexR = 48
SX = 200: SY = 200
For i = -30 To 330 Step 60
fMain.Line (SX, SY)-(SX + Sin(i * (2 * PI / 360)) * HexR, SY + -Cos(i * (2 * PI / 360)) * HexR), vbBlack
Next i
tmpX = SX + Sin(30 * (2 * PI / 360)) * HexR
tmpY = SY + -Cos(30 * (2 * PI / 360)) * HexR
For i = 0 To 5
fMain.Line (tmpX, tmpY)-(SX + Sin((i * 60 + 90) * (2 * PI / 360)) * HexR, SY + -Cos((i * 60 + 90) * (2 * PI / 360)) * HexR), vbBlack
tmpX = SX + Sin((i * 60 + 90) * (2 * PI / 360)) * HexR
tmpY = SY + -Cos((i * 60 + 90) * (2 * PI / 360)) * HexR
Next i
tmpX = SX + Sin(-90 * (2 * PI / 360)) * HexR
tmpY = SY + -Cos(-90 * (2 * PI / 360)) * HexR
For i = 0 To 5
fMain.Line (tmpX, tmpY)-(SX + Sin((i * 60 - 30) * (2 * PI / 360)) * HexR, SY + -Cos((i * 60 - 30) * (2 * PI / 360)) * HexR), RGB(128, 128, 128)
tmpX = SX + Sin((i * 60 - 30) * (2 * PI / 360)) * HexR
tmpY = SY + -Cos((i * 60 - 30) * (2 * PI / 360)) * HexR
Next i

fMain.FillStyle = 0
fMain.FillColor = RGB(160, 160, 160)
Call ExtFloodFill(fMain.hdc, SX - 2, SY + 1, fMain.Point(SX - 2, SY + 1), 1)
Call ExtFloodFill(fMain.hdc, SX + 0, SY + 1, fMain.Point(SX + 0, SY + 1), 1)
Call ExtFloodFill(fMain.hdc, SX + 2, SY + 1, fMain.Point(SX + 2, SY + 1), 1)
Call ExtFloodFill(fMain.hdc, SX - 2, SY - 1, fMain.Point(SX - 2, SY - 1), 1)
Call ExtFloodFill(fMain.hdc, SX + 0, SY - 1, fMain.Point(SX + 0, SY - 1), 1)
Call ExtFloodFill(fMain.hdc, SX + 2, SY - 1, fMain.Point(SX + 2, SY - 1), 1)
fMain.FillStyle = 1
fMain.FillColor = &H0

どこの、学生のクソソースだよｗ


よく、新人の世話するけど、専門卒のソースが
いつもそんなクソソースだったりするｗ

誰しも初めからうまかったわけじゃないさ

相手のレベルにあわせたんじゃないか？

アイコン画像結合してマスクも作ってみたけど、PaintPicture二回にした以上に処理重たくなったorz
EXEサイズは極端に小さくなりはしたけど、
結局アイコンを一個一個imageコントロールで貼るのが最適という結果になってしまった。
ttp://www.h3.dion.ne.jp/~hohoi/DCK_test.lzh

みろ。バカだった。
こいつをマンセーしたヤシらもやっぱりバカだった。

>>371
レスありがとうございます。
そこを弄ると全体の色が変わるのですが・・・
1つずつ塗りつぶす色を変える場合はどうしたらいいのでしょうか？

>>372 -373
レスありがとうございます。
どこをどう修正したらいいのかわからないです。
ぐぐったら6角形の座標固定値のやり方があったので・・・

>>377
GIFにするのとアイコンリソースにするの、どっちが得か？ってーのは直ぐに計算できるんではないかと。
ついでにGDIのBitBlt使いやがれ

>>368
暇だったから多角形を塗りつぶすクラスを作ってみたよ。
っていうか、そんな読む気もおこらないウンココードは捨てた方がたぶん吉だよw
'######## Form1 ########
Private mPolygonDrawer As New cPolygonDrawer
Private mMouseDownPoint As Win32API.POINTAPI
Private Sub Form_Load()
　　Me.ScaleMode = vbPixels
　　With mPolygonDrawer
　　　　.hdc = Me.hdc
　　　　.NumOfAngle = 6
　　End With
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　mMouseDownPoint.X = X
　　mMouseDownPoint.Y = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Dim r As Long
　　Dim red As Byte
　　Dim green As Byte
　　Dim blue As Byte
　　
　　red = Rnd * 255
　　green = Rnd * 255
　　blue = Rnd * 255
　　Call mPolygonDrawer.SetFillColor(red, green, blue)
　　With mMouseDownPoint
　　　　r = Sqr((X - .X) ^ 2 + (Y - .Y) ^ 2)
　　　　Call mPolygonDrawer.Draw(.X, .Y, r)
　　End With
End Sub

'######## 標準モジュール Win32API ########
Declare Function CreateSolidBrush Lib "gdi32.dll" _
　　　　(ByVal crColor As Long) As Long
　　　　
Declare Function CreatePen Lib "gdi32.dll" _
　　(ByVal fnPenStyle As Long, ByVal nWidth As Long, _
　　 ByVal crColor As Long) As Long

Declare Function SelectObject Lib "gdi32.dll" _
　　　　(ByVal hdc As Long, ByVal hgdiobj As Long) As Long

Declare Function DeleteObject Lib "gdi32.dll" _
　　　　(ByVal hObject As Long) As Long

Declare Function Polygon Lib "gdi32.dll" _
　　　　(ByVal hdc As Long, ByRef lpPoints As POINTAPI, ByVal cPoints As Long) As Long

Public Type POINTAPI
　　X As Long
　　Y As Long
End Type

'######## クラスモジュール cPolygonDrawer ########
Public hdc As Long
Private mDegreeOf1stPoint As Double
Private mLineColor As Long
Private mFillColor As Long
Private mPenHandle As Long
Private mBrushHandle As Long
Private mNumOfAngle As Integer
Private Const PI As Double = 3.1415923
Private Sub Class_Initialize()
　　Me.NumOfAngle = 3
　　Me.DegreeOf1stPoint = 90
　　Call SetFillColor(255, 0, 0)
　　Call SetLineColor(255, 255, 255)
End Sub
Private Sub Class_Terminate()
　　DeleteMyBrushIfNeed
　　DeleteMyPenIfNeed
End Sub
Public Property Let NumOfAngle(N As Integer)
　　If N > 2 Then
　　　　mNumOfAngle = N
　　End If
End Property
Public Property Let DegreeOf1stPoint(deg As Double)
　　mDegreeOf1stPoint = -deg
End Property

Public Sub SetLineColor(red As Byte, green As Byte, blue As Byte)
　　Const PS_SOLID As Long = 0
　　
　　mLineColor = red * 1 + green * &H100& + blue * &H10000
　　Call DeleteMyPenIfNeed
　　mPenHandle = Win32API.CreatePen(PS_SOLID, 1, mLineColor)
End Sub
Public Sub SetFillColor(red As Byte, green As Byte, blue As Byte)
　　mFillColor = red * &H10000 + green * &H100& + blue
　　DeleteMyBrushIfNeed
　　mBrushHandle = Win32API.CreateSolidBrush(mFillColor)
End Sub
Private Sub DeleteMyPenIfNeed()
　　If mPenHandle <> 0 Then
　　　　Win32API.DeleteObject (mPenHandle)
　　　　mPenHandle = 0
　　End If
End Sub
Private Sub DeleteMyBrushIfNeed()
　　If mBrushHandle <> 0 Then
　　　　Win32API.DeleteObject (mBrushHandle)
　　　　mBrushHandle = 0
　　End If
End Sub

Public Sub Draw(X As Long, Y As Long, r As Long)
　　Dim pt() As Win32API.POINTAPI
　　Dim prevPenHandle As Long
　　Dim prevBrushHandle As Long
　　
　　If hdc = 0 Then Exit Sub
　　pt = GetPointArray(X, Y, r)
　　prevPenHandle = Win32API.SelectObject(hdc, mPenHandle)
　　prevBrushHandle = Win32API.SelectObject(hdc, mBrushHandle)
　　Call Win32API.Polygon(hdc, pt(0), mNumOfAngle)
　　Call Win32API.SelectObject(hdc, prevBrushHandle)
　　Call Win32API.SelectObject(hdc, prevPenHandle)
End Sub
Private Function GetPointArray(X As Long, Y As Long, r As Long) As Win32API.POINTAPI()
　　Dim pt() As Win32API.POINTAPI
　　Dim i As Integer
　　Dim rad As Double
　　Dim deltaRad As Double
　　ReDim pt(mNumOfAngle - 1)
　　
　　deltaRad = 2 * PI / mNumOfAngle
　　rad = 2 * PI * (mDegreeOf1stPoint / 360#)
　　For i = 1 To mNumOfAngle
　　　　pt(i - 1) = GetPoint(X, Y, r, rad)
　　　　rad = rad + deltaRad
　　Next
　　GetPointArray = pt
End Function

Private Function GetPoint(X As Long, Y As Long, r As Long, rad As Double) As Win32API.POINTAPI
　　Dim pt As Win32API.POINTAPI
　　
　　pt.X = X + r * Cos(rad)
　　pt.Y = Y + r * Sin(rad)
　　GetPoint = pt
End Function

名前空間を意識して、モジュール名にドットをうって
メソッドを呼んでるところといい、そのクラスといい、
なかなかの腕だけど、なんの仕事してれば、そんな
描画系を思いつくの？？

業務系の俺には、カスリもしない世界だったから、
ちょっと興味をもった。

> なかなかの腕だけど
どこがだよw

>>388
別に言うのは勝手だけど、お前の脳みそでは
どれだけ振り絞っても、>>381以上のソースは
書けないと思う。

>>388のソースに期待ｗ

>>389
見苦しい…

息苦しい

もっと短く簡潔に書いてくれ。
貴方よりずっと莫迦な誰か他の人がメンテする事を考えて。

>>383
> Private Sub Class_Terminate() 
> 　　DeleteMyBrushIfNeed 
> 　　DeleteMyPenIfNeed 
> End Sub 
軽く殺意が涌いた

382〜を見て､すごいなーとは思わないけど､綺麗だなーとは思う。
こういう上手くはないけど綺麗なコード書ける人と一緒に仕事したいもんだね。

>>394
テラワロスｗ

なんで、誉める前に必ず「〜けど」って一言多いんだよｗ

うははｗ　ネクラの臭いがぷんぷんするｗ

>>381
レスありがとうございます。
早速、自分用にアレンジして使わせていただきますね。
ありがとうございます。
あと、ウンココードは捨てますねｗ

ペンとブラシの寿命がフォームと同じなのが気になる貧乏性

>>396
バグがある（SetLineColorの処理とPIの値）のと、あと数値の型が適当だったり
ちゃんとキャストしてなかったりするのでその辺は修正してやってね。

>>397
やっぱりあんまりよくないのかな。
Win32のGDI関数ってほとんどやってことないから。。
Win9x特有の制限に引っかかる可能性があるとかないとかどこかで読んだ気もするけど。

>>387
ヘッポコのマイコンプログラマですよw
PCのアプリはここ数年.NETばっかりなんで、どうしてもVB.NETチックなコードになっちゃうね。

VBSでMSXML2.DOMDocumentを使う場合のについての質問です。

<test hoge='ABC'/>
<test hoge='BCD'/>
<test hoge='CDE'/>

の中から､hoge属性値に C を含むものを列挙したい場合､
XPathではどのように記述するのでしょうか？

部分一致ではなく完全一致であれば､
/test[@hoge='C'] で取得できるのですが､
ワイルドカードはノード名や属性名には使えても､属性値には使えないようですし､
/test[contains(@hoge,'C')] もcontainsの部分で｢不明な方法です｣というエラーになります。

全ノードに対してループを回し､正規表現などで条件分岐すれば､結果的には問題有りませんが
XPathで出来ることならXPathでやりたいので､ご存じの方が居ましたらご教示ください。

データ型で大きな数字が入る順番は
integer<long<single
と習ったんですが、single型って6桁を超えると
それ以下の桁が０に簡略化されますよね。
longに入らないぐらい馬鹿でかい数を使う場合で
頭から数えて6桁以下の数字を省略しないで計算したい場合
どうすればいいんでしょうか？

>>400
有効桁数６桁”以下”なら、言っている通りsingleでいいと思うのだが

('A`) あ、もしかして"馬鹿でかい”のと”有効桁が大きい”の違いが分かってない･･･？

すいません判り難かったみたいなので
例えば
１２３４５６７８９０１２３４５６７８９０＋１２３４５６７８９０１２３４５６７８９０＝２４６９１３５７８０２４６９１３５７８０
を出したいと思った場合
longには入らないのでsingleを使うと
１．２３４５６７×１０＾１９＋１．２３４５６７×１０＾１９
こんな感じで解釈されますよね。
すると結果が２．４６９１３４×１０^１９になりますよね、結果的に２４６９１３４０００００００００００００
になっちゃって一番上と数値が変わってきちゃうじゃないですか、
これを何とかしたい、というわけなんです、正確に計算したいんです。

ひんと: 多倍長演算

「最近のCPUはfloatもdoubleとして処理するからfloat使っても速くはならないし、
　精度も落ちるから巨大な配列を確保する等の事情が無ければdoubleを使ったほうが良い」
って聞いたけどVBだとどうなんだろう。

>>403
とりあえず
> 頭から数えて6桁以下の数字を省略しないで計算したい場合
では、ないんだな ('A`)
とりあえず２０ケタを扱える型はdecimal型だ
詳しくはヘルプを参照

逆質問だが、下のような計算も考慮に入れているのか？
　0.12345678901234567890+12345678901234567890
この場合、誤差を最小に抑えるため数値上では小数以下の桁がほとんど丸められるわけだが、
これすらも正確に保ち下のような数値として扱いたいのなら、
　12345678901234567890.12345678901234567890
vbの標準型では無理で、文字列型でAdd(String v1, String v2)みたいな演算を自分で仕組むしかないぞ

decimalの使い方
Private Sub Form_Load()
    Dim d1 As Variant
    Dim d2 As Variant
    d1 = CDec("12345678901234567890")
    d2 = d1
    Debug.Print d1 + d2
End Sub

>>405
VBというよりWindowsの動くx86のCPUでは、
基本的に80bitの拡張倍精度で演算される。

とりあえず>>400には「仕様」を明確にしてもらうことが重要なはずだと思うが。。
テキトーな回答を下す前に。

>>400
人様に質問するのに「馬鹿でかい」とかあいまいな言葉を使うなよ。
そんなんでわかるわけないだろ、誰もエスパーじゃないんだから。

扱う数値は整数？実数？
実数の場合、必要な精度は？
扱う数値の範囲（最大値・最小値）は？

>>409
詳しく書いてるように聞こえるけど、
実は何も考えてないだろ？

>>403
Currency（綴りあやふや）は？

>>411
少なすぎますです

>>400
ふぅ・・・。で、お前は何がしたいの？

バカなら、もう来るなよ。みんなが真剣に考えたりするじゃないか。

真剣なら、自分で型をつくればいいだけの話だろ。

>>399もお願いします。

すまん、俺にはわからない。
XPathのことはXMLのスレ（WebProg板にある）にいったほうがわかる人間がいると思う。

VBの場合、スコープがグローバルの参照型の変数は
参照が変わった場合、前の値はメモリから消えるのでしょうか？

Public str as String

のstrに
　str = "A"
　str = "B"
とした場合の"A"です。

何かのタイミングで一斉に消えたりするのでしょうか？

よく知らんけど、適当な時にガーベージコレクトしてるんじゃない？

知らないのになぜ答えるんですか？

>>416
何故そんな事を知る必要があるの？

○ 回答者の心得
　一．答えられない質問は無駄に罵倒せずスルー。無理するな。
　三．回答する上で必須ではない情報をむやみに聞き返さない。

テメエのモラルはテメエで勝手に守ってろってw
俺はそんな糞みたいなルールには死んでも従わないね。

○ 質問者の心得
　四．荒らしは相手しない。

○ 回答者の心得
　四．荒らしは相手しない。

>>415
XMLスレも考えたのですが､COM版のMSXML2.DOMDocumentに限定した話をしたかったので
まずはこちらにきました。Web上で紹介されている関数が使えなかったりと､COM版の仕様が他とは違うようなので。
もうしばらくこちらで粘って､知ってる方が居ないようなら向こうに移動してみます。

ということで引き続きよろしくお願いします。

以降のスレには

○馬鹿の一つ覚えのようにテンプレをコピペしない

っていう項目が必要になりそうだな。
そうすれば>>422のようなスレになんの貢献もしない馬鹿を雪隠詰めにできるよw

○馬鹿の一つ覚えのようにテンプレをコピペされるような書き込みをしない

>>416
俺は"B"を代入した瞬間"A"は消えるもんだと思っている。
なぜなら、VC++で同じことをBSTRに対して行おうとするとそういう風になるから→きっとVBもそうだろうという短絡的発想。

知らないのになぜ答えるんですか？

>>427
（ <●>　<●> ）つ　わかってます

わかってないことを証明する悪魔の証明はできないのはわかってます

>>428
あなたはわかっていません
freeした直後にAはメモリ上に存在します
また直後ではAの上にBを置かれることはありません
OSの中まで追ってからにしなさい

> OSの中まで追ってからにしなさい
> OSの中まで追ってからにしなさい
> OSの中まで追ってからにしなさい
> OSの中まで追ってからにしなさい
（ <●>　<●> ）

>>429のＶＢは変数を宣言するごとにGlobalAllocしてるんだな

>>430
むしろこっちだろ
> Aはメモリ上に存在します
> Aはメモリ上に存在します
> Aはメモリ上に存在します

マジレスするとＶＢ６までは参照カウンタ方式のＧＣで、参照が無くなったタイミングで即回収され再利用可能になる。
循環参照があった場合は開放されない。同じ参照カウンタ式のＣＯＭと相性がいい。

>>433
> 循環参照があった場合は開放されない。
('A`) ”されない”？

>433
>416 はVB6の話だろ？
Stringはオブジェクト型じゃないから代入は値のコピーが作られるだけだぞ

>>435
そうだった。Stringは別だな。
433はClassの話だと思ってくれ。

ようわからんがstrに"ABCDE"が入ってて、そこへ"XYZ"が"入った場合、
メモリ上"XYZDE"になって、"DE"はあるタイミングまで残る、って話ではないの？
"XYZ"の代わりに"1234567890"が入ったらメモリ上は"12345"になって、
新たなメモリ空間に続きの"67890"が入るように思うんだけど。
GCで前者の"DE"みたいなのが詰められ、後者みたいなのが
"1234567890"と連結されんでしょ？

>>437
壮大な勘違いだな。

ＶＢ自体の開発者しか知らない事を議論するのは無意味＆無駄。

>>439
メモリについて「無意味＆無駄」としか考えられないようだから
ﾌﾞｰﾋﾞｰ厨とバカにされるんだよ

>>440
ＶＢが中で何やってたって、それを変更する事は出来ない。
つまり、お前が莫迦で阿呆という事だな。

TextBox1〜3とCommand1の4つのコントロールがFormに貼ってあります。
初期状態では、TextBox1, 3とCommand1だけ、Enabled=Trueです。

TextBox1の入力内容を検査して、OKならTextBox2のEnabledをTrueにした
上で、そこにFocusを移動させたいのですが、どうすればよいでしょうか？

TextBox1のValidateに
　TextBox2.Enabled=True
　TextBox2.SetFocus
と書いてもTextBox2にFocusが遷移しません。

>>442
どうすればもこうすればも、そんな糞仕様のUIはナンセンスでしょ。ダメダメでしょ。

MSDN読んだ？
Validateっていつ発生するのよ。
矛盾することしようとしてるんだからうまくいくはずがない。
だいいち少しはユーザビリティってものを考えてくれよ。

>>442
へっへっへ…
Enable=TrueにしたあとDoEvents書いちゃいなよ。
いいぜぇ、DoEventsは。

>>444
しかし、諸刃の剣でもあるな。

簡単な問題になると、嬉しそうに湧いてくるなｗ

>>446
何ツンデレ？普通に当然のことじゃん。

変数は必ずしも宣言と合わせて初期化しないといけませんか(.NET)
Dim hoge As Integer = 0

>>448
vb.netさんでは宣言時に規定の初期値に初期化されます
やりたきゃやってみろ

>>443
キミ、学校でも頭悪いとか、「○○って話が通じネーよな」とか良く
言われるでしょ？言われるでしょ？

型による。
値型と参照型では違う。

参照型は初期化しないと、ぬるぽりますよ

>>446
お前自身の事か？

スゴイ事思いついたヾ(ﾟ∀ﾟ)ﾉ

VB6.0でも、ﾕｰｻﾞｰｺﾝﾄﾛｰﾙを使えばｸﾗｽの継承が実現しない？！

空っぽのﾕｰｻﾞｰｺﾝﾄﾛｰﾙにﾒｿｯﾄﾞ書いて、継承時はそれを同じように
空っぽのﾕｰｻﾞｰｺﾝﾄﾛｰﾙに貼り付け。

画面やｸﾗｽでそのﾕｰｻﾞｰｺﾝﾄﾛｰﾙを動的に生成して、ﾒｿｯﾄﾞだけを呼べば
ｸﾗｽの継承が実現してない？？

それ継承じゃないしw
すくなくともそれじゃあね。
VBには目に見えないFormクラスがあって、全てのフォームはそれを継承していると
みなせる、って話ならわかるけど。

まあ当たり前だけどVB6でも継承そのものは可能なんだよね。
ただ言語レベルでサポートしてないだけで。
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpdnprogvbnet/htm/chapter5.asp

>>454
フォームの継承は、理屈はそうだけど、自分のメソッドも何もできない
からね〜


委任による継承かぁ〜・・・

実際は継承しているわけではなくて、継承チックに見えるように
ベースのクラスを呼んでいるんだよね

でも�d�d。

Implementsによるインターフェースの実装は知っていたけど、継承できない時点で
あんまり役にたたないよね。強いて使うなら、雛形として、このメソッドを使いなさい、かな〜

つCOMでも勉強･･･するべきだったけどﾓｳｲｲや

継承なんて出来なくても、ＶＢで何でも書けるが。

>>457
んなこと聞いてないし（＾ω＾）

>>457
そう、つっかかるな。
オレもVBが好きだ。


ただ、お前ほどのヤシなら、たとえばフォームで継承が
できたら、便利だって事がわかるだろ？

ただ、それだけの事だよ。

継承できなくても、VBは本当にRAD開発では最高の
言語だよ。

>最高の言語だよ。

（　＾ω＾)　・・・。

RAD開発では

> 継承できなくても、VBは本当にRAD開発では最高の
> 言語だよ。
そんな餌にクマー(AA略

VBで、ﾄﾞﾄﾈﾄでいう、RemoveHandlerのようなイベントを削除する
メソッドはありますか？？

もう一つ、クラスのインスタンス間で共有できる
Shared、Staticのようなものはありますか？

>>463-464
さようなら

VB6.0でDeclare Functionを使って、
個々に関数を呼び出せるDLLを作成するには、
どうすればいいのでしょうか？

>>466
Cで？

VBでです。

できない。

了解です（´・ω・｀)

参照するとか、CreateObjectするとかじゃ
だめなのかという疑問。

使うのがVBだけではなく、
クラスを使えない言語からも参照できないといけないのです。
なので、Declare Functionで呼び出せればと思ってました。

他言語から参照するような処理をVBでは出来ないほうが
いいからかもね〜。

だって、圧倒的に遠回りで遅いから。まあ、仕方ない。

了解です。
とりあえずVbでクラスを作って、
それを呼ぶためのDLLをVCかDelphiで作ります。
かなり面倒ですけど、VB側の処理は変更できないので、
この方法でやってみます(｀・ω・´)

VB6でサスペンドを拒否する記述がしたいのです

サブクラス化してWndProcでWM_POWERBROADCASTを拾うことはできました
CならこのあとReturnでBROADCAST_QUERY_DENYを返せば良いだけですが
VB6ってどのようにしたら良いのでしょうか
.Netでの方法ならたくさん見つかったのですが・・・

難しい問題はお任せします

>>442
>TextBox2にFocusが遷移しません

わかった、これってGUIの組み方でいつも問題になるところだよね
これって言語によらない共通の問題かなと（>>443さんの指摘は意味はあるかと）

結局、キー入力による「Enter」だけでなく、
マウスでほかのコントロールに移ろうとしてときにも
強制的にTextBox2にfocusしたいってことだよね

確かにVaridateｲﾍﾞﾝﾄにそれを書いて>>444の対策してもうまくいかないんだよね

そうなると、ちょっと無理気味だが、今TextBox１で編集した直後だよってフラグを
モジュールレベル変数で立てておいて、別の任意のコントロールをクリックしてしまって
そこにFocusが移っても、そこから対策するしかないんではないかと思う

あるいは、次の入力部を強制するためには、次のコントロール以外は
Focus可能なものは表示しておかないようにしておくとかしないといけないわけで
それであれば、結局昔のDOS時代のキーボードオンリーの入力使用に近い
形にするしかないかと

以前にやったことのある対策は、そのGotFocusｲﾍﾞﾝﾄ・ﾌﾟﾛｼｰｼﾞｬでそれを参照して
フラグの値に応じて強制的にFocusを飛ばすﾌﾟﾛｼｰｼﾞｬをコールするようなもので
一応はうまく動きはしまたが、注意点はあとでバージョンアップとかしてコントロール
が増えたときにそこも修正追加が必要なことかな

WndProc = BROADCAST_QUERY_DENY
Elseで条件以外はWndProc = CallWindowProcして
でEnd Functionしたらいけたっぽいんですが
これでいいのでしょうか？ｗ

>475
SysInfoコントロールのPowerQuerySuspendじゃ駄目か？

>>475
Cでつくった自作の関数呼べばよくね？


>>476
べたなフォーカス遷移として、コントロールのEnabledを
一時的にFalseにして、勝手に次のtabIndexにフォーカス
を移したりする。

コントロールを送って、移したいオブジェクトまでフォーカスを移す。

関数名はせっとふぉーかすでらっくすでおｋ

>>479
>コントロールのEnabledを一時的にFalseにして
>勝手に次のtabIndexにフォーカスを移したりする

Enterキーだけで送るときとかにはそういう機能もあったんですね
やってみました

この>>442でのやっかいな問題は、フォーム上の他のコントロールがEnabled=True
状態で存在しているときに、そこにマウスでヒットされると、Validateｲﾍﾞﾝﾄでは
対応できないということかと思いまして（実際にやってみましたがうまくいきません）
それで>>476かと考えました次第でした

>>475
拾えたのなら、Ｃと同じ事するだけでしょ。
つーか、どうやって拾ったんだ？

>>480
Sendkey でTABｷｰ送りなよォ
ぐひひ

>>466
vb6のリンカかコンパイルオプションで出力できる

>>464
モジュールに書くしかないんでね？
さも無きゃ一つのインスタンスを特別扱いするとか

>>463
vb6は内部でcomのdispatchインタフェイス使ってるので、
明示的に相手の参照はもってません
諦めろ。

>>485
詳しいね。

COMの世界は正直、わからん

VB6でフォームにチャートを表示させ、
チャートの折れ線グラフにマウスを当てると
その箇所の値（X軸、Y軸）がテキストボックスに
セットされる。

雰囲気的には株のリアルタイムチャートっぽいものを
実現したいのですが、これが可能なActiveX等を
ご存じでしたら教えてください。

チャート上のマウスのMOVEイベントでその位置の
値が拾えれば良いのですが、Microsoft Chartとかは
不可能でした。

>>487
Formなりグラフィックメソッドとマウスイベントがあるコントロールなら
普通に何でもいいのではないかと

>>487
グレープシティの製品にそんなのなかったっけ？

ＶＢで作成するＤＨＴＭＬについて質問させてください。
コマンドボタンを押すと、テキストエリアに文字が表示されるというシンプルなソースなんですが、
ローカルでＨＴＭＬを表示すると問題なく作動するのですが、サーバにＵＰするとコマンドボタンを
押しても何もおきません。
ＸＰｐｒｏ＋ＶＢ６．０で作成してます。
理由がお分かりの方、教えて下さいm(__)m

>>490
んんんんん、ぬおおおぉぉ〜〜〜ッッッ!!!!

超能力を駆使してみたんだが分からんかった。
スマンのぅ。

shell関数を使って、Javaのプログラムを呼び出そうとしていますが、
Java実行中、VB処理はそこで一時停止したいと考えています。
しかし、shell関数は非同期であるため、VB処理の一時停止が出来ませんよね？
こういった場合、どのように対処すればよいのでしょうか？

>>490
全然分からないので一般的なことしかいえないけど、
セキュリティとかそういうのはちゃんと設定してあるの？
何か参考資料を一つ手元においてやってみた？

>>492
VBとWin32APIで行くなら
つ　http://homepage1.nifty.com/MADIA/vb/API/VBDOUKI2.htm

ScriptingHost使っていいなら
つ　http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/refer/lesson9.htm

など

>>490
今日は朝から酔うちもうた

ぶーびーすくりぷとと、HTMLを使ってるということでAF？いや、FA？

よくわからんけど、HTMLに
<noscript><p>だめだこりゃ</p></noscript>
と書いて、表示されるようなら、だめなんだろうね

つーか、そーすをかいてみそ。酒のつまみをまってるぞ

>>495
おはようございます。
ソースは下記のとおりです（ＶＢによるＤＨＴＭＬを試したかっただけなので）。

Private Function SubmitButton1_onclick() As Boolean

TextArea1.Value = "お前は既に" + _
Chr$(10) + Chr$(13) + "死んでいる"

End Function

よろしくお願いしますm(__)m

>>496
<HTML>
<HEAD>
<TITLE>TEST</TITLE>
<SCRIPT LANGUAGE="VBScript">
Function Submit_onclick()
    TEXTAREA1.Value = "お前は既に" + vbCrLf + "死んでいる"
End Function
</SCRIPT>
</HEAD>
<BODY>
<P>
<TEXTAREA id=TEXTAREA1 name=TEXTAREA1></TEXTAREA>
<INPUT id=submit1 type=submit value=Submit name=submit1 onClick="Submit_onclick()">
</P>
</BODY>
</HTML>
ここまでを test.htm で保存、サーバーにあげてIEで開くと動くぞ。
もしかしたらお前さんの思ってるDHTMLと違ってるかもしれないが一般的にはこれのこと。

>>496
う〜・・いい気分だ。
ビールが無くなったから、嫁に買いにいかせなくちゃ・・・


ぶーびーのアプリケーションはVBが実行できる環境じゃないと
だめなんだな
ちょっとオレも勘違いしてたよ。ダイナミックHTMLと思ってた。

ソースを見る限り、VBのデザイナでDHTMLを書いたんだよね

サーバーにぶーびーのランタイムがインストールされていないと
だめなんだよ

>>498
鯖にＶＢのランタイムが入ってないと駄目なんですか○|￣|＿
勉強になりました。
ありがとうございましたm(__)m

VB6のランタイムが必要なDHTMLって何なんだ。別になにかあるの？
>>490 が結局何をしたかったかよくわからねぇ。

492です。

>>494
即ﾚｽありがとうございました。
win32APIで行こうと思います。

>>500
おれも、最初は普通のHTMLにスクリプトを組み込んでいると
思ったんだよ。
で、スクリプトを外出しにでもして、パスが違うんじゃマイカと。

でも、>>496を見せてくれた瞬間ひらめいたね


VBのスタート→新しいプロジェクト→DHTMLアプリケーション

もう、すっかり酔いがさめた。ビールでも買いに行こう・・・。

DHTMLプロジェクト初めて使ってみた素人プログラマには話がさっぱりわからんかったばい

dim (300,30)
でどのくらいメモリ使用すます？

お札300枚は幾らでしょう、というのと同じ愚問だな

だな、石300個で重さいくらでしょう？ともいえる

Dim a(300, 20) As Variant
でいいですか？

>>502
＞VBのスタート→新しいプロジェクト→DHTMLアプリケーション 

あった、あった思い出した。これはサーバーにはIISやVBはいらないが、
ディストリビューションウイザードでCABファイルを作る必要がある。
クライアントがIE必須でVB製のActiveXをインストールしてしまう優れもの。署名なしでは使用できない。
JavaScriptやVBScriptのかわりにObjectタグのActiveXを使わせる仕掛け。
今のIEだと署名があっても警告でまくりでとても使えたものじゃない。
当時は警告無視すりゃ動いた気もするが、とても使えねぇと思って以降忘却のかなただった。

>>507
ＭＳＤＮをVisualBasic6に関して、”データ型の概要”で調べれ

i = Time

iに１秒足すには記述はどうすれば良いでしょうか？

i=i+1でいいんでね？

('A`) timerと間違った
dim i as date
i=time
i=dateadd("s",1,i)

>>512
ありがとう〜。

i=time
iに1:16:18が入ったとして、
これの秒を00に書き換えたいのですが、記述はどのようにすれば良いでしょうか？
後々 i + #12:01:00 AM# > time の処理をするので、Formatを使うと都合悪いです。

1:16:00に１分たした物を、timeと比較するような感じです。

>>514
> これの秒を00に書き換えたいのですが
dim i as date
i=timeserial(1,16,18)
i=getHourMinute(i)

function getHourMinute(byval d as date) as date
getHourMinute=timeserial(hour(d),minute(d),0)
end function

> 後々 i + #12:01:00 AM# > time の処理
まさかこのままじゃないよな？
double型の演算になるはずだから、精度が犠牲になるかも知れんぞ？
if datediff("s",i+#12:01:00 AM#,time)>0 then ...
か？

もしかしなくてもDB板ネタかもしれませんが教えて下さい。
SQLServer2k + VB6の組合せでアプリを書いてます。

ｽﾄｱﾄﾞ内で、大雑把に次の処理を行っています

1) 元になるテーブルを集計してワーク作成
2) ワークを加工して、レコードセット返却

1) の処理が終った時点でワークが出来ていなければ、RETURN 0 として処理を
終了させ、2) の処理が正常終了したら RETURN @@ROWCOUNT として処理行数を
返しています。問題は、

・ワークが作成されず、RETURN 0で終った場合
　　→ EOFプロパティを参照するとカーソルが無いといわれてエラー
　　→ rdoParameters(0).Value は 0 が入っている

・レコードセット返却まで正常に行われた場合
　　→ EOFプロパティにはちゃんとTrue/Falseが入る
　　→ レコードセットを全部引き取るまで、rdoParameters(0).Value が Null

となってしまうんです。
ｽﾄｱﾄﾞ終了時点でﾚｺｰﾄﾞｾｯﾄが有るか無いかを判断する正当な方法を教えて下さい。

SQL-SERVER+RDOねぇ〜

SQL-SERVERでストアド組んだこと無いから、
酔いちくれの独り言


おらくるなら、beginをネストして、Exceptionで処理をやらせる

じゃヴぁ糞やﾄﾞﾄﾈﾄも似たような事する

return0のときに、カーソルにはselect "orｚ"とか入れたらｗｗ

誰か、頭のいい人に回答もらえるといいね〜

>>515
できました。
ありがとー。

「Visual Basic Editor 6」で、『Microsoft MonthView Control 6.0(SP4)』を使用したいのですが、

「ツール」→「その他のコントロール」内のリストに表示されません。

「その他のコントロール」内のリストに表示させるにはどうしたら良いでしょうか？

オフィス２０００ プレミアムを所有しています。

宜しくお願いします。

あのー､コントロールはIDE(Visual Basic Editor 6)に付属するものではないんですが。

>>520さん、ありがとうございます。

コントロールはどうすれば入手できるのですか？

念じる

Dim a(1, 20) As Variant

この配列を初期化する方法を教えて下さい。

Doで回してブランクを入れるしか無いのでしょうか？

モジュール内で使用する配列なので、redimは不都合です。

この手の話題は荒れるから嫌だ。
答え知ってても言う気にならない。

意味がわからない

そこをなんとか教えて下さい。

Erase　でできました。

>>523
する必要ないじゃん。

下のようなプログラムを作成したんですが、関数宣言で
戻り値がいる場合ってどのような場合なんでしょうか？
（下だとｂが戻り値ですが）
またByRefなどは正しく宣言されていますでしょうか？

Function sora(ByRef a As Double, ByRef b As String) As String

If InStr(1, Replace(a, "-", ""), ".") = 4
If InStr(1, a, "-") Then
b = a
Else
b = " " & a
End If
　　end if

あっ↑VB6.0です

・double型に対し、Instrを実行するのがおかしい
・最初のif文にthenがない
・なぜ"."が4文字目になければならないのか（そういう処理なんだろうが・・・）
・string型に直接double型を代入しようとしている。
・最後だけインデントしている

これはdouble型の数字を文字列型に変換したいのか？
普通に
b=str(a)
じゃだめなのか？

Private Sub Command1_Click()
Dim a As Double
Dim b As String
a = 100.1
b = Str(a)
Command1.Caption = """" & b & """"
End Sub

VB6でデバッグしてて気になったんですが、
ウォッチウィンドウで独自クラスを見ると、クラス内のPrivate変数まで出てきます。
Private変数へのアクセスはプロパティを通して行っているので、
内容が重複して見えて大変邪魔です。
Private変数は表示しないようにすることはできるのでしょうか？
それとも、やり方がおかしいのですか？

>>532
ウオッチを閉じて、全部見えないようにすれば気にならないよ

AAAクラス
private mstrTest as String
Public Property Get Test() As String
Test = mstrTest
End Property

としたときに、ウォッチでこのクラスを見ると

AAA--mstrTest
--Test

ってことだよね？

これは仕方ないんじゃないのかな。たしかに邪魔だけど

教えてください。

InputManのテキストボックス(日付型)から
Enterキーで次のTabIndexに飛ばしたいんだけど、フォーカス動かない。
TabStopもTureにしてあるのだが…。
他にフォーカスが移動しない理由ってありますか？

追記：VB6.0　InputMan6.5

まずは作った会社に聞け

>>535
ｷｰ定義でNEXTFOCUSを｛ENTER｝にすればいいじゃん

>>538
nextfocus = transferFocus？

select case keycode
Case vbKeyReturn
SendKeys "{Tab}"
　　　　　・
　　　　　・
　　　　　・
end select
↑でいけた。サンクス☆

select case keycode
Case vbKeyReturn
SendKeys "{Tab}"
　　　　　・
　　　　　・
　　　　　・
end select
↑でいけた。サンクス☆

ｷｰイベントにｺｰﾄﾞ書くんじゃなく、プロパティページにあるっしょ。

環境：WindowsXP VB6.0 SPREAD.Ver3.0

SPREADのAllowMultiBlocksをtrueにして、
単独セルの複数選択ができるようにはなったのですが、
プログラムで選択セルのインデックスを取得するには
どうしたらいいのでしょうか？

教えてください。

textboxに入力した文字をファイル名として保存させる方法はどうするのでしょうか？

>>544
> ファイル名として保存させる
初耳の表現だ
もっと詳しく

例えば・・・
textboxにa.txtと入力してCommandButtonを押すと
a.txtが作成されるというプログラムを作りたいのですが・・・
どうすればいいのでしょうか？

>>546
その程度の事をいちいち質問していたらスレがいくつあっても足りないじゃないか

↓の処理を短くして表示したいのですが、どのようにすればいいでしょうか？
処理してる内容はどれも同じなのですが・・・。
お願いします。

If InStr(1, Replace(b, "-", ""), ".") = 4 Then
If InStr(1, b, "-") Then
ログ左右桁揃え = b
Else
ログ左右桁揃え = " " & b
End If
ElseIf InStr(1, Replace(b, "-", ""), ".") = 3 Then
If InStr(1, b, "-") Then
ログ左右桁揃え = " " & b
Else
ログ左右桁揃え = " " & b
End If
ElseIf InStr(1, Replace(b, "-", ""), ".") = 2 Then
If InStr(1, b, "-") Then
ログ左右桁揃え = " " & b
Else
ログ左右桁揃え = " " & b
End If
　　End if

ム板にVB6.0以前のくだすれってないよね？

立てたほうがいいいかな？

このスレの内容が既に十分くだらないから要らない。

終わった言語のスレを複数立てるなよ

問題はくだらない質問にも答える広量な人が殆ど居ないことだ。
自分より下の相手が出てくると､嬉々として見下して叩き出し
自分より上の相手が出てくると､黙り込んじゃう。そういう狭量な人が多い。

あなたが質問に答えれば終わる話です。

>>553

>>554
わたしは叩くほうの側ですが、なにか？

>>542
ほんとだ…＾＾；今度こそほんとにサンクス☆

>>555
何勘違いしてるのw

>>557

>>558

555は笑える

>>551
終わってないよ。

>>542
やっぱダメだ(-_-)
Inputmanのテキストボックス→SPREEDへ行けない。

立てちゃった　テヘ。



くだすれVB6.0以前（超初心者向け）
ttp://pc8.2ch.net/test/read.cgi/tech/1165574205/

>>563
乙〜
さっそく逝って来ますﾉｼ

>>563
ただでさえ少なくなった質問を分散して減らすなよ・・・どんな神経しているんだ

重複扱い…(-_-‖)

>>562
行き先スプレッドなのか。
他のコントロールになら行けるんでしょ？
スプレッドがピクチャーボックスやフレームに乗ってたりしないか？
カーソルがどこ行ったかわからなくなってるんなら、フォームのMOUSEMOVEイベントに
ME.CAPTION=ME.ACTIVECONTROLて書いとくとﾏｳｽ動かせば何にカーソル当たってるかがわかる。
妙なとこにカーソル当たってるなら、そいつのタブストップを無効にしていけばいい。

>>546
>>548


くだすれVB6.0以前（超初心者向け）
ttp://pc8.2ch.net/test/read.cgi/tech/1165574205/4

>>567
ピクチャーボックスにのってます。
"実行時ｴﾗｰ438
このｵﾌﾞｼﾞｪｸﾄはこのﾌﾟﾛﾊﾟﾃｨまたはﾒｿｯﾄﾞをサポートしていません"
と表示されます。
これはフォーム外って事でしょうか？？

ふぅう。酔った。

この煽られる感覚がたまらなく、パトスを刺激する。
もう、びゅっとでる。


>>567
アホだな。オブジェクトを文字列にぶち込むあほ。


>>569
アホの書いたソースは削除して、
ピクチャのたぶすとっぷをFalseにするんだ！

.NAME書くくらい思いついてよ。

>>569
すでにFalseです。

>>571
ImText(Inputman)のとこでEnter押すとフォーム名が変わらず、
フォーカスが消えました。

あぁ。しゃべり倒して、疲れた。


>>572
全てのコントロールのTabすとっぷを調べてみたら。

リサイザーのElasticコントロールとか使ってると、フォーカスが
消えちゃったりした記憶がある。

リアルタイム株価表示ソフトを作りたいのですが
リアルタイムの株価の取得でつまずいています

Yahooなどは20分遅れの株価で遅く、
楽天RSSはリアルタイムなのですがエクセルでの取得に限られ、また銘柄も300までです

リアルタイムの株価（東証・大証・JQ・HCにあるもの全て）のよい取得方法があれば
どうかご教授くださいm(__)m

>>574
常識的に考えろよ
無料でリアルタイムに株価が取得できるんだったらYahooなりでやってるはずだろ

>>574
情報の提供先を見つけるのは､プログラミングと全く関係ないぞ。
取得方法と言ってるが､おまえのは取得方法以前に取得先が見つかってない状態だ。
まずは君の要望に適う情報提供先を見つけて､そこの情報を取得する方法が解らなかったらまた来い。
因みに利用規約はきちんと読めよ。Webブラウザ以外での取得閲覧を禁止している場合もあるから。

ソースを見てエロを感じるやつはたいしたもんだ。

>>575,576
ムカツク言い方しかできない奴だな
分からないなら書き込むんじゃねーよ
ボケ

あれをムカつくと感じる奴は､当たり前の社会常識をわきまえてないガキだけ

ガキにかぎらずそんな人間ばっかりの国もあるようだがね
火病と言うのでしたっけ

>575も>576も極めて常識的な回答だな。>574から考え付くほかの回答は
「お前にはできないからあきらめろ」くらいだろ。

>>573
できました☆
色々ありがとうございます＾＾

>>578
2chとはこういうとこだと言っておく(ぁ)

VB6で作ったプログラムをWindows Vista ロゴを取得可能なものに
したいと思っています。
しかしWindows Vistaロゴの要件として最初に書かれてある条件で
さっそくつまづいてしまいました。
VB6プログラムにマニフェストを埋め込むにはどうしたらいいのでしょうか。

ユーザー アカウント制御のガイドラインに従う

この要件を満たすには、アプリケーションに付属するすべての実行可能ファイル
(拡張子 .exe) に、その実行レベルを定義する次のようなマニフェストが埋め込ま
れている必要があります。

<requestedExecutionLevel level="asInvoker|highestAvailable|requireAdministrator" uiAccess="true|false"/>

>>583
無理。

ResEditか何かで埋め込めないか？

てゆうかそもそもXPロゴすら取れないのではないか。

vb6上で、swfを再生させる方法教えてください。

vba で　変数名を name1 name2 name3 name4 とした場合、
for 文で　name1〜name4 を初期化する方法を教えてください。

>>587
Shockwave Flash コンポーネントとかWebBrowserコントロール使うとか

>>587
swf再生のActiveXかWebBrowserを使う

>>588
出来ないよ。
コントロールやシート名みたいにコレクションに入ってる物なら可能だけど。
素直に配列を使いましょうね。

>>590
ありがとうございます。
flashみたいに使えればいいのになぁ。

俺の書き込みって誰にも見えないのか？！

>>589ｶｲﾜｲｿｽ

>>588
技量が無いのでこんな方法しか思いつかんとです。

for i=1 to 4
if i=1 then name1=0
if i=2 then name2=0
if i=3 then name3=0
if i=4 then name4=0
next

>>588
こんな方法も
（脳内ソースだからBASICで動くかわからんけど
for i=0 to 0
name1=0
name2=0
name3=0
name4=0
next

画像を90度回転させるのにいいやり方ない？
反転表示は座標マイナスにすれば楽にできるけど、90度は座標いじっても無理だよね。
ループで全ピクセル分回して１ピクセルづつ描いてくみたいなダサいやり方しかないのかな？
それだと微妙な角度で回転するのと同じ重さになっちゃうからやりたくない。
ループするやり方しかないならSetDIPixels使うつもりだけど。

>>596
ＡＰＩ呼べばいいのでは。

Asc関数のAscってAsciiの略ですかね？

>>597
ちょっと呼んできてよ、来たら俺捕まえるからさ

>>598
American Standard Code for Information Interchange
の略です

>>596
plgblt

現在、コピー、ペースト、貼り付けをコマンドボタンを使って
実現しようと思っていますが、コピー元のテキストボックスで選択された
文字範囲がコピーのコマンドボタンをクリックするとコマンドボタンにフォーカスが
移り、テキストボックスのフォーカスが消え選択範囲も消えてしまいます。

クリックしてもフォーカスがテキストボックスから移動しないようにする
事は可能でしょうか？

>>602
テキストボックスのHideSelectionプロパティをFalseにしろ。

簡単すぎる

現在、ファイル監視ソフトのようなものを作成しています。
通常のファイルに対するアクセス等での処理の部分は出来たのですが、
一部のファイルが最初読み込んで以降はキャッシュから読むようになってまして
そういう場合も監視して同じ処理をを行いたいのですが、可能でしょうか？

環境はWinXPproでVB6.0SP5です。

どうして質問する人って重要な話は削るんだろうね

>>605
日本語でOK
・・・って言いたくなるくらい意味不明。

一部のファイルなの？
一部のソフトウェアで使用するファイルアクセス手段が、
初回読込以外はキャッシュから読む、ってのじゃなくて？

書き方悪過ぎました。申し訳ないです。

監視したいファイルを登録しておいて、アクセス等があった際に
その時間等をログに保存するといった感じのソフトです。
そこで>>607さんがおっしゃっている、「一部のソフトウェアで使用する
ファイルアクセス手段が、 初回読込以外はキャッシュから読む」
タイプのファイルも監視対象として指定できるようにしたいと思っています。

先ほどの質問は、特定のファイルがキャッシュから読まれたというのを
判別するのは可能かどうか。というものでした。

>>603
ありがとうございます！選択範囲がそのまま残るようになりました。
これで頑張ってみます。

で続きでもう一つ質問ですが、コマンドのコピーボタンを押すと
先程の方法でもフォーカスがコマンドボタンに移るのは変わらないと思いますが、
複数テキストボックスがあった場合、フォーカスが変わると
どのテキストボックスの選択範囲をコピーすれば良いのかわからなくなりますが
メニューエディターでコピー、ペースト、貼り付けを作成したのと同様に
コマンドボタンをクリックした場合でもフォーカスが変わらない方法は
あるのでしょうか？

メニューエディターの場合フォーカスが移らないためフォーカスで
でコピー内容のテキストがどのテキストボックスにあるか判定しています。

>609
無理、ボタンを押すとフォーカスはボタンに移る。
どのテキストボックスからボタンに遷移したか
判断する方法は、チョッと考えればわかるだろう。

質問です

初期状態でImageComboに表示される画像・文字を設定するにはどうすればよいのですか。

お願いします。

>>611
普通に

ささやき　いのり　えいしょう　ねんじろ

>>612
普通に、とはどういうことですか。
何もしなければ画像は無く、テキストはTextの値が表示されるだけです。
ドロップダウンメニューから選択しない限り画像は表示できないのでしょうか。

>>614
.ComboItems.Item(？).Selected =

ありがとうございます。
助かりました。

一度のFileOpen()で入力と出力同時に行うことは出来ないのですか？

むしろ、一度でやってくれ

その場合のOpenModeはどうなるのでしょう？
一度でやろうとすると、OpenMode.InputでもOpenMode.Outputでも開いたファイルの
読み取りか書き込みのどちらかの操作で「モードが違う」と怒られてしまいます・・・

全部ためせば？

全部試してきました・・・
Input,Output,Append,Binary,Randomと、ついでに
OpenAccessのDefault,Read,Write,ReadWriteの全組み合わせで
読み込みのinput()と書き込みのWriteLine()をやってみましたが
同時に動くものはありませんでした・・・

>>621
惜しい。使い方が悪いんだよ。

ライフゲームのつくりかたをおしえてください＞＜

初心者なのに、ゲームつくるなんて出来ないです泣

方眼紙でやるのと同じですよ

ライフゲームって細胞が増殖するみたいな奴だっけ？

教えて下さい。

VBで50行200列のcsvファイルの読み込みをして、
1行1列目の数値と50行200列目の数値を取り出して計算したいのですが、
どうすればいいのでしょうか？

1行1列目の数値と50行200列目の数値を取り出すコードと
必要とする計算のコードを書けば良いだけだと思いますが。

その上で解らない部分があるから質問するってならまだしも
躓く以前､歩き出す以前に丸投げする気満々なのはいかがなものかと。
そういう奴はプログラムなんて組まない方がいいです。自分で組みたいなら
出来るところまでやって､壁に当たってから人を頼りなさい。

>>626
ソースを書いてやったよ。もってけ。
ttp://sourcepost.sytes.net/sourcepost/sourceview.aspx?source_id=28973

>>628
レスありがとうございます。
自分が作っているものに組み込んでみたいと思います。
ソースまで書いていただき、どうもありがとうございました。

ショボ

ファイルの読み込み程度で組み込みの機能を使わないでCOMに頼るなんて・・・

フォームからクラスモジュールに配列データを受け渡す方法がわかりません。
たとえば麻雀ゲームの役判定における「それぞれの牌の数」や、
ＲＰＧのマップ操作における「マップのデータ」などを専用のクラスに受け渡したいのですが、
プロパティに構造体や配列を割り当てることはできないそうですので困っています。

>>631
隣の家にジェット機で行くって言うたぐいのネタだと思うが。

>>632
Publicなメソッドに使う構造体はCOMインタフェイス(?)として公開しなきゃいけないので、アクセス修飾をFriendにできないか？
それとVB6なら関数の戻り値に配列を使えるはずだぞ？

>>634
レスありがとうございます。
参考にさせてもらいます。

すいませんsage忘れました。

>>632
言ってる意味がよく分からんが、添え字なしで引数に書けばいいだけなのでは。

>>637
KWSK

標準exeで作成中なら>>634でおｋだとおもうんだがなｗｗｗｗ

>>632
プロパティに構造体や配列　→構造体をクラス（データ受渡用）に書き換えるとか
プロパティに配列　　→添字付きのプロパティにするとか、配列を含むクラス（データ受渡用）にするとか
それとも全部、データ受渡先クラスのプロパティとして実装してしまうとか

仕事でしおり付pdfファイルを作るプログラムが必要なんですけど、
何かいい方法ないでしょうか？あと、ファイル名の指定もウィンドウ入力から
じゃなくしたいです。

>>640
どっからか「仕事でしおり付pdfファイルを作るプログラム」を拾ってくる/買ってくるか、
「仕事でしおり付pdfファイルを作るプログラム」を自分で作る。
あと、出来ればファイル名の指定もウィンドウ入力からじゃないプログラムがいいと思う。

がんばれ。

>>640
そういう ActiveX コントロールを買えばいい。

VB6.0で電卓作りたいんで分かる方作り方教えてください。

628のソースを書いて実行したんですけど・・・
プロシージャの呼び出し、または引数が不正です。って
出てくるんですが、どうすればいいんですか？

>>643
歩き始める前に人を頼ることを考える奴はプログラミングなんてやらない方が良い。
質問するなら壁にぶち当たったり穴に落ちたりしてからにしろ。

>>645
ｱﾌｫ?
穴に落ちないように、事前の策を用意するのが常識だろ。
穴に落ちてから策を考えるような愚図は一生地を這いずる負け犬。

>>643
VB6じゃなくてC#やVB.Netにしなさい

あのね､落ちても不利益のない穴は､経験という利益を与える存在だよ。
社会に出ればその意味がわかるようになるよ。

落ちても不利益のない穴なんて無い。

うぜえな
お互いの穴でも掘りあってろ。

掘るより掘られるほうが好きだ。

音声を録音、再生するサンプルください・・・
ただ録音すればいいのではなくて、
録音した音声を自由にいじれるようなものです。
バッファを通してもらえばそれだけでいいです。
サンプルだけもらえればあとは自分で解釈します。

えっと要は変声機を作りたいのです。
しゃべったとたんに変声しなくても、
ファイルに保存できれば良いです。
ググっても上手く見つかりませんでした。
簡単でいいので宜しくお願いしますm(__)m

というか、板違いですか？

ソース書くの面倒なんで､おまえらが書いて
無償で俺様に進呈しろってか?

板違い以前だろ。人として発言すべき言葉じゃない。

>>643
この板、初心者に滅法冷たいからな。
これじゃ初心者が育たなくて困るんだが。

どういう電卓か知らんが、Windows附属の電卓みたいなんでよければ、
・入力値を表示しとくTextBoxか何か置く。
・数字やら演算子やらのボタンを置く。
・演算子のキーを押したら入力値をどっかしらの変数に入れとく。
・次にまた何らかの値を入力する。
・演算子か=のキーを押したら、最初の値と入力値の間で演算し、結果を表示する。
　演算が続くなら結果を変数に入れとく。

てな感じ。
用語の意味がわかんなかったらググれ。

>>653
あーーー！すみません！
自分で見返したらとんでもないことを書いていました！
えっと、バッファを通した音声の録音と再生が分からないので、
そこのやり方だけ簡単に教えていただければありがたいということです。
mciでは出来そうに無いので・・・APIと思ったのですが、上手く出来ませんでした。

mci以外のAPIが良くわかりませんでした

>>655
ちょっと前に探してAPI使ったやり方もDLLも探せばあったけど
同時にしなくていいならmciでもできるでしょ？

↑
という、糞の役にも立たないアドバイス？が一番ムカツク件について

>>657
mciは、保存するときに内容が変数に格納されることは
無いと思っていたのですが・・・

イメージ的にはこんな風にやりたいです↓
;flag=0は停止、flag=1は録音（再生）
do while flag=1　;僕のイメージでは繰り返さなければ録音できないような気がします。その必要があるかは知りませんが・・・
(録音関数) buf　;録音
loop
buf=buf*〜　　　;変声

;ほにゃらら
do while flag=1
(再生関数) buf
loop

おやおや、有益な情報を活かせないなんて可哀想

>>659
保存されたファイルがあるなら読めばいいのに。

ＶＢＡなんですが、EXCELで作成したCSVをEXCELの処理でサーバーにftp転送したいんですけど、なんか簡単な方法ありますかね？

ftp.exe

excel のVBAでftp.exe って出来るんですか？

できない理由がわからないんだが、なぜ？

http://61.197.151.26/20061219330980/omote/img200611/2006110718_1015425697.jpg

>>665 は、あほ

>>667
なぜ？

>>665 自分で言うのもなんですが、へっぽこだからです。
コマンドボタン　ぽちっと押したら　ftpみたいなことがしたい・・・。

ｱﾌｫかどうかは兎も角、665 は典型的という気がする。

>>669
それは可能だよ。
ただ､そのボタンのクリックイベントにftp転送のコードを書けばよいだけ。
一度書いてしまえばあとは｢コマンドボタン　ぽちっと押したら　ftp｣

>>669
だから、コマンドボタン押したときにftp.exeを起動すればいいじゃないか
VBAでもShellExecute使えるでしょうし ftp -s:もあるし

指定したフォルダ名が共有フォルダかどうかを調べるには
なにを見ればいいのでしょう。
Folder オブジェクトのAttributes プロパティには何もなさそうですが。

「あほ言う奴があほ」って名言思い出したよ！

ftpを手軽に扱いたいならWinInet.DLL使えば良いんじゃないか?
ftp.exeはコマンドテキストファイルとか面倒くさい

vbaで動くサンプルとかないですかね？
wininet.dll　はVBだけですよね？

>>676
サンプルはありません
検索しても見つからないでしょう
VBだけですから使えません

満足しましたか？

>>674
どこも同じですね
http://pc8.2ch.net/test/read.cgi/tech/1124559962/343

すみません、質問です。
VBのプログラムを実行させていたところ、「che」というタイトル名の同じようなウィンドウが開き、エラー停止してしまったのですが、
このような現象はどのようなエラーなのでしょうか？
いくら調べてもこれだけは見つからず…。
「snd」というタイトルで出現する場合もあるようです。

>>679
再現できない
もっと詳しく教えれ

私も開発環境下では再現できなくて困ってます。
本社でソフトの開発、工場で実働、という形なのでどの部分でエラーが発生してるか
解析できないのです…。

ちなみにどのように使用しているかというと、測定用のプログラムで測定結果のファイルを作成し、
測定終了後に別の計算用のプログラムが入ってるパソコンへと通信しているようです。
ちなみに、問題があったファイル一式を手動で動作させた場合、問題なく動作しました。

地方人は案件の度に東京に行くのがしんどい

>>644
非常に申し訳ない。
ForReadingと書いているところを

1

に置き換えてください。
酔うてご迷惑おかけしますた。

>>682
レスありがとうございます。
おぉ〜
動きました。
ありがとうございました＾＾

参照設定させたり､定数宣言させたりではなく
マジックナンバー使わせるあたりが
変にカッコつけず初心者らしくて素敵です。

質問です。
VB6.0でShellExecuteを使ってアプリに関連付けされている
ファイルを開きたいのですが、今のところできていません。
ByVal lpszFile As String　
に入る文字列を「ファイル名を指定して実行」でやるとファイルが開ける状態です。

http://support.microsoft.com/kb/170918/ja

↑ではできるとなっていますが、他のサイトでは
exeファイルしかできない、と書いてあるところがあります。
できるとばかり思っていましたが、できないのでしょうか？

下から２行目、間違えました。

「VBではexeファイルしかできない」と書いてあるところがあります。

です。

どこだよ

ShellExecuteのあとですぐ終了してません？
関連付けの起動は非同期なので、若干待ち合わせしないと。

ありがとうございます。
「すぐ終了」というのはアプリケーションを、ということですか？

条件はよく分りませんが、待ちを入れてうまく行けばそれが原因と。

お、開きました。
その待ち合わせが原因かもしれません。
ありがとうございました。これから色々やってみます。

質問です。　VB6環境　XPにて
PutIniを使ってiniへ書込みをしているのですが、オブジェクトとキーの変数の
コードを簡単にしたいのですが、わかりません。

PutIni "外来担当表", "ADDText1", Combo1, "\\192.168.60.253\Admin共有\用度\VB\Window_Data\Window.ini"
PutIni "外来担当表", "ADDText2", Combo2, "\\192.168.60.253\Admin共有\用度\VB\Window_Data\Window.ini"
PutIni "外来担当表", "ADDText3", Combo3, "\\192.168.60.253\Admin共有\用度\VB\Window_Data\Window.ini"
PutIni "外来担当表", "ADDText4", Combo4, "\\192.168.60.253\Admin共有\用度\VB\Window_Data\Window.ini"

また、GetIniに関してもわからない
Label1 = GetIni("外来担当表", "ADDText1", "", "\\192.168.60.253\Admin共有\用度\VB\Window_Data\Window.ini")
Label2 = GetIni("外来担当表", "ADDText2", "", "\\192.168.60.253\Admin共有\用度\VB\Window_Data\Window.ini")
Label3 = GetIni("外来担当表", "ADDText3", "", "\\192.168.60.253\Admin共有\用度\VB\Window_Data\Window.ini")
Label4 = GetIni("外来担当表", "ADDText4", "", "\\192.168.60.253\Admin共有\用度\VB\Window_Data\Window.ini")

ご教授おねがいします。

今日からVB6始めた小学生か。
もう冬休みに入ってるとしたら北海道や東北か？

>>693　北海道は25日頃から
　内地のほうがはやいんじゃなかったっけ？

北海道は冬休みは1/18ごろまで

>>693-694
おまえらマジで邪魔だから氏んでくれない？

>>692
PutIni
っていうのは、きっとオマイの中で宣言している、そういう関数なんだろう。
引数がセクション、キー、値、INIへのフルパスの。

セクション、キーは別はそんな風に直書きでもいい気もするけど、嫌なら
「変数」じゃなくて、「定数」に汁。

const INI_PATH As String = _
"\\192.168.60.253\Admin共有\用度\VB\Window_Data\Window.ini"

Call PutIni("外来担当表", "ADDText1", Combo1.Text, INI_PATH)
Label1.Caption = GetIni("外来担当表", "ADDText1", "", INI_PATH )

つーか、病院関係者なら金持ちだろうし、ソフト屋に発注して

よく見る共通関数だよな、GetIniとPutIniって。

>>697
初めて見たが。
普通直接ＡＰＩ呼ぶだろ。

>>698
それはいかにもVBらしい悪い方法だな

お教えください

今更ながら開発用端末をWin2kからWinXPにしたところ
ファイル検索の文字列検索でbasとかfrmがヒットしなくなりました
ソース内に例えば「外来担当表」と入っているプログラムを
探したいとか言うとき、XPではどうすればいいのでしょう？

Win2kだとファイル検索の文字列でヒットしたのに・・・。｡･ﾟ･(ﾉД`)･ﾟ･｡

>>700
それはＷｉｎｄｏｗｓのスレ向けな質問ではなかろか。

検索のウインド
→「設定を変更する(G)」→「ファイルとフォルダの〜…(R)」→「上級者向け(D)〜…」

にして、旧来のアレ風にしてやってみてどーか。

Dir() とDir$()の違いはなんですか？

>>702
バリアントと文字列の違いわかりますか？

>>692,700
てめー。回答者にありがとうございますがねーじゃねぇかよ

>>703
引数の型が違うということですか？
戻り値の型が違うということですか？

>>705
HELPは読めますか？

>>692,>>700
「One Stop Multi」

VB6やVBAでは組み込み関数に
"VBA.関数名"でアクセスできますが
VBSの場合この"VBA"に相当する
組み込み関数群の親は何ですか?
具体的にはArrayを上のような形で
利用したいのですが

>>708
それってVBSでどんないいことがあるの？

> ○ 回答者の心得
> 　三．回答する上で必須ではない情報をむやみに聞き返さない。

>>710
見えない俺ガイル

こんなんだからVB6使いはバカにされるんだなぁ・・・orz

ふーん、 .NETがあるのにね。

>>1
質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、 
「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。 

ミディンコな質問ですまない…
CSVファイルの最終行の改行を削除したいんだがどうすればいいんだろうか？
AAAA
BBBB
CCCC
DDDD
[EOF]
を↓にしたい
AAAA
BBBB
CCCC
DDDD[EOF]

出力するときのやり方は知ってるんだが既存ファイルの操作ということで

SetEndOfFileでできるかもしれない
出来なければ　(読み取り)→(サイズを制限して書き込み)　しかない

APIかー
意外とめんどいもんですな。
VBらしくさくっといけるもんがあるのかと思ってた俺はさすがミディンコ
バイナリで読んで最後の改行記号ってとこまでは追及できたんだけど削除ができねぇ
VBのテキストファイル操作じゃファイルサイズが変わるようね編集ってできないぽ？

>>717
トンクス！

>>714
OSやWSHのバージョンが違っても
親オブジェクトは一緒だろうと思って
省略してました､すみません
WindowsXP ServicePack1
WSH5.6 ServicePack無し
IEなどではなくwscript.exeでの実行です

やりたいことは"obj.Array"という形で
組み込み関数のArrayを使いたいだけです
試したことはVBA.Me,WSHの指定です
VBAはオブジェクトがありません､Me,WSHは
Arrayをサポートしてませんになり
Arrayの親オブジェクトが解らない状況なので
困ってます

知りたい理由は興味とでも思ってください
どのような環境で使うかが解っていれば
オブジェクトは一意でしょうから
どのように使うかは必要な情報では
無いでしょうし使い道は一つだけじゃないので

> どのように使うか
まぁ､代用法でも良いから教えてくれというなら書くべきことだがな。
そうでなければ必要ないが､代用法を押しつけて自己満足したいだけの
自称上級者共は必要としてるかもw

>>719
VB6のVBAはモジュールなので、WSHでは直接見れないと思われ
必要な関数をクラスのメソッドとしてラップしたActiveXDLLを作るのが適当だと思う

>>720
そういうチンコが大きい発言はもっと大人の男の子になってから言おうね

>>718
ヒントTypeName(Me)

マチガイ>>719

doubt!708=710=719=720
そんなことwshスレで聞け、と覗いてみたら
あっちでも、回答振り込め詐欺やってバレて、こっちへ来たか
>>1に回答振り込め詐欺禁止とは書いてないもんな

こういうのは放っておこうね。┐(´ー｀)┌

>>712
莫迦にしてるのはお前だけ。

VB使いは全体が平均してバカなんじゃなくて
極端にバカというか痛い奴の割合が多い。
ちょっと上にも変なの湧いてるし。

>>702
クイズの正解はひょっとして$の有無？

>>724
残念!､>>1-723まで全て俺一人の自演だ
俺様の壮大なシナリオに引っかかったなm9（・∀・）

>>721
>VB6のVBAはモジュールなので、WSHでは直接見れないと思われ

>>719が言ってるのはVB6のVBAではなく、VBScriptのArray()のこと

だから、オブジェクトブラウザでMicrosoft VBScript Globalsを参照設定すれば
Library VBScript_Globalが現れて、
Array()がClass GlobalObjのメンバと分る。
ってことじゃないかな

OpenTextFileの第４引数で「TristateMixed」ってのが有るけど、「TristateUseDefault」と同じですか？

参照設定はしないで済むならしないほうがいいんだけどねぇ


よくわからんけど、ASCIIかUnicodeかの違いじゃマイカ？？
デフォルトは ASCIIで、ミックスというくらいだから、どっちでも
いいよ？　みたいな？

もう、酔うた。

>>718
一旦別ファイル名で書き出してから、
元のファイルを削除し、先に書き出しておいたファイルを正しい名前に変えればいい。

>>721
使用したいのはVB6のArrayではなく
VBSのArrayです

過去ログにあってもおかしくないと思ったんですが、見つからなかったので
質問です！

VB６のコンボボックスで、「ファイル名を指定して実行」のコンボボックス
みたいに、前方一致で補完できるようには出来ないのでしょうか。

spy++で見ると、クラスが違うので異なるコンポーネントなんだろうとは
分かるのですが。。。
WindowsAPIで作らなければならないでしょか。

>>735
自分でコーディングすればおｋ

>>735
ttp://www.google.co.jp/search?complete=1&hl=ja&q=shell+api+%E5%85%A5%E5%8A%9B%E8%A3%9C%E5%AE%8C&lr=
>>736の言うように自分でゴリっとした方が楽＆安全

CHANGEイベントでDIR関数使って、
見つかったファイルを全部コンボリストにADDして
そのコンボをプルダウンさせるのかな？

レス有難うございます。

なるほど、自分で実装するのですね。
ってか、コンボボックスというより、テキストボックスに
プルダウンの入力補完が付くというイメージの方が近い
んですかね。

やりたい事は、既にコンボボックスに登録されているリスト
の中から、前方一致で合致するものを補完する機能です。
Officeのコンボボックス（RichEdit20W)とか、コンポーネントとして
切り出してくれれば良いのに。。。

やり方は見付けたが、これをVBでやるのは無理そうな気がする。
ttp://www.runan.net/program/tips/sdk_17_IAutoComplete.shtml

情報有難う御座います。
何が一番楽か、ちょっと模索してみたいと思います。

>>730
708じゃないけど、参照設定でMicrosoft VBScript Globalsが見つからないです。
環境は、WinodwsXP SP2、VB6.0 SP6。
XP用のWinodws Script 5.6もインストールしました。
後学のためにぜひ試してみたいので、どなたか教えてください。

>>708
[名前].Array()

>>741
一番楽なのは、そういう機能を持ったコントロールを購入する事だな。

>>744
その程度のコントロールなら簡単に作れるでしょw
っていうか、VBのコンボって最初から入力補完ついてると思うんだけど。
あれ結構鬱陶しいと思うんだけどね。

つくてみた。
Option Explicit
Private WithEvents cmb As ComboBox
Private WithEvents btn As CommandButton
Private Sub cmb_GotFocus()
    SendKeys "%({DOWN})"
End Sub

Private Sub Form_Load()
    Dim i As Long
    Set cmb = Me.Controls.Add("VB.ComboBox", "cmb")
    Set btn = Me.Controls.Add("VB.CommandButton", "btn")
    With cmb
        .Move 0, 0, 3000
        .Visible = True
        For i = 1 To 100
            .AddItem "Item" & Format$(i, "00")
        Next
    End With
    With btn
        .Move 3100, 0, 1500, 1000
        .Caption = "Place Hold"
        .Visible = True
    End With
End Sub

>>746
残念だけど、違うと思う。

うん､完全に勘違いしてると思う。

どっちが>>745？
元ネタはともかく>>745が言うようにコンボボックス使ってみただけだよ
違うコンボボックスなの？
>>735のネタは>>737とか>>740で回答されてるし

今日休みで暇なんでVBでもはじめよっかなって思うんですけど、
どれを買ったらいいのやら。
最新版はどれなのでしょうか。

最新版しか売ってないだろ

VB6.0というのを購入すればよいのでしょうか。

VB2005Expressをダウンロードしておけ。
VB6はMSDNサブスクリプションでないともう入手できないぞ。

>>753
ありがとうございます。
ダウンロードのページを今開いたところです。
これって無料なんですね？

VB6.0でシリアル通信をするプログラムを組んでいるんですが、
そこらに落ちてるシリアル通信サンプルプログラム(MsComm使用の)を使っても
データの採り方というか表示のさせ方?がハイパーターミナルと違います。
ハイパーターミナルと同じような挙動をするサンプルプログラムってありませんか?

Visual Basicというもので初心者向きの講座で良いところがあれば教えていただけ
ませんか？

ありませんかじゃなくて､自分で作れよ

ハイパーターミナルそのまま使えば作る必要もない

色々意見有難う御座います。

>>745 さん
>っていうか、VBのコンボって最初から入力補完ついてると思うんだけど。 
いやー、ついてないような。。。

>>746 さん
I って入力するとItem00 と補完して欲しいのです。
VCのComboBoxやDelphiのTComboBoxは標準でこのような
動作をするようです。

もうちょっと探してみます。

VB.NETならついてるんだがな

質問です。
ネットワーク上のフォルダにあるexeファイルのバージョンを取得したいので、

GetFileVersionInfosize
GetFileVersionInfo
VerQueryValue

をやっていますが、
GetFileVersionInfosize
の時点で0がかえってきてしまい、取得できません。
同じＰＣ内では取得できました。
ネットワーク上のファイルだとダメ、ということはありますか？
駄目な場合、他の取得方法はありますか？

>>761
「ネットワーク上のフォルダにあるexe」をどういう形で参照してるのかも、
どんなコードでバージョンを取得してるのかも分からんのに、回答出来る筈がない。

解決しました。
>762
無理して回答しなくても大丈夫です。
ありがとうございました。

>>753
このダウンロードって個人情報丸々入力しなきゃいけないんですね。
勤務先電話番号も入力必須項目になってるけど、なんか不安でダウンロードできないな。
別に問題ないかな？

>>764
店で買えば？

店で買った場合は個人情報の入力なしで使えるってことなんでしょうか。
結局店で買ったものもユーザー登録が必須とかなら
ダウンロードしたほうがいいしな。

>>766
お前が今すぐ死ねばおまえの個人情報の価値もなくなるよ

>>767
でも死んだらVBは使用できないんです。

>>742は自己解決しました。
参照設定でvbscript.dllへの参照を追加すると、Microsoft VBScript Globalsが
参照できました。
しかし、こいつを実際に使ってみることができません。
VBScript_GlobalライブラリのGlobalObjクラスを使うと良さそうなのですが、
これをインスタンス化することができないのです。
New GlobalObj や CreateObject("VBScript_Global.GlobalObj") を試したけれど、だめでした。
どうすれば使うことができるのでしょうか？

JPEGの特定の場所の色情報を得たいと思っています。
例えばTop100 Width100 のJPEGをイメージかピクチャボックスに入れて、
Top30 Width70 の色情報を得るような事はできるでしょうか？

Topとかではなくもっと精密な　X座標　Y座標　とかあればいいのですが、
よくわからないのでとりあえずこのような説明にしてみました。

> Top100 Width100
どういう大きさなんだろう？
Height100 Width100ならわかるんだが。

すいませんHeightの間違いです。
お恥ずかしい。

pointでいいんじゃない？

>>769
「代用法でも良いから教えてくれという」ということではないのですね？

みんな楽しそうだな・・・

>>774
そうです。「へぇ」と言いたいために試していることなので、代用法は求めていないです。
Microsoft VBScript Globalsを使う方法、または
これが使えない理由（インスタンス化できない理由）が知りたいです。
インスタンス化できないクラスなんて、初めて見ました。

>>776
Microsoft VBScript Globalsを使う方法は
WSHのヘルプの
Windows Script Interfaces SDK
にあるようです

クリップボードについて聞きたいのですが、
クリップボード内のビットマップの情報見て、
そのある特定アドレスの内容を比較するプログラムを作りたいのですが、
どうすれば簡単に出来るのでしょうか？

クリップボード内ビットマップのある座標の色を知りたいのです。（ＲＧＢ）

ビットマップのクリップボード開始アドレスの取得方法、
また、このアドレスは固定なのでしょうか？

どなたかアドバイスをよろしくお願いします。

>>778
いっぱい勉強するといいよ。
そうすればそのくらい簡単に出来るようになる。

>>778
行儀の悪いソフトを作りたいと？

>>778
マジレスすると、ここは初心者用なので専門的なスレに行くと良い。
ここで聞いても誰もわからん。

splitで分割したものを、多次元配列(data(i, j))に格納したいのですが、どうすればいいのでしょうか。
? = split(S, "#")
data(0,0),data(0,1),data(0,2),...と切り分けられて入って欲しいのですが。

>>782
仕様上不可能です
というかループで代入し直せば良いだけじゃん

>>777
ありがとうございます。
MSDNのWindows Script Interfaces SDKをエキサイトで翻訳して読みましたが、
私には難しすぎてわかりませんでした。

>>783
ありがとうございます。
そうするしかないかなと思っていたのですが、もしかしたら何か方法があるかと思いました。
やっぱりループで入れる事にします。

>>784
翻訳された文章を読むのは、原文を読むより至難の業だぞ。

つーか、エンジニアならそれくらいの英語はできなきゃいかんだろ

すみません。
「軽く翻訳してみた結果、自分の頭では理解するのが無理そうな内容だった。
今はあきらめようかと思ってる。」と言いたかったのです。
もちろん英語も苦手です。

つーか、WSHの日本語のヘルプがあるだろ

しかし、VB6の話題も減ったよなあ
みんなVB.NETに移ったのかな？
俺はC#に移ったけど
あなたの仕事ではC#とVB.netどっちが多い？

高校大学時VB6やってたが
現在業務では組み込み系でCやってる

VSはもう自宅では触ってない・・・Spoke版買ったけど・・・
触る暇が無い

で？

おらんところは、どっちかっつーとC#の案件がいまんところ多い。
C#の案件が８で、VB.NETの案件が６。
でも、これって上司がC#しかやったことないというのがそもそもの理由。

C#しか経験無い上司が現れる時代になったのか
SE/PGを辞めて5年たつが、時代はそんなに変わっていたのか。

>>794
本気にするな

冬休みだからな。

別に.netになって言語問わずだけど。
C#のほうが洗練されてるといえばされてるけど。VB.netでも十分綺麗なプログラムは出来る。

>>791
> 触る暇が無い

2ch の暇はあるのに？ (w

>>796
A は B より洗練されてて、A も B も似たようなことができる。

普通 A を選ぶでしょ。

C#に将来性があればね。
VBは腐ってようが今までずっと続けたMSの実績はある。
C丼はその気構えがあるか・・・。

実績があるのは VB6 までの 古い VB だろ。

vb.net とは違うもんだよ。

スレ違い。>790-799

雑談スレにでも池。

ダイアログ(フォーム)をモーダルで開くActiveX(VB6)があるんだけど、
IE7だとモーダルにならなくない？
メッセージループとかどーなってんのかな。

VB6のWebBrowserコントロールでYouTubeを見ようとしたら、スクリプトエラーが出て見られません。
IEや別のPCなら問題なく見られます。
どなたかご指導をお願いします。

>>802
問題ありませんよ

Excel2000のマクロからVisio2003を呼び出すコードを書いて、
Excelシートのコマンドボタンを押すと、VISIOのある特定のファイルが開くようにしたいのですが、
うまく動きません。

Dim VisioApp As Visio.Application
Set VisioApp = CreateObject("Visio.Application")
Set VisioApp = GetObject(ファイルのパス, "Visio.Application")

Visio自体は起動できるのですが、「ファイルのパス」で指定されたファイルが出てきません。
どうしたらうまくいくでしょうか。

絶対パス指定してる？

>>805
できません。
C\〜の絶対パスを入力しても
「オートメーションの操作中にファイル名またはクラス名を見つけられませんでした。」
というエラーメッセージが出てきます。

すまん、そもそも VBA だったな。

Dim VisioApp As Visio.Application
Dim Document As Visio.Document

Set VisioApp = New Visio.Application
Set Document = VisioApp.Documents.Open(ファイル名[絶対パス])

...

Document.Close

ではダメかな？

>>807
ありがとうございます!!
出来ました!!!

VB6で指定したフォルダ内（変数とうで持ってるとする）にある、
指定した拡張子（*.csvみたいな感じ）のファイル名を取得したいのですが･･･。
した事ある方、よろしくお願いします。。。

>>809
FindFirstFile と FindNextFile （共にAPI関数）
使い方はMSDNで調べてちょ。

Dir

初めてですみませんが、よく分からないので教えてください。

Dim kohi As Variant

Dim aaa As Variant
Dim bbb As Variant

aaa = CLng((kohi - 241000) * 0.01)
bbb = CLng((Val(kohi) - 241000) * 0.01)

という式なのですが、CLNGする前は14044.5 になります。
CLngすると、
　aaa = 14044
　bbb = 14045
になります。
CLngは常に最も近い偶数に値を丸めるので、両方とも14044になると思ったのですが、
どのように違うのでしょうか。

>>812
再現できないのだが、VBのバージョン と kohi と VarType(kohi) の値をカキコしてくれないか？

ヒント

　つ二進数で少数表記。

ブイバーにはわからんかもね。

>>810
私 API 知ってるんだぞ、えらいだろ〜 って言うちんけな自慢？ (w

>>811 が書いてる通り vb6 dir でググレ >>809

大きなお世話承知で言うけど、正直そういうレベルの人間が今あえてVB6使う理由がわからんよ

>>813
VarType(kohi)=3でLONG型になっています。
宜しくお願いします

>>812
とりあえずVB6.0SP5ではそんな現象出なかった。

>>812
何がしたいのかさっぱりわからん。
誤差が出る理由について知りたいならPC内部の実数の表現形式とか勉強すりゃいいじゃん。
http://support.microsoft.com/kb/409744/ja
それ以前にMSDNライブラリ見て演算結果や変換関数の結果の型がどうなるのか調べてみた？

っていうか、人に物を聞くなら疑問点を明確にしろよ。
なんだよそのコード。誰もエスパーじゃねえんだけどわかってる？
そんなコードの断片をコピペして、虫食い部分は透視しろとでも言うの？
はっきり言って馬鹿じゃねえの。

ランタイムってなんですか？

>>820
走る 走る 俺達

>>814
(浮動小数点)演算誤差って言えよw
｢わからんかもね。｣って､故意に解りづらく言ってるだけやん。

>>812
知っていて書き忘れただけかもしれないが､
> CLngは常に最も近い偶数に値を丸めるので
は間違い。偶数丸めが起きるのは小数値が0.5の場合のみ。他は四捨五入される。
つまり3.5は4に､4.5も4になる。ただし4.5000000001は5になる。

ValはDouble型の値を返すんで､演算誤差が発生する。
Debug.Print VarType(kohi)
Debug.Print VarType(Val(kohi))

Roundで丸めても見た目は変わらないが
Debug.Print (kohi - 241000) * 0.01
Debug.Print (Val(kohi) - 241000) * 0.01
Debug.Print Round((kohi - 241000) * 0.01, 1)
Debug.Print Round((Val(kohi) - 241000) * 0.01, 1)

CLngの結果は変わる
Debug.Print CLng(Round((kohi - 241000) * 0.01, 1))
Debug.Print CLng(Round((Val(kohi) - 241000) * 0.01, 1))

>>819
馬鹿はお帰りください

重ね重ね申し訳ありません。m(__)m
また、何回も質問して申し訳ありません。
VB5.0SP2で出ている現象です。

Dim Value As Variant
Dim aaa As Variant
Dim bbb As Variant

Value = 50#のとき、（小数値が0.5のときです）
aaa = CLng(Value * 0.01)
bbb = CLng(Val(Value) * 0.01)
の答えが
aaa = 0
bbb = 1
になるのですが、Valueは両方ともVarient/Doubleになると思うのですが、
結果が違います。
どうしてなのでしょうか？

>>824
このクズやろう。
お前、みんなのレスを読み返せ。

そりゃClngやってりゃ整数になる罠

ClngじゃなくCdbl（だっけ？）でDoubleに型変換しないといけないんじゃないか？
ついでにいうとVariantは最低限のとき使ったほうがいいんじゃないか？

>>826
整数にしたいもので･･･

すみません。みなさんの機嫌を悪くさせているみたいなので、
以後かきこしません。
どうもすみませんでした

>>827
回答者様に感謝の言葉述べてから帰れよ。

>>812
まあ>>819のリンク先ぐらいせめて読んだ方がいいよ。
どうせまだ読んでやしないんだろ？
馬鹿じゃなければ、コンピュータが実数をどう扱うかのイメージがだいたいつかめれば
必要な結果を得るためにはどういう処理をしたらいいか自ずとわかるはず。

812は理科系の人間じゃないのかな。あるいはよほど三流処の出か。
実数演算をするときには実験の数値を扱うときのように（もちろん理由は全く違うけど）
有効数字（桁数）を意識しなきゃダメだ。

たとえば必要な精度が小数点以下第二位までと予めわかってるなら演算結果を変数に
しまう前にRoundで小数点以下第二位までに丸めなきゃ。
そうすりゃそのデータ型の扱う数値の範囲を超えない限り誤差はでないよ。
もちろんこれは厳密な言い方ではないけどね。

それから言うまでもないが特に理由もないのにVariant型の変数なんて使わないことだね。

>>819=>>829

有効桁数〜？！
データ型の扱う数値の範囲を超えない限り誤差はでない？？！！


いいから、馬鹿はくるんじゃねぇよ。

>>824
> VB5.0SP2で出ている現象です。
って・・・
それ、最新のＳＰじゃないだろ。
ＳＰは最新をあてないとそもそも問題外。
話にならん。

>>831
これは最新のSPで変更あった個所なのか？

話にならないとはむしろ>>831自身のことなのでありました
チャンチャン♪

>>832
そういう問題じゃないだろ。

>>834
古いソースを扱うときは当時の環境でいじるが？
一人だけバージョンやSPの違う言語を使うわけにいかないからな

で、824はSPが問題なのか？

相変わらず莫迦ばっか。

変数を定義すると、そのアドレスが毎回変わってしまうのですが、
何とかして固定アドレスに値を格納する方法は無いでしょうか？

apiにもそれらしいものが見つからなくて・・

なんのために？

○ 回答者の心得
　一．答えられない質問は無駄に罵倒せずスルー。無理するな。
　二．代用法を強制しない。
　三．回答する上で必須ではない情報をむやみに聞き返さない。