VBプログラマ質問スレ（6.0以前） Part50
レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん
2006/10/22(日) 20:39:53質問者は使用している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
http://www.google.co.jp/
※「まず自分で調べる」クセを身につけよう。
0002デフォルトの名無しさん
2006/10/22(日) 20:40:48Part 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
0003デフォルトの名無しさん
2006/10/22(日) 20:41:54Part17 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/
0004デフォルトの名無しさん
2006/10/22(日) 20:42:28Part32 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/
0005デフォルトの名無しさん
2006/10/22(日) 20:43:22Part47 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/
0006デフォルトの名無しさん
2006/10/22(日) 20:45:07Visual 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を覚えて下さい。
0007デフォルトの名無しさん
2006/10/22(日) 22:48:530008デフォルトの名無しさん
2006/10/23(月) 10:55:27ロックするプロパティってないんですか？
Enabled=Trueだとグレーになっちゃうし・・・
TextBoxのLockedみたいなプロパティは無いし・・・
皆さん、どのように対処してますか？
0009デフォルトの名無しさん
2006/10/23(月) 11:39:50フレームとかピクチャボックスの中に入れて
そのフレームとかピクチャボックスのEnableプロパティをFalse
0010デフォルトの名無しさん
2006/10/23(月) 12:13:51「見た目を変えずOptionButtonの変更をロックする」なんてＵＩは最低最悪。
0011デフォルトの名無しさん
2006/10/23(月) 12:57:00FlexGridやListViewなどのocxを配布するコントロールが使用できません。
行ごとの追加削除をしたいので行ごとの選択をしたいのですが、
ListBoxコントロールでLFで隙間を空けるのも試してみましたができません。
なにかいい案はありませんか？
0012デフォルトの名無しさん
2006/10/23(月) 12:59:500013デフォルトの名無しさん
2006/10/23(月) 13:01:40ピクチャボックスの上にチェックボックス＋テキストボックスとか動的に並べて擬似グリッドとか(；´∀｀)
だめっぽｗｗｗ
001412
2006/10/23(月) 13:06:30１つ目の選択行が変わったら他の選択行も変えようかとも思ったんですが、
ListBoxごとにスクロールバーができるんですよね・・・
0015デフォルトの名無しさん
2006/10/23(月) 13:28:09何故に？
というよりは､そういう条件でありながら､何故にVBを選んだのか気になる。
今時､VB6しか使えないなんてことは無いだろうし。
001611
2006/10/23(月) 13:28:22とりあえず重ねてスクロールバーが見えないようにはしたけど、
Topindexが変わったのをキャッチすることができません。
いっそ何か違う方法のほうがいいのかな・・・
001711
2006/10/23(月) 13:36:08ちょっと何か違う方法を考えてみます。
ありがとうございました。
0018デフォルトの名無しさん
2006/10/23(月) 13:52:42HTAでTDCを使う。
0019デフォルトの名無しさん
2006/10/23(月) 14:06:540020デフォルトの名無しさん
2006/10/23(月) 14:30:25こんなんでいけるんじゃね？（ｒｙ
タブとか消されるんで適当に解釈してくれ、あと行も詰めて書くわ
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
0021デフォルトの名無しさん
2006/10/23(月) 14:32:16Dim 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
0022デフォルトの名無しさん
2006/10/23(月) 14:36:01コンテナ用
Picture1 As PictureBox
あとは表示用
Check(0) As CheckBox
Text1(0) As TextBox
という3つのコントロールが貼り付けられてるの前提でお願い（CheckBoxno縦幅にあわせるので）
あとチェックとテキストは貼り付けた時にサイズを適応に指定して、非表示っつうかんじで
0023デフォルトの名無しさん
2006/10/23(月) 15:17:05outportb Port +2,0
と打つと、
outportb（Port +2,0）
となってしまうのですがなぜでしょう。
outportbは宣言済みです。
0024デフォルトの名無しさん
2006/10/23(月) 15:20:57CreateObject でエクセルでも使え。
0025デフォルトの名無しさん
2006/10/23(月) 17:07:57仕様。
0026デフォルトの名無しさん
2006/10/25(水) 23:25:56↓のは足し算のプログラム(端折ってますが)なんですが、
これからうまく掛け算のプログラムに変えられますか？
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
0027デフォルトの名無しさん
2006/10/25(水) 23:28:11変えられるだろうけど、変える気はしない
0028デフォルトの名無しさん
2006/10/26(木) 00:49:42激しく同意ｗｗｗ
>>26
つか、普通に+演算子とか*演算子を使っちゃいかん理由でもあるのか？
・・・と、釣られてみるｗｗｗ
0029デフォルトの名無しさん
2006/10/26(木) 11:19:0710進演算したいんじゃない？
0031デフォルトの名無しさん
2006/10/30(月) 01:49:060032デフォルトの名無しさん
2006/10/30(月) 10:12:22ロック状況とか接続ユーザーの情報とか
取得する方法ってある？
やっぱ*.ldbの有無と内容を解析するしかない？
0033デフォルトの名無しさん
2006/10/30(月) 13:11:11「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)
0034デフォルトの名無しさん
2006/10/30(月) 13:24:49バイナリ読込はVB標準で出来るのに。
というツッコミは無しですか？
0036デフォルトの名無しさん
2006/10/30(月) 13:50:26basp21入れなくても標準で入ってるCOMでバイナリ読み出来る。
つーか､ここはVB6スレなわけよ。
VBSは一応許容範囲だが､その場合はきちんとVBSであることを明記すること。
VBSだと予測は付くが､クイズスレじゃないんだから回答者に予測させてどうするよ？
0037デフォルトの名無しさん
2006/10/30(月) 13:53:22俺ならADODB.Streamで
バイナリデータ読み込むけどなぁ。
003833
2006/10/30(月) 14:01:55いろいろツッコミありがとうございます。
ところで、方法はいろいろあってバイナリで
読み込んだとしましょう。
読み込んだ後に１バイトとるってのは
BASP21だとMidBなんでしょうが、
他だとどうなるんでしょうか。
また、その１バイトとったやつの
XOR値をとると「型エラー」になるということは、
バイト型or数値型になっていないのでしょうか・・・
0039デフォルトの名無しさん
2006/10/30(月) 14:22:01abc123なら｢61 62 63 31 32 33｣となるわけだが､
1文字目が6で､２文字目が1って意味か？それとも61と62か？
ちゃんとバイト･ビットって正しい用語を使って話せるようになろうよ。
004033
2006/10/30(月) 14:28:14本来テキストなので、そのときの１文字目および２文字目
という意味です。
当然バイナリで読み込んだ後は１バイト目、２バイト目
というふうに言い換えるべきでした、すいません。
0041デフォルトの名無しさん
2006/10/30(月) 14:53:58とにかく君は､全てに置いて抜け過ぎ。
自分の頭の中では､VBSなのもテキストとしての文字数単位なのも決定事項なんだろうが
第三者には君の脳内決定事項なんて知らない。もっと深く考える頭を持とうぜ。
で､ぶっちゃけテキストとしての文字単位なら､テキスト読みして
strText = "abc123"
MsgBox Asc(Mid(strText, 1, 1)) Xor Asc(Mid(strText, 2, 1))
でいいんじゃないの？
004233
2006/10/30(月) 15:01:30そうですね、すいませんでした。
とりあえず２バイト文字の場合もあるし、
純粋にバイナリの場合もあります。
毎回確実に１バイトとるので、ascが使えない
場合もあります。
言葉足らずでほんと申し訳ないです。
0043デフォルトの名無しさん
2006/10/30(月) 15:22:35とりあえずADODB.Streamでバイナリ読んでAscB(.Read(1))で。
004433
2006/10/30(月) 15:30:44なるほど、AscBで数値を取得できました。
目からウロコです。ありがとうございました。
これをまたバイナリに戻すのは、なんという
関数を使えばいいのでしょうか？
文字列であらわせるとは限らないので、
chrだとダメなんでしょうか・・・
004533
2006/10/30(月) 15:59:25これでちょっとやりたかったことをやってみます。
本当にありがとうございました。
0046デフォルトの名無しさん
2006/10/30(月) 16:37:530047デフォルトの名無しさん
2006/10/30(月) 22:55:02AscにAscBが有るのを教えれば､Ascと対になるChrに
ChrBが有ると教えてるのと同じだろうに。
0048デフォルトの名無しさん
2006/10/30(月) 23:12:50004933
2006/10/31(火) 18:09:36要は、自分が今どんな状態なのか
把握してないんですよね・・・
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")
0050デフォルトの名無しさん
2006/10/31(火) 18:57:060051デフォルトの名無しさん
2006/10/31(火) 19:16:06すごい自分勝手なやつだな
ここってこんなやつばっかりか？
0052デフォルトの名無しさん
2006/10/31(火) 19:42:06何で BASP21 等という訳の分からん物使うんだ？
ファイルの読み書きなんて、ＶＢ標準で出来るだろうが。
0053デフォルトの名無しさん
2006/10/31(火) 19:51:09まぁ質問者は仕様をもっと明確にしたほうが良い
0054デフォルトの名無しさん
2006/10/31(火) 20:43:24ていう風に､いきなり関数をXorに掛けないで､
まずは変数ち取って処理しろ。そしてエラーが出たら､MegBoxなどで
変数自体の値やTypeNameを確認する。無知なりに工夫してやれよ。
これは今回に限らず何でもそうだ。
オマエは行き詰まったら､そこで努力や試行錯誤も止めてるとしか思えない。
0055デフォルトの名無しさん
2006/10/31(火) 21:06:480056デフォルトの名無しさん
2006/10/31(火) 22:33:51ここより、BASPやVBScript、WSHの掲示板で聞いたほうがいいんじゃないか。
0057デフォルトの名無しさん
2006/11/01(水) 00:22:47VB5 使っているのですが、例えばメモ帳の IMEモードを取得したい場合
どうやったらよいですかね？
次番号にコード書きます。フォームの上にラベルコントロール１個、
テキストボックス１個、タイマーコントロール１個を配置してください。
テキストボックスに、IMEが ONなら、０以外の数値が入ります。
0058デフォルトの名無しさん
2006/11/01(水) 00:23:58Private 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
0059デフォルトの名無しさん
2006/11/01(水) 00:25:51メモ帳とか他アプリだと反応しません。
AttachThreadInputも試したのですが、やはり反応しませんでした。
なにか助言ありましたら、お願いします。
0060デフォルトの名無しさん
2006/11/01(水) 23:53:04Imageコントロールに画像を貼り付けた後、それをドラッグして移動させて、
先ほどのImageコントロールの場所にまた別の画像を貼り付ける（この画像もドラッグできる）。
という作業を繰り返せるようにしたいのですが、一つのImageコントロールから
何回も別の画像を取り出せるようにするにはどうしたらいいのでしょうか？
Image1(x)として、xを変更していけばできるのでしょうか…？
006157
2006/11/02(木) 00:18:28フォームに、イメージコントロール１個、テキストコントロール１個、
コマンドボタン１個、シェイプコントロール１個を作成してください。
イメージコントロールの index は 0 に。
下記のコードを貼り付けてください。
006257
2006/11/02(木) 00:19:55Dim 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
006357
2006/11/02(木) 00:20:47If 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
006457
2006/11/02(木) 00:23:00コマンドボタンをクリック。
あとは、適当に動かせるハズ。しょぼいコードですが。
・・・うまくいったら、５７の質問にご協力を・・・。Orz
0065デフォルトの名無しさん
2006/11/02(木) 08:42:19hWnd がしっかり取れてないだけでは。
0066デフォルトの名無しさん
2006/11/02(木) 10:20:21プロセスをコンソールに吐く事くらいしろ。
やりたい事がよくわからんけどヒントやる。
・自分でメモ帳起動して、プロセス取得
・マウスの位置からプロセス取得
・ｳｨﾝﾄﾞｳのタイトルからプロセス取得
まぁ頑張って。
0067デフォルトの名無しさん
2006/11/02(木) 17:03:216.0プロと6.0エンタープライズ
のバージョンに違いはどれ位ありますか。
エンタープライズに出来てプロにはない機能とか、
簡単でいいので教えてください
0068デフォルトの名無しさん
2006/11/02(木) 20:15:52ハルミデザインとオリエント工業くらい違う。
006957
2006/11/02(木) 20:17:49ありがとうございます。メモ帳等のハンドルは取れるのですが、
ImmGetContextについて調べた結果、自アプリ以外の hWnd は
はじいてしまうようです。ImmEnumInputContextを使えばあるいは・・・
というところまでは行ったんですが、AddressOf演算子を使ったりで、
メモリーエラーを頻繁に出すので、もうあきらめる事にします。
>>67
Winsock等の便利コントロールが付いてくるか来ないかの
違いだった気がします。
0070デフォルトの名無しさん
2006/11/02(木) 20:48:430071デフォルトの名無しさん
2006/11/02(木) 23:27:47っていうか今から6.0買う人っているのね
0072デフォルトの名無しさん
2006/11/03(金) 00:06:590073デフォルトの名無しさん
2006/11/03(金) 02:01:46月単位で送ってくるんじゃね？
0074デフォルトの名無しさん
2006/11/03(金) 03:16:090075デフォルトの名無しさん
2006/11/03(金) 09:37:37イチャモンだと思うかもしれないが重要なことだよ。
フォームBは必要なパラメータをプロパティとして公開しといて、
フォームBを作った奴がそれを設定するのがVBではベストじゃないかな。
VBでも工夫すれば他の言語の引数付きのコンストラクタみたいなことも
できないこともないが、コードを書いたときにはうまく書けたように思えても
あとで見直すとわかりにくいコードになりがち。
なんにしろ今時のOOP言語と比べてVBのダメなところがもしわかってないなら
妙な工夫はむしろしない方がいいと思う。
0076デフォルトの名無しさん
2006/11/03(金) 10:53:40http://hanatyan.sakura.ne.jp/vbbbs/wforum.cgi?mode=allread&no=7627&page=0
マルチ乙
0077デフォルトの名無しさん
2006/11/03(金) 11:01:15マルチが悪い理由を系統だてて聞いたためしがない。
俺様の好意を踏みにじる行為だ云々、という浪花節なら何度も聞いたが。
0078デフォルトの名無しさん
2006/11/03(金) 11:19:50まともなプログラム組めるのか？
論理的な思考回路を持ってないとしか思えないがw
0079デフォルトの名無しさん
2006/11/03(金) 11:28:25情に訴えるんじゃなくて論理に訴えてくれ
0080デフォルトの名無しさん
2006/11/03(金) 11:36:13マルチポストの有益なところを聞かせてくれないか？
0081デフォルトの名無しさん
2006/11/03(金) 11:41:26といってもアホにはわからんかw
0082デフォルトの名無しさん
2006/11/03(金) 11:47:34俺は参考までに意見を聞きたかったんだがな。
つ～ことで、以下スルーﾖﾛｗｗｗ
0083デフォルトの名無しさん
2006/11/03(金) 11:51:41って､言い負け宣言だよね。
もう言い返せないから､これ以上虐めないで･･･ってw
0084デフォルトの名無しさん
2006/11/03(金) 11:54:29挙証責任の概念もないのか。
マルチ有罪説を解きたいならそう主張する側がそれを立証しろってw
0085デフォルトの名無しさん
2006/11/03(金) 11:55:4477≠80だｗｗｗ
0086デフォルトの名無しさん
2006/11/03(金) 11:56:130087デフォルトの名無しさん
2006/11/03(金) 12:03:37単に踊らせるために煽ってるだけだってことに気付いているのかな。
そこの操り人形の如く踊っちゃった哀れな道化師君。
0088デフォルトの名無しさん
2006/11/03(金) 12:05:490089デフォルトの名無しさん
2006/11/03(金) 12:07:370090デフォルトの名無しさん
2006/11/03(金) 12:09:410091デフォルトの名無しさん
2006/11/03(金) 12:29:31プログラム書いて機械を踊らせるよりは
シナリオ書いて人間踊らせる方がおもしろい。
0092デフォルトの名無しさん
2006/11/03(金) 12:49:59今時のOOP言語と比べる事自体間違ってるだろ。
優劣なんかなくて、単に適材適所なんだから。
0093デフォルトの名無しさん
2006/11/03(金) 13:02:23何を見当違いなことを。。
誰もVBそのものの他と比べた優劣なんか言ってないだろうに。
ただVBのOOP言語としての問題を踏まえずに下手に工夫をこらすと
策士策に溺れるになるよ、と言ってるだけだろう。
だからベタなコード書けと言ってるわけだが、それも読めないのか。
0094デフォルトの名無しさん
2006/11/03(金) 13:17:53自分が比較してる事すら分かってないのか。
救い様がないな。
0095デフォルトの名無しさん
2006/11/03(金) 13:23:500096デフォルトの名無しさん
2006/11/03(金) 13:30:22何言っても恐らく無駄だろう。
昔から日本の国語教育って問題あるけど、最近若い奴に特に増えてるね。
文章から文脈とか意図とかを正しく読み取れない奴が。
0097デフォルトの名無しさん
2006/11/03(金) 13:55:38お前が一番分かってない
0098デフォルトの名無しさん
2006/11/03(金) 14:04:100099デフォルトの名無しさん
2006/11/03(金) 14:46:13VBでもイベントは継承できるじゃん。
継承元でコーディングして、それをさらに継承すれば
オブジェクトっぽい継承が実現できない？
ちなみに、経験上そんなことはした事ない。
精々、へっぽこＤＢとのIF部品にイベント
を組み込んでカーソルの移動を送ったくらい。
0100デフォルトの名無しさん
2006/11/03(金) 21:41:40返事が遅れてしまいましたが、上手くいきました。
本当にありがとうございました。
0101デフォルトの名無しさん
2006/11/03(金) 22:40:38無理矢理そんな使い方しなくても。
ＶＢらしいコードを書けばいい。
0102デフォルトの名無しさん
2006/11/03(金) 22:41:500103デフォルトの名無しさん
2006/11/03(金) 23:15:08そんなことも知らなかったの？
0104デフォルトの名無しさん
2006/11/03(金) 23:20:05あれは、デフォルトプロパティを持つクラス。
0105デフォルトの名無しさん
2006/11/03(金) 23:23:55Private WithEvents evtTextBox As TextBox
とかって書いて、イベントを紐付ける事ってできるじゃん。
あれをＡｃｔｉｏｖｅＸＤｌｌで実装しようとしたら、
イベントが紐つかないのはなぜ？
オレはわからん・・・。
0106デフォルトの名無しさん
2006/11/03(金) 23:26:16「紐付ける」って何だ？
方言か？
0107デフォルトの名無しさん
2006/11/03(金) 23:27:55イベントを関連付ける。
その前に、お前に質問の意味がわかるの？
0108デフォルトの名無しさん
2006/11/03(金) 23:32:46なんかこのスレにお似合いの間抜けなやり取りだなあ
特に104はアホだろうかw
0109デフォルトの名無しさん
2006/11/03(金) 23:34:25メール欄見るといいよ。
｢これは餌です。釣られないようにw｣って書いてあるから。
0110デフォルトの名無しさん
2006/11/03(金) 23:34:38カスめ。 出直してこい。
0111デフォルトの名無しさん
2006/11/03(金) 23:38:57カス共にヒントをやるよ。
As New とかいてインスタンスが生成できるのは
なんでだと思う？
0112デフォルトの名無しさん
2006/11/03(金) 23:45:39クラスは型でないって見解は初めて聞いたよw
っていうか、VBのコレクションが組み込みのクラスだって見解も本当かよって気もするが。
0113デフォルトの名無しさん
2006/11/03(金) 23:48:45ttp://strawberry.web-sv.com/cgi/up/sgt/nm1567.mp3
0114デフォルトの名無しさん
2006/11/03(金) 23:57:24確かにオマイのいう通りだ。
そもそも、クラスはユーザー定義型だ。なさけねぇ・・・
VBのコレクションは、組み込みのクラスだ。
やっと話が分るヤシがいた。
0115デフォルトの名無しさん
2006/11/04(土) 00:00:39てめぇ！・・・保存しちゃったよ・・・。
>>112
ttp://msdn2.microsoft.com/ja-jp/library/a1y8b3b3.aspx
0116デフォルトの名無しさん
2006/11/04(土) 00:20:130117デフォルトの名無しさん
2006/11/04(土) 00:22:29も、もしかして、釣られてるのか・・？
0118デフォルトの名無しさん
2006/11/04(土) 00:37:44後から本人が出てきて釣りだったと言っても誰も信用しないので
事前に餌として書いているのだという証拠を残しておくって寸法だろう
これで反応しちゃった奴らは､釣られたという事実に対して言い訳出来なくなるし
0119デフォルトの名無しさん
2006/11/04(土) 01:31:53「釣られた」のは言い訳できない事実だが、恥ずかしがる必要は全く無い。
本気で書いてるかどうかなんて本人以外の人がわかるわけないんだから、
どうせ「釣る」ならもっと釣った側も釣られた側も楽しめるようなトリックを仕掛けようぜ。
0120デフォルトの名無しさん
2006/11/04(土) 05:42:43なるべく多くの方の意見を聞きたかっただけです。
別の掲示板なので問題ないと思いますが。。。
0121デフォルトの名無しさん
2006/11/04(土) 09:10:570122デフォルトの名無しさん
2006/11/04(土) 09:27:270123デフォルトの名無しさん
2006/11/04(土) 09:35:48>>99
ありがとうございました。
0124デフォルトの名無しさん
2006/11/04(土) 14:23:10休日なのに楽しそうだな！まったく
0125デフォルトの名無しさん
2006/11/04(土) 15:49:23デスマーチ乙であります。
0126デフォルトの名無しさん
2006/11/06(月) 03:13:23試しにメモ帳に「A」と入力しようとしているのですがなかなかうまくいきません。
SendKeysやkeybd_eventは対象のウィンドウがアクティブでないと使えないのでPostMessageを使おうとしたのですが…、
PostMessage handleOfNotepad, WM_KEYDOWN, vbKeyA, 1
うんともすんともいいません。
handleOfNotepad には事前に取得したメモ帳のハンドルが入っています。
普段は0でメモ帳を起動すると違う値になるのでここは間違えていないと思います。
PostMessageの返り値は1でした。
何が原因なのでしょうか…？
0127デフォルトの名無しさん
2006/11/06(月) 04:00:14WM_KEYDOWN送ってるから。
0128デフォルトの名無しさん
2006/11/08(水) 01:42:03よくわからなかったのでお教えください。
フォームの上のコントロールが移動したりサイズ変更しようとしてもまったくできませんでした。
VSSで管理されていたのでチェックアウトして読み取り専用は編集前にはずしました。
なぜ動かせなかったんでしょうか？
自分で新規作成してフォームに貼り付けたコントロールは動かしたりサイズ変更したりできたと思ったのですが…
0129デフォルトの名無しさん
2006/11/08(水) 01:46:47フォームを右クリック
0130デフォルトの名無しさん
2006/11/08(水) 01:48:21すいません今ソースが手元にない（自宅）なので試せないのですが、
明日会社で試してみます。ありがとうございます。
0131デフォルトの名無しさん
2006/11/08(水) 01:50:48何で気づかなかったんでしょう…ありがとうございます（//▽//）
0132デフォルトの名無しさん
2006/11/08(水) 16:20:24現在、VB6.0+VSFlexGrid7.0で開発中。
そこで、VSFlexGridを使ったサンプルソースのあるような
サイト知ってる？
エロイ人、教えて。
0133デフォルトの名無しさん
2006/11/08(水) 16:44:110135デフォルトの名無しさん
2006/11/08(水) 17:24:01狙って言ってるんだろうけどな。
0136デフォルトの名無しさん
2006/11/08(水) 18:05:59製品に各種サンプルが付いてくるじゃん。
グレープシティのサイトにも色々あるし。
0137132
2006/11/08(水) 18:06:16わかりました。
おい、この下衆野郎。
どうか教えてください。
0138デフォルトの名無しさん
2006/11/08(水) 20:04:13まずはリファレンスで基本を勉強､次に他人の書いたソースで応用を参考に､だろ。
0139デフォルトの名無しさん
2006/11/08(水) 21:19:260140デフォルトの名無しさん
2006/11/09(木) 03:07:11タイムスタンプをチェックしたいんですが
Timerコントロールで5秒おきに、その時間かどうかチェックさせてます
具体的には↓な感じに
DateDiff(n,format(now,"HH:MM"),format(destTIME,"HH:MM")
Timerコントロールで毎5秒チェックってのが気に入らないんですが
リアルタイムにさせる事はできますか？
0141デフォルトの名無しさん
2006/11/09(木) 03:17:150142デフォルトの名無しさん
2006/11/09(木) 09:08:53その上に別のウィンドウを重ねると重なった部分だけグラフが消えてしまいます。
どなたかお教えいただけないでしょうか？
0143デフォルトの名無しさん
2006/11/09(木) 09:30:510144デフォルトの名無しさん
2006/11/09(木) 09:48:34アイテム(行)をD&Dで入れ替えられるようにするのはどうすればいいですか？
0145デフォルトの名無しさん
2006/11/09(木) 12:27:38再描画しる。
>>144
MouseDownイベントとMouseUpイベントで、行が違う場合に
それぞれの行の情報を入れ替えるみたいな、地道な作業が
ぱっと思い浮かんだ。
もしかしたら、HitTestメソッドとか使わないと、自分の列が取得
できないかも。
ガンガレ。
0146デフォルトの名無しさん
2006/11/09(木) 14:10:54MouseDownとMouseUpで､D&D開始位置と終了位置の
行番号を取得する部分まではガンガって作ってみたものの､
26列のSubItemを一つ一つ移動するのはどうかと思い､
質問に来た次第です。
最低でもListItem単位の入れ替えが出来ないものでしょうか?
出来ればFlexGridの
RowPosition(元の行番号) = 移動先行番号
の様に､インデックスのみで操作出来れば理想的なんですが。
0147デフォルトの名無しさん
2006/11/09(木) 15:28:01オレが知る限り、いきなり移動はできないと思うが、subitem単位じゃなくて
ListItemという型を使って、行単位ではどうよ？
0148デフォルトの名無しさん
2006/11/09(木) 16:30:300149デフォルトの名無しさん
2006/11/09(木) 19:44:120150デフォルトの名無しさん
2006/11/09(木) 21:23:550151デフォルトの名無しさん
2006/11/09(木) 21:39:56それをいうと元も子もない。
CでWin32Apiかけるようになれば、VBアプリ自体、
裏でちまちまと動いてるのがわかる。
けど、生産性と要員の確保から考えると、
オレはVBはスゴイと思うし、結構好きだ。
0152デフォルトの名無しさん
2006/11/09(木) 23:34:39つまりそれがお前にとっての良い提案か。
0153デフォルトの名無しさん
2006/11/10(金) 13:42:130154デフォルトの名無しさん
2006/11/10(金) 18:59:00プロセスIDからそのプロセスが存在するか、
存在する場合にWindowsのハンドルないし、タイトルが
取得できるようなAPIはありますか？
もしくは、APIを工夫して、そのような処理が実現できますか？
0155デフォルトの名無しさん
2006/11/10(金) 19:06:37自己レスします。
解決しました。
OpenProcess
0156デフォルトの名無しさん
2006/11/10(金) 22:51:11複数のフォーム（画面）があるプロジェクトで、各画面のテキストボックス
などのサイズを変更しています。
変更中の画面を（プログラム実行時のような表示で）プレビュー確認したい
のですが、実行(F5)してしまうと、変更中の画面ではなく特定の画面が表示
されてしまいます。（スタートアップフォームの画面？）
変更している画面をその場でその画面だけを実行時のプレビューとして確認
したいのですが、何か方法はありますでしょうか。
（他の設定類やプログラムなどはできれば変更したくないです。）
0157デフォルトの名無しさん
2006/11/11(土) 02:20:47設定もプログラムのいじらないでってことなら、
実際にプログラムを実行していってそのフォームを開くしか方法なさそう。
0158デフォルトの名無しさん
2006/11/11(土) 06:30:42よく言っている意味がわかならいが・・・
プロジェクトのプロパティで、スタートアップの設定が
画面になってるんでしょ？
まずは、Sub Mainからスタートさせることからしない？
それぞれの画面でオマイの言うテキストボックスなどの
変更が発生した場合用にグローバルなプロパティを
コーディング。
次にSub Mainの中で、オブジェクト変数を書いて
そこに画面のインスタンスを生成。
そして、Call Load(おぶじぇくと) としてメモリに溜めこんで
各オブジェクトから変更用プロパティを参照して、フラグが
立っている画面だけをShowしてやればおｋ？
>>156
よく言っている意味がわかならいが・・・な・・・
0159156
2006/11/11(土) 10:17:50>>157
やはりそういう手順になってしまいますか。
>>158
すみません。説明不足なところがありました。
すでに出来上がっているアプリケーションの画面のテキストボックスのサイズ
をマウスでドラッグするなどして変更する、というだけの行為なのですが、
変更する画面が複数あるので、実際の画面を確認するのに実行／開始(F5)
をして該当する画面までたどっていくというのが面倒だなと思い、ショートカット
する感じで変更した画面（編集中の画面）を確認する方法はないものかと質問
したしだいです。
ただ作っている最中の画面の確認をしたい、というだけなのでコード類はいじり
たくないというのがあります。
（ほかの人が作ったものの上、私はVB操作の経験があまりありません。）
それで方々調べてみたのですが、それらしいことが見つからなかったので、ここに
質問させていただきました。
>>156の文面じゃよくわかりませんね。orz
0160デフォルトの名無しさん
2006/11/13(月) 15:40:34バージョン情報の中にはソレっぽい項目がなくて…
VB5のときにはタイトルに[(SP○)]とＳＰ番号がくっついていたのですが今回見あたりません。
別のハードディスクに過去につかっていたＶＢがあり、ＳＰのセットアップ中、そっちのドライブに書き込まれているような
表示もあったりでほんとうに適用できているか不安なもので…
そのへんの情報のググり方のコツでもいいです… orz
0161デフォルトの名無しさん
2006/11/13(月) 15:48:450162160
2006/11/13(月) 17:30:41どもです。
ためしにライセンス違反覚悟で、他のドライブが１つしかないＰＣで
全部のセットアップをやりなおしたら、ＳＰ６の表示がありました。
ダメな方は、どうもおかしな環境になっていて、VisualStudio自体が正常にインストール出来てないようでした。
ドライブ指定しようと何しようと、旧ドライブに何か書いた上に失敗って出てる…気付かなかった orz
0163デフォルトの名無しさん
2006/11/13(月) 20:38:56なぁなぁ？
オレってば、すごい不思議なんだけどよぉ？
どうして、インストールするだけの作業で失敗すんの？
なぁなぁ？なんで？
0164デフォルトの名無しさん
2006/11/13(月) 20:40:360165デフォルトの名無しさん
2006/11/13(月) 21:32:08レジストリとかをを変に弄ってたりすると失敗する事もある。
0166デフォルトの名無しさん
2006/11/14(火) 09:20:11誰でも出来るインスコ作業を能力で失敗できるなら、それはそれで才能だとおも・・・いたい
0167160
2006/11/14(火) 11:16:58窓９８だったのを２ｋに上書きしていて、ＶＢ４が旧と新の両方に、ＶＢ５が新にインストールされている。
セットアップ中のインストール先を見ていると、先のを全部見つけ出して、勝手に分解して失敗してるようだ。
レジストリは触ったことないが、さすがにアホい環境っぽいので、新規購入のほうで使うことにする…＞ＶＢ６
へんなことですまん。
0168デフォルトの名無しさん
2006/11/14(火) 11:37:37つーか仕事用でプログラム環境構築なら
OSごと全部クリーンインスコすべし
0169デフォルトの名無しさん
2006/11/14(火) 12:07:43まぁ、その、なんだ。
ガンガレ。
0170160
2006/11/14(火) 15:41:02>>168
ＰＣから８ビットＣＰＵまで、扱うものがいろいろ有りすぎるのに、ＰＣ１台しかもらえず各種環境詰め込み…
上位ＰＣに移行するにも、並べて使えるワケでもなくて、いちからやり直すとすざまじく……
ＨＤＤ移植で今回の惨状。
もうじき新規にＰＣを購入してもらえるので、そっちはクリーンインスコでいきまふ。
0171デフォルトの名無しさん
2006/11/14(火) 17:58:05色々調べているのですが、それらしい資料に当たれません。
ご存知の方、方法論でもヒントでもいいので、情報下さいませorz
0172デフォルトの名無しさん
2006/11/14(火) 18:06:36お前は１すら読めないのか
氏ねばいいのに
0173デフォルトの名無しさん
2006/11/14(火) 19:29:15バッチファイルでさえ作れる。
0174デフォルトの名無しさん
2006/11/14(火) 22:07:080175デフォルトの名無しさん
2006/11/14(火) 22:53:52何か投稿してみりゃいいじゃん。
0176デフォルトの名無しさん
2006/11/14(火) 23:47:00起動したいのですが、シンプルに作れそうなそういうAPI系のコード
ないでしょうか？TELNETとかwinsocとか駆使して自前で作らないと
難しいでしょうか？Vb6（SP3）,OsはXPです。Sunワークステーションはsol.10です。
0177デフォルトの名無しさん
2006/11/14(火) 23:48:39俺だったらhttps経由でCGI操作するが。
0178デフォルトの名無しさん
2006/11/14(火) 23:52:01やりたいことは過去ログの勢い(生存時の勢い)の一覧を作ることです。
勢いは時間当たりのレス数で算出する為､どうしてもスレが立ってから最終書込まで
何ヶ月何日何時間掛かったのかを調べる必要があるのです。
スレが立った日時はスレの番号から､レス数は過去ログ倉庫のsubject.txtから
取得できることがわかり､そこまではコードも書いたのですが､最後のレスの日時だけがわからず行き詰まってます。
●は持っているので●を使う方法でも構いませんが､●でログインする方法とかは全然わからないので､
具体的なサンプルコードでの回答をお願いします。Visual Basic6sp6です。
0179デフォルトの名無しさん
2006/11/14(火) 23:59:182chサーバの負担になりそうだから教えない
0180デフォルトの名無しさん
2006/11/15(水) 00:18:250181デフォルトの名無しさん
2006/11/15(水) 00:18:54どうすればいいでしょうか？
0182デフォルトの名無しさん
2006/11/15(水) 00:25:31いっぱいとは
一つの六角形を最大の大きさに？
固定の大きさの図形をいっぱい敷き詰め？
三角の組み合わせなんだからパズル的にやってみよう
0183デフォルトの名無しさん
2006/11/15(水) 00:58:47レスありがとうございます。
固定の大きさの図形をいっぱい敷き詰めです。
0184デフォルトの名無しさん
2006/11/15(水) 01:09:23じゃあ固定の六角形の大きさわかってるんだから敷き詰めるだけでしょ
0185デフォルトの名無しさん
2006/11/15(水) 01:37:43正六角形が書けないのですが・・・
どうしたらいいのでしょうか？
0186デフォルトの名無しさん
2006/11/15(水) 01:48:32三角形くらい書けるだろ
一辺がわかれば高さもわかるだろ
線と点の交点は習っただろ
三角形を組み合わせれば六角形が書けるだろ
正三角形の角度くらいわかるだろ
HEX描画くらいぐぐれば出てくるだろ
一個の六角形が書ければ重ねるだけでしょ
色々やり方あるでしょ
0187デフォルトの名無しさん
2006/11/15(水) 02:05:24三角形は書けますが・・・
その方法で書くと六角形の中に線が出てくるので、
六角形のそれぞれの頂点の座標を指定して書いてみましたが、うまく書けずに縦長になってしまいます。
適当な大きさの正六角形の座標を教えていただけないでしょうか？
0188デフォルトの名無しさん
2006/11/15(水) 02:14:24ちゃんと計算した？タイルにするには正六角形+αが無いとめんどくさいよ
重ねる事も考えて作ろうね
0189デフォルトの名無しさん
2006/11/15(水) 02:31:42top:
left 30
forward 100
right 30
forward 100
right 30
forward 100
left 30
forward 100
if x < width goto top
以下略
0190デフォルトの名無しさん
2006/11/15(水) 06:41:31スペースで調整するとかではなく､文字寄せ方向の変更です。
0191デフォルトの名無しさん
2006/11/15(水) 08:09:21バカだろ。
文字寄せっていうのは、内部で文字位置を調整してる
だけなんだよ。
コンボボックスの場合は、APIで位置を調整するしかない。
0192デフォルトの名無しさん
2006/11/15(水) 08:54:150194デフォルトの名無しさん
2006/11/15(水) 15:07:220195デフォルトの名無しさん
2006/11/15(水) 15:33:21もしかして、右から左に読むとか双方向テキストの表示と
勘違いしてない？
0196デフォルトの名無しさん
2006/11/15(水) 15:46:58タブで揃えようとしてもずれるんですが、
うまく揃える方法はありませんか？
スペースをいくつ足すとよいか計算する方法とか。
0197デフォルトの名無しさん
2006/11/15(水) 15:51:52それ、おもしろい宿題じゃん！
再帰なんかで書いたら、結構格好いい関数できると思うよ。
オレも、夜眠たくなったら、ちょっとコーディングしてみるよ。
0198デフォルトの名無しさん
2006/11/15(水) 15:52:00プロポーショナルフォントだと
スペース使用で揃えるのは難しいと思うよ
0199デフォルトの名無しさん
2006/11/15(水) 15:56:39最大文字幅を10とした場合ね
maxlen = 10
txt = "(スペース10個)"
len = strlen(in_txt)
mid (txt, maxlen - len, in_txt)
脳内コードだが動くと思う
in_str の長さが10 以上だとエラー起こす
つかこれぐらい考えれ
0200デフォルトの名無しさん
2006/11/15(水) 16:07:02テキスト入れて、width取り出して、、、で出来ないかな。
0201デフォルトの名無しさん
2006/11/15(水) 16:10:44的を外してる。
>>196
たしかに、プロポーショナルフォントだとインデントがそろわない。
う～ん。 難しいねぇ～。
多分、ぴったりインデントは無理かもしてないけど
なんとなくインデントを合わせる事はできるのかもしれない。
0202デフォルトの名無しさん
2006/11/15(水) 18:20:250203デフォルトの名無しさん
2006/11/15(水) 19:05:210204デフォルトの名無しさん
2006/11/15(水) 19:54:400205デフォルトの名無しさん
2006/11/15(水) 21:28:37ComboBox内のEditのハンドルを取得してSetWindowLong、かな？
Win32APIスレあたりが適当かと。
0206デフォルトの名無しさん
2006/11/15(水) 21:35:28カスめ。
オレはお前らのような落ちこぼれが死ぬほど
嫌いだ。
お前らはカスなんだよ。
0207デフォルトの名無しさん
2006/11/15(水) 22:38:35カス
オ
0208デフォルトの名無しさん
2006/11/15(水) 22:47:110209デフォルトの名無しさん
2006/11/15(水) 23:26:290210デフォルトの名無しさん
2006/11/16(木) 08:57:36プロポーショナルフォントでなければ、そうなんだけどなぁ
詰が甘いな
0211デフォルトの名無しさん
2006/11/16(木) 09:23:55Form1, Form2, Form3 とあって、Form上のボタンを押すと子Formを
Modalで開いています。
子Formの最小化Btnを押したら、子Formを含む全てのFormを最小化
したいのですが、とりあえず子FormのForm_Resizeイベントに親Form
のWindowStateを設定するように書いてそれっぽく動くようになりま
した。
ただ、親Formを最小化した瞬間に、子Formのアイコンが消えてしまっ
て、最小化状態から元に戻せなくなるという現象が起きています。
Windowsの制約っぽい気もするのですが、これを回避する（親Formを
最小化しても、Modalで開いた子Formを非表示にさせない）方法は
ありますでしょうか？
0212デフォルトの名無しさん
2006/11/16(木) 09:36:28タスクバーからって子フォームが消えるって事？
ちなみに、そんなレベルの話でWindowsの制約云々と判断するにはまだ早くね？
0213デフォルトの名無しさん
2006/11/16(木) 12:19:28モーダルで子フォームを開いているのに
なんで、親フォームが触れるんだよ・・・
0214デフォルトの名無しさん
2006/11/16(木) 13:05:20>211
>子FormのForm_Resizeイベントに親FormのWindowStateを設定するように書いて
0215デフォルトの名無しさん
2006/11/16(木) 13:40:32モーダルは絶対使わない方がいい。
0216デフォルトの名無しさん
2006/11/16(木) 13:53:12なるほどねぇ。。。
なんてマヌケなUIなんだ。
Form2がShowされるときにもリサイズイベント通るんじゃないの？
それは現象というより、どうみても仕様通り動いてるだけ。
というか、やめとけ。
どうしても実装したいなら、子画面をActiveXのexeか、通常のexeにして、
プロセスIDをわけて、個別にAPIでシコシコ挙動を制御すれば実現可能だけど・・・
恥ずかしいプログラミングだｗ
0217デフォルトの名無しさん
2006/11/16(木) 16:02:45long型の変数に浮動少数点（1.1）などの値を入れた場合
値は自動的に四捨五入されるようですが、この動作はプログラムで
保証されているのでしょうか？
dim temp as long = 1.1
deboug.print temp
1
-------------------------
dim temp as long = 1.5
deboug.print temp
2
0218デフォルトの名無しさん
2006/11/16(木) 16:17:540219デフォルトの名無しさん
2006/11/16(木) 16:38:34回答する知識がないのならレスすんな。
俺も知らんが。
0220デフォルトの名無しさん
2006/11/16(木) 16:51:25あらし、氏ね
>>217
まず根本的に勘違いしてる。四捨五入はされない。
1.5は2になるが、2.5も2になる。
暗黙の型変換では内部でRound()されてる。詳しくはRound()のHelp参照。
Round≠四捨五入なので注意。
0221デフォルトの名無しさん
2006/11/16(木) 17:09:20勝手に四捨五入されるのも怖い。
基本中の基本だからねぇ・・・
カレンシーの保証する小数桁数も3桁くらいじゃなかったっけ？
浮動少数は誤差が発生するし。
難しいよね～
0222通りすがりの浮動小数点数野郎
2006/11/16(木) 18:26:38これらの和は桁数が足りる限り不動小数点数で表現しても誤差が発生しないので
安心して使ってくれ！ｗｗｗ
（実装がマトモならリテラル・文字列からの変換でも大丈夫なはず。）
ちなみにリテラルからの変換は文字列からの変換と同じく
10進→2進変換なんで、その逆変換ともども
単純な表現誤差以外に結構厄介な問題がある。
（浮動小数点演算の黎明期、確か1960年代頃にはその話題で
変換の精度についてアメリカ数学会に論文が書かれたくらい厄介な問題だ。）
心配なら整数で初期化してから割り算して値を作れば丸め誤差は入るけど、
より厄介な10進2進変換の誤差は紛れ込まなくなるのでオススメ。
（桁数が足りてる限り整数の10進2進変換には誤差がなく、表現の誤差もからね。）
0223デフォルトの名無しさん
2006/11/16(木) 18:41:48浮動小数点型に誤差が発生するのは基本中の基本だよ・・・
悲しくなるよ・・・。
0224デフォルトの名無しさん
2006/11/16(木) 18:45:31Dim i As Long
For i = 0 To 9
s = s + 0.01
Next i
カナシス・・・。
業務系は浮動小数は極力使わないよ・・・
0225デフォルトの名無しさん
2006/11/16(木) 19:59:32HTMLが表示出来て､軽いコンポーネントを教えてください。
WebBrowserコンポーネントは､重いというか起動が遅すぎて使えません。
ローカルのhtmlファイルを読ませるだけなので､多機能は求めません。
WindowsXP SP1､Visual Basic6 SP6の環境で使えるフリーのものでお願いします。
0226デフォルトの名無しさん
2006/11/16(木) 20:09:050227225
2006/11/16(木) 20:22:03それ自体に時間を食ってしまうため､今回別コンポ探しに来ました。
0228デフォルトの名無しさん
2006/11/16(木) 20:23:10ＶＢを使うなら、「～が遅い」ってのはハードの増強で解決するのが基本。
WebBrowser が遅すぎて使えない、ってどんなスペックだよ一体。
0229デフォルトの名無しさん
2006/11/16(木) 20:39:12Xeon5150x2、メモリは2GBです。
WebBrowserを起動させようとすると結構待たされます。
0230デフォルトの名無しさん
2006/11/16(木) 20:40:29どのくらいの時間待たされるの？
0231225
2006/11/16(木) 20:42:46スペックはAthlon64 FX57にDDR2-677 2048MBです。
スペックはそんなに低くないと思いますが､これ以上スペックを上げて
WebBrowserの起動が速くなっても､他のも速くなるから
相対的にWebBrowserの遅さが目立つのは変わらないと思います。
人間の感覚は絶対性より相対性の方が濃いですから。
とにかく今回はコンポーネント探しをしております。
代用法や基本を教えていただけるのはありがたいですが
失礼ながら求めているものとは違うので､引き続きコンポーネントの回答をお待ちします。
0232デフォルトの名無しさん
2006/11/16(木) 20:55:28VB4.0でADOを使用してデータベースへ接続するように記述して、
デバッグしたところうまく動いたので、Exeファイルを作成してみたのですが、
何度やっても「ご迷惑をおかけしております…」というようなメッセージが出て強制終了されてしまい
Exeファイルが作成できません。
いろいろやってみたところ、キーワード"New"がよくないように思いました。
Set cnt = New ADODB.Connection
この行を削除したらコンパイルできたので。
下記のように、宣言時にNewをつけてみてもだめでした。
Dim cnt As New ADODB.Connection
解決法などあればよろしくお願いします。
0233デフォルトの名無しさん
2006/11/16(木) 20:55:40次の質問どうぞ。
0235デフォルトの名無しさん
2006/11/16(木) 21:03:27どんだけ高性能なマシンだよ・・・。
オレの会社の開発マシンなんか、ﾄﾞﾄﾈﾄだとコーディングに
文字が追いついてこないようなウンコマシンだけど
それでもWebBrowserでサクサク動く。
処理、間違えてるんじゃない？
0236デフォルトの名無しさん
2006/11/16(木) 21:06:39開発マシンとexeを実行しているマシンは同一？
しかも、NEWでコンパイルエラーという事は、参照設定
してないんじゃないの？
0237232
2006/11/16(木) 21:11:09ちょっと面白かったです。
>>236
Exeを実行しているマシンというのがどれを指すのかちょっとわかりませんが、
自分のPCでVB起動してコード書いてコンパイルして、ってやってまして
それで今回はExeファイルすら作れないという状況です。
参照設定はできてると思います。
オブジェクトブラウザから見れますし、デバッグ(F5押してやるやつ…)では
たしかに動いていましたから。
0238デフォルトの名無しさん
2006/11/16(木) 21:51:55CreateObject でやるとか。
0239デフォルトの名無しさん
2006/11/17(金) 01:33:20無いと答える必要はない。
何故なら悪魔の証明にあるように､無の証明はまず出来ないからだ。
一個人の｢無い｣という回答は､｢俺は知らない｣と同義。
0240デフォルトの名無しさん
2006/11/17(金) 04:29:08> HTMLが表示
→テキストでおｋ
> ローカルのhtmlファイルを読ませる
→ファイル直読みできるメソッドアリ
つ RichTextBoxコントロール
0241デフォルトの名無しさん
2006/11/17(金) 05:00:35一．答えられない質問は無駄に罵倒せずスルー。無理するな。
二．代用法を強制しない。
0242デフォルトの名無しさん
2006/11/17(金) 05:39:240243デフォルトの名無しさん
2006/11/17(金) 05:46:29あえて心得を外すほどの回答は無いようだが。
0244デフォルトの名無しさん
2006/11/17(金) 06:32:25せめて、F8。
Option Explicitもつけて。
0245デフォルトの名無しさん
2006/11/17(金) 14:31:32その割には質問者には.NETはスレ違いだの､ググれMSDN読めと強制していたような･･･
> あえて心得を外すほどの回答は無いようだが。
いや､そうでもない。
0246デフォルトの名無しさん
2006/11/17(金) 15:36:500247デフォルトの名無しさん
2006/11/17(金) 16:35:400248デフォルトの名無しさん
2006/11/17(金) 21:05:52ググルのと、MSDN をそれらしい言葉で検索するぐらいのことしてから
質問するのは常識だと思うけど。
質問者自身のためにも。
0249245
2006/11/17(金) 21:19:06あのー､それを俺に言われても･･･。
>>1に書かれていることはルールではないと言ってるのは>>243だよ。
俺はそれを受けて､ルールじゃないと主張する割にはルールのように強制してるな､と返しただけ。
俺自身は.NETはスレ違いだと思うし､先に検索するのを含めて
｢○ 質問者の心得｣も｢○ 回答者の心得｣も､それぞれが守るべきルールだと思ってる。
0250デフォルトの名無しさん
2006/11/17(金) 21:24:44頭の固い人だな、気持ち悪い
0251232
2006/11/17(金) 21:29:11CreateObjectでコンパイルできました!
ありがとうございます。
しかしなぜ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前に値の設定をしたいのです。
長くなってすみませんが、よろしくお願いします。
0252デフォルトの名無しさん
2006/11/17(金) 21:30:25いま、PCとある機器を繋いで１分間隔でデータを要求し、それに対して 返信をもらうようなロガー機能を持たせたシリアル通信プログラムを
作っているのですが、知識が薄いために困っています。使用機能はMScommです。
具体的には、文字列データ約50個を１分おきに送信して （このﾀｽｸはタイマールーチンに入れます）機械に要求し､
それに対して応答が来れば受信→ファイルに書込み→ 最終的には時刻と機械から取り込んだ複数の数の関係を
グラフにしたいと思っています。 困っているのは受信のｺｰﾄﾞの記述ですが、本ｹｰｽにおいては､
ｲﾍﾞﾝﾄﾄﾞﾘﾌﾞﾝ形式で（Rthreshold=1,Sthreshold=1等と設定して､） １文字ずつ受信→イベント発生→１文字データ読取
とさせることが厳しい（と思う）いうことです。
ソース的には ①～④までのﾀｽｸを１分周期で行いたいです。できれば ｳｫｯﾁﾄﾞｯｸﾞ機能もつけたいですね。
①メインルーチンをタイマーにして、MSComm1.Output="G aa bb cc dd ee ff "
のように、相手機械にaa,bb,cc,dd,eeという変数を要求（ちなみに
Ｇは相手側機械に要求するというｺﾏﾝﾄﾞ） ②要求に対する受信を待つ→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"
③ここで１文字ずつ受信ごとにイベント発生ではなく送信完了したら、受信待機を始めて受信バッファに
たまったものを一度で書き込む①～③を４回繰り返す（データが大量にあるため、４回にわけないといけない）
④ファイルに書込み
ＶＢシリアル通信にお詳しい方､どのようなｺｰﾄﾞにすれば良いかお教え下さい。相当困っています。
以上､よろしくお願いいたします。
0253デフォルトの名無しさん
2006/11/17(金) 21:41:270254デフォルトの名無しさん
2006/11/17(金) 22:01:29そもそも何故ＶＢ４・・・
まさかＯＳはＮＴ４なの？
0255デフォルトの名無しさん
2006/11/17(金) 22:43:53人に話すのと人に説明するのが同じ人間って言われないか？
読みづらいんだが…しかも激しく
0256デフォルトの名無しさん
2006/11/17(金) 22:51:48一．答えられない質問は無駄に罵倒せずスルー。無理するな。
0257デフォルトの名無しさん
2006/11/17(金) 22:53:14三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。
0258デフォルトの名無しさん
2006/11/17(金) 23:02:51無駄に罵倒する理由にはならない。
ルールは守るべきだ。
0259デフォルトの名無しさん
2006/11/17(金) 23:09:280260デフォルトの名無しさん
2006/11/18(土) 00:05:39ある特定の範囲内にドロップされたImageコントロールを、
特定の座標に移動させたいのですが、どのようにすればいいでしょうか？
0261デフォルトの名無しさん
2006/11/18(土) 01:27:07割り込み使うならSAMPLESにあるVBTERM参考にすればどうよ
あるいは送信して受信完までループさせて待つ手もある
0262デフォルトの名無しさん
2006/11/18(土) 02:17:59ありがとうございます。VBTERM発見しました。
これを元に考えてみます。
0263デフォルトの名無しさん
2006/11/18(土) 03:10:10全ての処理をバックグラウンドで行いたくて、ダイアログ等の表示が無い様にしたいんです。
IEのオブジェクトを使うと、どうしてもSSLの認証ダイアログが出てきてしまうのですが、非表示で処理する方法って無いですか？
0264デフォルトの名無しさん
2006/11/18(土) 13:51:180265デフォルトの名無しさん
2006/11/18(土) 14:15:290266デフォルトの名無しさん
2006/11/19(日) 16:25:23で質問させてもらいます。
テキストファイルを読み込んでその中の最後から５行ほどだけを
を表示する方法を教えてください。
0267デフォルトの名無しさん
2006/11/19(日) 16:54:59全部または最後の五行分が余裕で入るくらいの情報を読み込んで後ろから改行コードを探す
0268デフォルトの名無しさん
2006/11/19(日) 17:10:24ttp://up2.viploader.net/pic/src/viploader354556.bmp
Command1を押してText1に入力した文字を変数にいれて
Command2を押すとLabel1にその変数が出力されるという問題なんですが
変数のところがよくわかりませんよろしくお願いします
0269デフォルトの名無しさん
2006/11/19(日) 17:19:130270デフォルトの名無しさん
2006/11/19(日) 17:21:08問題って、専門学校か何か？
VBを勉強する学校とかあるのかな？
教えるから、教えてよ。
Dim ABCD AS long
を
Private ABCD AS string
として、しかも一番上に書くとおｋ
0271デフォルトの名無しさん
2006/11/19(日) 17:38:51どうせスクリプトならjavaスクリプトの方が使えるぞ。
SSL認証きいてくるなら、しょうがないような気がするんだが
自分でサーバたてればねぇ
0272デフォルトの名無しさん
2006/11/19(日) 17:39:02Private ABCD As String
ABCD = Text1
End Sub
上記のようにジェネラル欄にいれたんですが変数がCommand2押しても
だめなんですがどうすれば後コマンド1-2部分は合っていますか？
>>269 Dim をどこにいれればいいですかね
>>270 都内のコンピュータ情報系みたいな専門学校です
0273デフォルトの名無しさん
2006/11/19(日) 17:40:04Private ABCD As String
Private Sub General()
0274デフォルトの名無しさん
2006/11/19(日) 17:44:100275デフォルトの名無しさん
2006/11/19(日) 18:01:27すげぇかわいい。
今は打算でしか、物事を考えられないオレも
昔はそうやって自分で勉強したんだって記憶が
蘇ってきた・・・
0276デフォルトの名無しさん
2006/11/19(日) 18:04:270277275
2006/11/19(日) 18:07:57＿|￣|○ il||li
0278263
2006/11/19(日) 19:02:21そうなんですよねぇ。相手が取引先の鯖なので手が出せないんですよ。
仕方が無いので、OpenSSLのソース使ってCで認証だけ通す事にしました。
ActiveX化されたものもあるみたいなのですが数十万オーダーでしたので、自作します。
ありがとう御座いました。
0279デフォルトの名無しさん
2006/11/19(日) 19:11:53ちゃんと勉強してからいいなはれ。
世間ではよく誤解されているようだが
浮動小数点数にはいつモヤモヤと誤差があるわけじゃない。
値によってはちゃんと誤差なく表現が出来る。
まず小数部の桁数（ビット数）が足りている限り整数は全く誤差なく表現できる。
また(1/2)^nは10進表現で言えば(1/10)^mに当たる特別な数字群で
2進数の浮動小数点表現でも桁がずれる（つまり指数部の数字が変わる）
だけなので整数と同じく全く誤差なく表現できる。
（指数部が桁あふれしない限りな。）
そしてこれらの数の間の加減算は桁あわせした際に桁数が足りている限り
完全に正確に行われる。
さらに乗除算の場合は指数部の桁数が足りている限り完全に正確に行われる。
つまり浮動小数点数も注意深く使えば全く誤差のない表現と演算が可能だ。
そしてこの性質と
一部のプロセッサでは専用ハードウェアによってlongを使う整数演算より
浮動小数点演算のほうが早いということを生かして大量の整数演算する際に
わざわざ浮動小数点演算を利用するという研究が実際にある。
0280デフォルトの名無しさん
2006/11/19(日) 19:19:18どうでもいいから、>>224を試しに実行してみればいいじゃん。
0281デフォルトの名無しさん
2006/11/19(日) 19:22:56Dimのままじゃだめなんですか
0283デフォルトの名無しさん
2006/11/19(日) 20:28:29５行分のバッファを用意して、最初から順番に読んで格納し、
６行目は一行目のバッファに上書きして・・・ってやればいい。
最後迄読めば、最後の５行分が残るでしょ。
0284266
2006/11/19(日) 20:34:23できました
0285デフォルトの名無しさん
2006/11/19(日) 23:42:100286デフォルトの名無しさん
2006/11/19(日) 23:51:17俺はルールを守っている。
0287デフォルトの名無しさん
2006/11/19(日) 23:53:44ある範囲内に
Imageをドラッグドロップした座標4点が含まれてるか調べる。
含まれてたらImageを特定の座標に移動。
0288デフォルトの名無しさん
2006/11/20(月) 09:26:51オマイの回答と>>260の質問と、何が違うのか教えてくれｗ
0289287
2006/11/20(月) 10:50:00ソース無しで答えるにはこれが精一杯だと思うｗ
まぁ書いてることは変わってないけど・・・
書いてるとおりの事をソースで書けば良いだけなのになぁ・・・
0290デフォルトの名無しさん
2006/11/20(月) 11:50:53一．答えられない質問は無駄に罵倒せずスルー。無理するな。
0291デフォルトの名無しさん
2006/11/20(月) 11:53:55わかりました、ありがとうございます
もう少し頑張ってみますね
0292デフォルトの名無しさん
2006/11/21(火) 14:31:16せいぜい、コレクションくらいしか、今のところ知らない。
ArrayListすらVB6.0にはないよね？
ないなら、自作しかないのかな？
0293デフォルトの名無しさん
2006/11/21(火) 16:53:090295デフォルトの名無しさん
2006/11/21(火) 18:36:52それと、リストボックスで選択したものをファイルに書き込みたいのです。
以下のようにやってみたのですが、うまくいかずどうしていいか分かりません。
教えていただけないでしょうか。
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
0296デフォルトの名無しさん
2006/11/21(火) 18:40:35BreakPoint仕掛けてるのに一向に通ってくれないよ。
Spaceとか他のキーならOKなのにEnterだけ効かん。orz
0297デフォルトの名無しさん
2006/11/21(火) 18:55:000298デフォルトの名無しさん
2006/11/21(火) 18:59:22普通はくるね。
0299デフォルトの名無しさん
2006/11/21(火) 19:02:09環境変数でTMPあたりから取得したパスを加工するとか
あらかじめ、環境変数に入れとくとかじゃだめ？
0300デフォルトの名無しさん
2006/11/21(火) 19:07:53Command Button のどれかをデフォルトボタンにしてるのでは。
>>297
環境変数の USERPROFILE を参照するとか。
0301デフォルトの名無しさん
2006/11/21(火) 19:08:12Dim obj As Object
Set obj = CreateObject("WScript.Shell")
Debug.Print obj.SpecialFolders("MyDocuments")
0302デフォルトの名無しさん
2006/11/21(火) 19:13:58ソースが汚ねぇ
それに Str(i)ってどこで宣言してる？
Option Explicitを入れてコンパイル汁。
あとdirlの宣言ではバリアントになってるけどいいの？
0304デフォルトの名無しさん
2006/11/21(火) 19:19:45今直してみて、２つディレクトリを使って
「次へ」を押したときに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
0305デフォルトの名無しさん
2006/11/21(火) 19:24:150306デフォルトの名無しさん
2006/11/21(火) 19:31:01まさにソースに書いてある通りに動いてる。
cotの値はいくら？
0307デフォルトの名無しさん
2006/11/21(火) 19:36:44申し訳ありません。
あと、もうひとつ質問なのですがリストボックスで選択したものをファイルに書き込みたいのです。
以下のような、書き方では書き込むことは出来ませんか？
Open "C:\DATA\OrderData.csv" For Append As #2
Write #2, list1.Text, _
list2.Text, _
list3.Text, _
Close #2
0308デフォルトの名無しさん
2006/11/21(火) 19:52:24Picuture1.Heightでは高さが変わるんですが
Picture1.ScaleHeightではピクチャーボックスの大きさが変わりません
値の取得はできるのですが…
大きさの方はフレームの分も考えながらHeightで設定しなければいけないのでしょうか？
0309デフォルトの名無しさん
2006/11/21(火) 19:58:46ScaleHeightに値を設定すると、ユーザー設定の座標系になるんですね。
ScaleHeight=100 としたら、上から下までを100とするオリジナルの座標系になると
いや、分かりにくい書き方ですけど自己解決
0310デフォルトの名無しさん
2006/11/21(火) 23:16:19初心者におすすめの入門書、参考書を教えてください。
0311デフォルトの名無しさん
2006/11/22(水) 00:04:35いまさら6.0をはじめるのか？
やめとけよ
0312デフォルトの名無しさん
2006/11/22(水) 00:28:01ぐわ、6.0以前スレでしたか・・・
誤爆でした。すみません。
0313デフォルトの名無しさん
2006/11/22(水) 04:08:21WAVファイルをリソース登録して鳴らす方法は色んなサイトにあるのに、
アイコンの使い方書いてるサイト見つけられなかったんだけど。
0314デフォルトの名無しさん
2006/11/22(水) 09:09:40画面にワーク用のイメージリストコントロールをはる。
そこにリソースから取得したアイコンをAddする。
最後にイメージリストのItemをExtractIconメソッドでアイコン化して
そこから、使いたい場所へ使う。
なんてのはどうよ？
0315デフォルトの名無しさん
2006/11/22(水) 11:41:28コントロールを追加しようとするとFormデザイナでは使用できません云々のエラーとなってしまいます。
プログラム自体は問題なく走るんですが、コントロールの追加は一切無理です。コントロールの削除や移動はできます。
やり方が悪いのか、これで当たり前なのかすらわからない状況です。
先輩諸氏の皆様どうかご指導ください。
0316デフォルトの名無しさん
2006/11/22(水) 12:31:02ありがとやってみる。
ずいぶん前に諦めたからｴﾗｰの内容や関数名忘れてるけど、
どちらにせよ記憶に無いやり方みたいなんでやる価値ありそうだ。
0317デフォルトの名無しさん
2006/11/22(水) 13:39:14作者の方へ
VisualBasicの学習者たちのためにソース公開してください
（公式サイトが消滅しているようなので、ここにカキコします）
((((；ﾟДﾟ)
0318デフォルトの名無しさん
2006/11/22(水) 14:34:36BREGEXP.DLLじゃないか
0319デフォルトの名無しさん
2006/11/22(水) 15:15:06頭おかしいんじゃないの？
0320315
2006/11/22(水) 20:00:28コントロールを追加しようとするとFormデザイナでは使用できません云々のエラーとなってしまいます。
プログラム自体は問題なく走るんですが、コントロールの追加は一切無理です。コントロールの削除や移動はできます。
やり方が悪いのか、これで当たり前なのかすらわからない状況です。
先輩諸氏の皆様どうかご指導ください。
0321デフォルトの名無しさん
2006/11/22(水) 20:19:00VBAとVB6は多くの部分で互換性があるが､完全互換ではなく
その互換性がない部分の一つがVB6のフォーム対VBAのユーザーフォームの部分。
まあテキストエディタで開いて少し修正すれば使えないこともないから
やり方が悪いとも言えるかも知れないが。
どう修正するかはググればわかるから自分で調べること。
0322315
2006/11/22(水) 20:26:55厳しくも暖かいご意見ありがとうございました。
散々ググッて見たのですがググり方が足りなかったようです。
これからググりまくってみます。
0323デフォルトの名無しさん
2006/11/22(水) 21:27:03エクセルでそれを見ながらＶＢでゼロから作った方が早い。
0324デフォルトの名無しさん
2006/11/22(水) 22:59:06作成されたアプリケーションをエクスプローラから見ると、ファイル名の下に
登録ユーザー名が表示されてしまうのですが、これを変更することはできないのでしょうか？
0325デフォルトの名無しさん
2006/11/22(水) 23:00:420326デフォルトの名無しさん
2006/11/22(水) 23:03:270327デフォルトの名無しさん
2006/11/22(水) 23:38:20http://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のスレにまで…
0328デフォルトの名無しさん
2006/11/22(水) 23:41:580329デフォルトの名無しさん
2006/11/22(水) 23:59:37他人のソースなんて当てにしなくても､コード掛けるようになるのでは？
0330デフォルトの名無しさん
2006/11/23(木) 01:20:23ExcelのVBAでDOM使ってXML書き出すプログラムを作ってます。
で、標準の文字コードがUnicodeのため、XMLファイルもUnicodeで出力されてしまいます。
これをShift-JISで出力したいのですがどうすればよいのでしょうか？
DOMリファレンスで見た限りメソッドにもそれらしいものは見当たらなかったのですが。。
0331３１３
2006/11/23(木) 05:40:48LoadResDataで「実行時エラー326 識別子101のリソースが見つかりません」て出るんよ。
定数使用してLoadResData(101,vbResIcon)もダメ、（vbResIcon=1）
MSのサポートページにあるLoadResData(101,3)もダメ。
WAVは"CUSTOM"と文字を打つのでLoadResData(101,"ｱｲｺﾝ")とやったがダメ。全角半角両方。
上記はすべて同じエラーになる。
WAV同様"CUSTOM"なら取り込める。
でもバイトデータだから、これをまたアイコンにするんだったら意味わからん。
リソースファイルにアイコン入れるまではいいが取り出せないのは何なんよ…
0332デフォルトの名無しさん
2006/11/23(木) 08:57:25基本からなってねぇ
LoadResPicture(リソース番号, vbResIcon)
0333デフォルトの名無しさん
2006/11/23(木) 13:01:02ありがとう。でもvbResIconて数値いくつ？
変数が定義されてませんてｴﾗｰになるんで…
0334デフォルトの名無しさん
2006/11/23(木) 13:12:58>定数使用してLoadResData(101,vbResIcon)もダメ、（vbResIcon=1）
. .... ..: : :: :: ::: :::::: :::::::::::: : :::::::::::::::::::::::::::::::::::::::::::::
Λ＿Λ . . . .: : : ::: : :: ::::::::: :::::::::::::::::::::::::::::
/:彡ミ゛ヽ;）ー､ . . .: : : :::::: :::::::::::::::::::::::::::::::::
/ :::/:: ヽ、ヽ、 ::i . .:: :.: ::: . :::::::::::::::::::::::::::::::::::::::
/ :::/;;: ヽ ヽ ::ｌ . :. :. .:: : :: :: :::::::: : ::::::::::::::::::
￣￣￣（_,ノ ￣￣￣ヽ､_ノ￣
0335デフォルトの名無しさん
2006/11/23(木) 13:22:29ごめんこ今やったらできた！
LoadResPictureか、そらLoadResDataでググッても使い方出ないわけだ。
額にアイコン張り付けてコンビニ逝ってくるよ。ありがとう！
ε＝ヽ（ ﾟ逝ﾟ）ノ
0336デフォルトの名無しさん
2006/11/23(木) 13:23:530337デフォルトの名無しさん
2006/11/23(木) 13:33:04Formの既定インスタンス機能や、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ユーザー達を見放してはならない義務があるのだ。
0338デフォルトの名無しさん
2006/11/23(木) 15:20:15VB.NETはVisualBasic.NETじゃなければいいんでね？
0339デフォルトの名無しさん
2006/11/23(木) 15:39:12ＶＢ．ＮＥＴなんて全く必要ないんだけど。
ＶＢでやりたい事は全て出来る。
0340デフォルトの名無しさん
2006/11/23(木) 15:50:08ウェブにする必要があるのはごく一部の業種のわずかな部分のみ。
0341デフォルトの名無しさん
2006/11/23(木) 15:50:150342デフォルトの名無しさん
2006/11/23(木) 16:04:52なんかアイコンが潰れて表示されたorz
ググってみたけどLoadResPictureはまともアイコン扱えないの？
イメージリストコントロール使うしか無いのかな。でもツールバーにないし…
0343デフォルトの名無しさん
2006/11/23(木) 17:01:12変わるのは仕様ですか？
0344デフォルトの名無しさん
2006/11/23(木) 17:51:11ドドネトごときで「勉強」とか言っちゃってるよ、この人。(w
0345デフォルトの名無しさん
2006/11/23(木) 18:12:580346デフォルトの名無しさん
2006/11/23(木) 18:42:50なんか変なものでも見えてるのか？
0347デフォルトの名無しさん
2006/11/23(木) 18:50:02ここはお前の日記帳じゃぁないんだよ。
0348デフォルトの名無しさん
2006/11/23(木) 18:53:27あんた、損してるよ。
0349デフォルトの名無しさん
2006/11/23(木) 20:10:37方法を教えてほしいです・・・
0350デフォルトの名無しさん
2006/11/23(木) 21:35:07プロジェクトのプロパティで設定後コンパイル。
0351デフォルトの名無しさん
2006/11/23(木) 21:49:35日記帳に >>346 みたいな事は書かないよ。
バカじゃないの？ (w
>>348
別に俺は、ドトネトを極める匠じゃないから、
自分のやりたいことができれば、それで十分。
0352デフォルトの名無しさん
2006/11/23(木) 21:58:32突っ込みどころ満載で、ちょっとおもしろいｗ
話しようぜｗ
何より、日記帳つけてんの？ｗｗ
0353デフォルトの名無しさん
2006/11/23(木) 22:09:27プロジェクトのプロパティのそれらしいところを全て弄ってみて駄目だったので諦めていたのですが
windowsを再起動したらフォルダ上の表示が変わりました・・・
どうもコンパイルしなおしたファイルを、以前のファイルと同じものとOS側で認識していたみたいです。
お騒がせしてすみませんでした。
0354デフォルトの名無しさん
2006/11/23(木) 22:32:16突込みどころ満載と言う割には、突っ込めないチキン君には用は無いよ。
0355デフォルトの名無しさん
2006/11/23(木) 22:38:230356352
2006/11/23(木) 22:41:20いよぉ！351！ツッコミ入れられてもわからないんだなｗ
日記帳つけてんだろｗｗ
認めちまえよｗｗ
>自分のやりたいことができれば、それで十分。
普通は自分のやりたい事なんてしてる訳じゃなくて
仕事で必要だから、クライアントにVB使うなり、サーバーにC使う
なり、XPでのサポートを得るためﾄﾞﾄﾈﾄ使うなりしてるだけｗ
ウケルｗｗ オバカ丸出しだぞｗｗ
0357デフォルトの名無しさん
2006/11/23(木) 22:54:51ハイハイ、君の言う通りだね。
満足した？
0359デフォルトの名無しさん
2006/11/23(木) 23:22:10>>357
0360デフォルトの名無しさん
2006/11/24(金) 00:47:14>>304
>>307
どこかで見たクソソースだと思ったら
http://f57.aaa.livedoor.jp/~jeanne/bbs/faq.cgi?mode=al2&namber=8438
これか。
なんていうか、氏んだほうがいい。
0361313
2006/11/24(金) 05:34:411・imageで一個一個貼りつけ…現状。特に問題はないがダサい感じ
2・LoadResPicture…画像が崩れるのでダメ
3・imagelist…メモリ不足多発、EXEサイズ増大で良いこと無し
4・imagelistをアイコン10個ごとにインデックス分け使用…メモリ不足でコンパイル不可
3～4はもちろんimageはすべて削除してる。2もほとんど削除し、転送用の数個のみ。
LoadResPictureで画像潰れないテクニックないすかねえ？
0362デフォルトの名無しさん
2006/11/24(金) 07:11:07EXEにリソース埋め込んだら、意味がないだろ・・・・
普通はリソース用のDLLを作る。
お前のようなバカは、リソースなんか使うなといういい例。
0363デフォルトの名無しさん
2006/11/24(金) 08:27:10このスレらしい光景だねw
>EXEにリソース埋め込んだら、意味がないだろ
なんでだよw
0364デフォルトの名無しさん
2006/11/24(金) 09:09:38本気で聞いてるのか・・・？
0365デフォルトの名無しさん
2006/11/24(金) 09:26:43コイツはﾄﾞﾄﾈﾄ板にも入たリアルキティ。
救いようがない。
ほっとけ。
0366デフォルトの名無しさん
2006/11/24(金) 13:16:12>>363 じゃ無いけど、おまえらのほうがよっぽど心配だよ。
0367313
2006/11/24(金) 15:59:23アイコンをカスタムリソースとして登録して、LoadResDataで
バイト型配列に取り込んで、テンポラリファイルに書き出してから
それを画像ファイルとして読み込む、というやり方もあるようだけど、
それじゃなんか釈然としない。
アイコン形式を使いたい動機は、PaintPicture一回でマスク付きで画像を描けるから。
一枚のでかい画像にアイコン画像全部並べて、マスク画像も作って
二枚の画像を持つのが無難なんだろうか。
PaintPicture二回必要になるけど、速度変わるかな？
0368デフォルトの名無しさん
2006/11/24(金) 22:50:521つずつ塗りつぶす色を変える場合、下のプログラムでは、どうすればいいのでしょうか？
宜しくお願いします。
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プロパティの値が使用されます。
0369368
2006/11/24(金) 22:52:09Dim 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
0370368
2006/11/24(金) 22:52:48'正六角形
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
長くなったけど・・・
宜しくお願いします。
0371デフォルトの名無しさん
2006/11/24(金) 23:54:44Form1.Picture1.FillColor = RGB(255, 0, 0) 'これ
0372デフォルトの名無しさん
2006/11/25(土) 00:08:37動作確認してないけど原理はあってる筈だから適当に修正しな
動作すればいいレベルのコーディングだ
つーか↑の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
0373デフォルトの名無しさん
2006/11/25(土) 00:09:21fMain.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
0374デフォルトの名無しさん
2006/11/25(土) 00:11:32よく、新人の世話するけど、専門卒のソースが
いつもそんなクソソースだったりするｗ
0375デフォルトの名無しさん
2006/11/25(土) 00:52:060376デフォルトの名無しさん
2006/11/25(土) 01:00:370377313
2006/11/25(土) 06:04:03EXEサイズは極端に小さくなりはしたけど、
結局アイコンを一個一個imageコントロールで貼るのが最適という結果になってしまった。
ttp://www.h3.dion.ne.jp/~hohoi/DCK_test.lzh
0378デフォルトの名無しさん
2006/11/25(土) 09:15:20こいつをマンセーしたヤシらもやっぱりバカだった。
0379368
2006/11/25(土) 10:53:57レスありがとうございます。
そこを弄ると全体の色が変わるのですが・・・
1つずつ塗りつぶす色を変える場合はどうしたらいいのでしょうか？
>>372 -373
レスありがとうございます。
どこをどう修正したらいいのかわからないです。
ぐぐったら6角形の座標固定値のやり方があったので・・・
0380デフォルトの名無しさん
2006/11/25(土) 14:19:53GIFにするのとアイコンリソースにするの、どっちが得か？ってーのは直ぐに計算できるんではないかと。
ついでにGDIのBitBlt使いやがれ
0381デフォルトの名無しさん
2006/11/25(土) 16:12:42暇だったから多角形を塗りつぶすクラスを作ってみたよ。
っていうか、そんな読む気もおこらないウンココードは捨てた方がたぶん吉だよ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
0382381
2006/11/25(土) 16:13:42Declare 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
0383381
2006/11/25(土) 16:15:52Public 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
0384381
2006/11/25(土) 16:17:02Const 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
0385381
2006/11/25(土) 16:17:39Dim 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
0386381
2006/11/25(土) 16:18:49Dim pt As Win32API.POINTAPI
pt.X = X + r * Cos(rad)
pt.Y = Y + r * Sin(rad)
GetPoint = pt
End Function
0387デフォルトの名無しさん
2006/11/25(土) 17:50:10メソッドを呼んでるところといい、そのクラスといい、
なかなかの腕だけど、なんの仕事してれば、そんな
描画系を思いつくの？？
業務系の俺には、カスリもしない世界だったから、
ちょっと興味をもった。
0388デフォルトの名無しさん
2006/11/25(土) 18:40:31どこがだよw
0389デフォルトの名無しさん
2006/11/25(土) 19:00:18別に言うのは勝手だけど、お前の脳みそでは
どれだけ振り絞っても、>>381以上のソースは
書けないと思う。
>>388のソースに期待ｗ
0390デフォルトの名無しさん
2006/11/25(土) 19:08:28見苦しい…
0391デフォルトの名無しさん
2006/11/25(土) 19:59:500392デフォルトの名無しさん
2006/11/25(土) 20:07:41貴方よりずっと莫迦な誰か他の人がメンテする事を考えて。
0393デフォルトの名無しさん
2006/11/25(土) 20:21:45> Private Sub Class_Terminate()
> DeleteMyBrushIfNeed
> DeleteMyPenIfNeed
> End Sub
軽く殺意が涌いた
0394デフォルトの名無しさん
2006/11/25(土) 20:36:16こういう上手くはないけど綺麗なコード書ける人と一緒に仕事したいもんだね。
0395デフォルトの名無しさん
2006/11/25(土) 21:49:30テラワロスｗ
なんで、誉める前に必ず「～けど」って一言多いんだよｗ
うははｗ ネクラの臭いがぷんぷんするｗ
0396368
2006/11/25(土) 22:01:28レスありがとうございます。
早速、自分用にアレンジして使わせていただきますね。
ありがとうございます。
あと、ウンココードは捨てますねｗ
0397デフォルトの名無しさん
2006/11/25(土) 22:17:020398381
2006/11/25(土) 22:34:47バグがある（SetLineColorの処理とPIの値）のと、あと数値の型が適当だったり
ちゃんとキャストしてなかったりするのでその辺は修正してやってね。
>>397
やっぱりあんまりよくないのかな。
Win32のGDI関数ってほとんどやってことないから。。
Win9x特有の制限に引っかかる可能性があるとかないとかどこかで読んだ気もするけど。
>>387
ヘッポコのマイコンプログラマですよw
PCのアプリはここ数年.NETばっかりなんで、どうしてもVB.NETチックなコードになっちゃうね。
0399デフォルトの名無しさん
2006/11/26(日) 01:43:56<test hoge='ABC'/>
<test hoge='BCD'/>
<test hoge='CDE'/>
の中から､hoge属性値に C を含むものを列挙したい場合､
XPathではどのように記述するのでしょうか？
部分一致ではなく完全一致であれば､
/test[@hoge='C'] で取得できるのですが､
ワイルドカードはノード名や属性名には使えても､属性値には使えないようですし､
/test[contains(@hoge,'C')] もcontainsの部分で｢不明な方法です｣というエラーになります。
全ノードに対してループを回し､正規表現などで条件分岐すれば､結果的には問題有りませんが
XPathで出来ることならXPathでやりたいので､ご存じの方が居ましたらご教示ください。
0400デフォルトの名無しさん
2006/11/26(日) 12:56:07integer<long<single
と習ったんですが、single型って6桁を超えると
それ以下の桁が０に簡略化されますよね。
longに入らないぐらい馬鹿でかい数を使う場合で
頭から数えて6桁以下の数字を省略しないで計算したい場合
どうすればいいんでしょうか？
0401デフォルトの名無しさん
2006/11/26(日) 13:13:14有効桁数６桁”以下”なら、言っている通りsingleでいいと思うのだが
0402デフォルトの名無しさん
2006/11/26(日) 13:14:130403400
2006/11/26(日) 13:28:42例えば
１２３４５６７８９０１２３４５６７８９０＋１２３４５６７８９０１２３４５６７８９０＝２４６９１３５７８０２４６９１３５７８０
を出したいと思った場合
longには入らないのでsingleを使うと
１．２３４５６７×１０＾１９＋１．２３４５６７×１０＾１９
こんな感じで解釈されますよね。
すると結果が２．４６９１３４×１０^１９になりますよね、結果的に２４６９１３４０００００００００００００
になっちゃって一番上と数値が変わってきちゃうじゃないですか、
これを何とかしたい、というわけなんです、正確に計算したいんです。
0404デフォルトの名無しさん
2006/11/26(日) 13:33:390405デフォルトの名無しさん
2006/11/26(日) 13:41:30精度も落ちるから巨大な配列を確保する等の事情が無ければdoubleを使ったほうが良い」
って聞いたけどVBだとどうなんだろう。
0406デフォルトの名無しさん
2006/11/26(日) 13:41:38とりあえず
> 頭から数えて6桁以下の数字を省略しないで計算したい場合
では、ないんだな ('A`)
とりあえず２０ケタを扱える型はdecimal型だ
詳しくはヘルプを参照
逆質問だが、下のような計算も考慮に入れているのか？
0.12345678901234567890+12345678901234567890
この場合、誤差を最小に抑えるため数値上では小数以下の桁がほとんど丸められるわけだが、
これすらも正確に保ち下のような数値として扱いたいのなら、
12345678901234567890.12345678901234567890
vbの標準型では無理で、文字列型でAdd(String v1, String v2)みたいな演算を自分で仕組むしかないぞ
04074061 ◆qRy0pp8F66
2006/11/26(日) 13:43:55Private Sub Form_Load()
Dim d1 As Variant
Dim d2 As Variant
d1 = CDec("12345678901234567890")
d2 = d1
Debug.Print d1 + d2
End Sub
0408デフォルトの名無しさん
2006/11/26(日) 13:47:14VBというよりWindowsの動くx86のCPUでは、
基本的に80bitの拡張倍精度で演算される。
0409デフォルトの名無しさん
2006/11/26(日) 13:58:39テキトーな回答を下す前に。
>>400
人様に質問するのに「馬鹿でかい」とかあいまいな言葉を使うなよ。
そんなんでわかるわけないだろ、誰もエスパーじゃないんだから。
扱う数値は整数？実数？
実数の場合、必要な精度は？
扱う数値の範囲（最大値・最小値）は？
0410デフォルトの名無しさん
2006/11/26(日) 14:00:15詳しく書いてるように聞こえるけど、
実は何も考えてないだろ？
0411デフォルトの名無しさん
2006/11/26(日) 14:27:25Currency（綴りあやふや）は？
0412デフォルトの名無しさん
2006/11/26(日) 14:40:06少なすぎますです
0413デフォルトの名無しさん
2006/11/26(日) 14:46:19ふぅ・・・。で、お前は何がしたいの？
バカなら、もう来るなよ。みんなが真剣に考えたりするじゃないか。
真剣なら、自分で型をつくればいいだけの話だろ。
0414デフォルトの名無しさん
2006/11/26(日) 18:55:13>>399もお願いします。
0415デフォルトの名無しさん
2006/11/26(日) 21:01:36XPathのことはXMLのスレ（WebProg板にある）にいったほうがわかる人間がいると思う。
0416デフォルトの名無しさん
2006/11/26(日) 22:34:51参照が変わった場合、前の値はメモリから消えるのでしょうか？
Public str as String
のstrに
str = "A"
str = "B"
とした場合の"A"です。
何かのタイミングで一斉に消えたりするのでしょうか？
0417デフォルトの名無しさん
2006/11/26(日) 23:13:440418デフォルトの名無しさん
2006/11/26(日) 23:17:010419デフォルトの名無しさん
2006/11/26(日) 23:25:31何故そんな事を知る必要があるの？
0420デフォルトの名無しさん
2006/11/26(日) 23:28:55一．答えられない質問は無駄に罵倒せずスルー。無理するな。
三．回答する上で必須ではない情報をむやみに聞き返さない。
0421デフォルトの名無しさん
2006/11/26(日) 23:36:22俺はそんな糞みたいなルールには死んでも従わないね。
0422デフォルトの名無しさん
2006/11/26(日) 23:40:23四．荒らしは相手しない。
○ 回答者の心得
四．荒らしは相手しない。
0423339
2006/11/26(日) 23:54:28>>415
XMLスレも考えたのですが､COM版のMSXML2.DOMDocumentに限定した話をしたかったので
まずはこちらにきました。Web上で紹介されている関数が使えなかったりと､COM版の仕様が他とは違うようなので。
もうしばらくこちらで粘って､知ってる方が居ないようなら向こうに移動してみます。
ということで引き続きよろしくお願いします。
0424デフォルトの名無しさん
2006/11/26(日) 23:58:47○馬鹿の一つ覚えのようにテンプレをコピペしない
っていう項目が必要になりそうだな。
そうすれば>>422のようなスレになんの貢献もしない馬鹿を雪隠詰めにできるよw
0425デフォルトの名無しさん
2006/11/27(月) 00:01:210426デフォルトの名無しさん
2006/11/27(月) 01:58:39俺は"B"を代入した瞬間"A"は消えるもんだと思っている。
なぜなら、VC++で同じことをBSTRに対して行おうとするとそういう風になるから→きっとVBもそうだろうという短絡的発想。
0427デフォルトの名無しさん
2006/11/27(月) 02:03:330428デフォルトの名無しさん
2006/11/27(月) 02:06:51（ <●> <●> ）つ わかってます
わかってないことを証明する悪魔の証明はできないのはわかってます
0429デフォルトの名無しさん
2006/11/27(月) 02:12:52あなたはわかっていません
freeした直後にAはメモリ上に存在します
また直後ではAの上にBを置かれることはありません
OSの中まで追ってからにしなさい
0430デフォルトの名無しさん
2006/11/27(月) 02:14:14> OSの中まで追ってからにしなさい
> OSの中まで追ってからにしなさい
> OSの中まで追ってからにしなさい
（ <●> <●> ）
0431デフォルトの名無しさん
2006/11/27(月) 02:16:060432デフォルトの名無しさん
2006/11/27(月) 02:20:48むしろこっちだろ
> Aはメモリ上に存在します
> Aはメモリ上に存在します
> Aはメモリ上に存在します
0433デフォルトの名無しさん
2006/11/27(月) 02:46:10循環参照があった場合は開放されない。同じ参照カウンタ式のＣＯＭと相性がいい。
0434デフォルトの名無しさん
2006/11/27(月) 02:49:55> 循環参照があった場合は開放されない。
('A`) ”されない”？
0435デフォルトの名無しさん
2006/11/27(月) 02:51:44>416 はVB6の話だろ？
Stringはオブジェクト型じゃないから代入は値のコピーが作られるだけだぞ
0436デフォルトの名無しさん
2006/11/27(月) 03:07:40そうだった。Stringは別だな。
433はClassの話だと思ってくれ。
0437デフォルトの名無しさん
2006/11/27(月) 08:46:34メモリ上"XYZDE"になって、"DE"はあるタイミングまで残る、って話ではないの？
"XYZ"の代わりに"1234567890"が入ったらメモリ上は"12345"になって、
新たなメモリ空間に続きの"67890"が入るように思うんだけど。
GCで前者の"DE"みたいなのが詰められ、後者みたいなのが
"1234567890"と連結されんでしょ？
0438デフォルトの名無しさん
2006/11/27(月) 09:10:42壮大な勘違いだな。
0439デフォルトの名無しさん
2006/11/27(月) 13:01:280440デフォルトの名無しさん
2006/11/27(月) 15:36:44メモリについて「無意味＆無駄」としか考えられないようだから
ﾌﾞｰﾋﾞｰ厨とバカにされるんだよ
0441デフォルトの名無しさん
2006/11/27(月) 17:11:25ＶＢが中で何やってたって、それを変更する事は出来ない。
つまり、お前が莫迦で阿呆という事だな。
0442デフォルトの名無しさん
2006/11/27(月) 17:55:06初期状態では、TextBox1, 3とCommand1だけ、Enabled=Trueです。
TextBox1の入力内容を検査して、OKならTextBox2のEnabledをTrueにした
上で、そこにFocusを移動させたいのですが、どうすればよいでしょうか？
TextBox1のValidateに
TextBox2.Enabled=True
TextBox2.SetFocus
と書いてもTextBox2にFocusが遷移しません。
0443デフォルトの名無しさん
2006/11/27(月) 18:34:47どうすればもこうすればも、そんな糞仕様のUIはナンセンスでしょ。ダメダメでしょ。
MSDN読んだ？
Validateっていつ発生するのよ。
矛盾することしようとしてるんだからうまくいくはずがない。
だいいち少しはユーザビリティってものを考えてくれよ。
0444デフォルトの名無しさん
2006/11/27(月) 18:36:58へっへっへ…
Enable=TrueにしたあとDoEvents書いちゃいなよ。
いいぜぇ、DoEventsは。
0445デフォルトの名無しさん
2006/11/27(月) 19:35:27しかし、諸刃の剣でもあるな。
0446デフォルトの名無しさん
2006/11/27(月) 21:01:160447デフォルトの名無しさん
2006/11/28(火) 08:48:40何ツンデレ？普通に当然のことじゃん。
0448デフォルトの名無しさん
2006/11/28(火) 09:01:23Dim hoge As Integer = 0
0449デフォルトの名無しさん
2006/11/28(火) 09:45:21vb.netさんでは宣言時に規定の初期値に初期化されます
やりたきゃやってみろ
0450デフォルトの名無しさん
2006/11/28(火) 09:49:47キミ、学校でも頭悪いとか、「○○って話が通じネーよな」とか良く
言われるでしょ？言われるでしょ？
0451デフォルトの名無しさん
2006/11/28(火) 09:51:04値型と参照型では違う。
参照型は初期化しないと、ぬるぽりますよ
0452デフォルトの名無しさん
2006/11/28(火) 13:56:35お前自身の事か？
0453デフォルトの名無しさん
2006/11/28(火) 18:57:12VB6.0でも、ﾕｰｻﾞｰｺﾝﾄﾛｰﾙを使えばｸﾗｽの継承が実現しない？！
空っぽのﾕｰｻﾞｰｺﾝﾄﾛｰﾙにﾒｿｯﾄﾞ書いて、継承時はそれを同じように
空っぽのﾕｰｻﾞｰｺﾝﾄﾛｰﾙに貼り付け。
画面やｸﾗｽでそのﾕｰｻﾞｰｺﾝﾄﾛｰﾙを動的に生成して、ﾒｿｯﾄﾞだけを呼べば
ｸﾗｽの継承が実現してない？？
0454デフォルトの名無しさん
2006/11/28(火) 19:22:46すくなくともそれじゃあね。
VBには目に見えないFormクラスがあって、全てのフォームはそれを継承していると
みなせる、って話ならわかるけど。
まあ当たり前だけどVB6でも継承そのものは可能なんだよね。
ただ言語レベルでサポートしてないだけで。
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpdnprogvbnet/htm/chapter5.asp
0455デフォルトの名無しさん
2006/11/28(火) 20:23:28フォームの継承は、理屈はそうだけど、自分のメソッドも何もできない
からね～
委任による継承かぁ～・・・
実際は継承しているわけではなくて、継承チックに見えるように
ベースのクラスを呼んでいるんだよね
でも㌧㌧。
Implementsによるインターフェースの実装は知っていたけど、継承できない時点で
あんまり役にたたないよね。強いて使うなら、雛形として、このメソッドを使いなさい、かな～
0456デフォルトの名無しさん
2006/11/28(火) 21:08:430457デフォルトの名無しさん
2006/11/28(火) 21:47:360458デフォルトの名無しさん
2006/11/28(火) 21:54:10んなこと聞いてないし（＾ω＾）
0459デフォルトの名無しさん
2006/11/28(火) 21:57:21そう、つっかかるな。
オレもVBが好きだ。
ただ、お前ほどのヤシなら、たとえばフォームで継承が
できたら、便利だって事がわかるだろ？
ただ、それだけの事だよ。
継承できなくても、VBは本当にRAD開発では最高の
言語だよ。
0460デフォルトの名無しさん
2006/11/29(水) 12:50:23（ ＾ω＾) ・・・。
0461デフォルトの名無しさん
2006/11/29(水) 13:06:550462デフォルトの名無しさん
2006/11/30(木) 00:14:36> 言語だよ。
そんな餌にクマー(AA略
0463デフォルトの名無しさん
2006/11/30(木) 17:49:08メソッドはありますか？？
0464436
2006/11/30(木) 19:52:09Shared、Staticのようなものはありますか？
0465デフォルトの名無しさん
2006/11/30(木) 20:18:34さようなら
0466デフォルトの名無しさん
2006/12/01(金) 06:49:29個々に関数を呼び出せるDLLを作成するには、
どうすればいいのでしょうか？
0468466
2006/12/01(金) 08:01:130469デフォルトの名無しさん
2006/12/01(金) 08:20:280470466
2006/12/01(金) 08:27:200471酔いちくれ ◆J0rwikii8c
2006/12/01(金) 09:01:54だめなのかという疑問。
0472466
2006/12/01(金) 09:13:19クラスを使えない言語からも参照できないといけないのです。
なので、Declare Functionで呼び出せればと思ってました。
0473酔いちくれ ◆J0rwikii8c
2006/12/01(金) 09:28:05いいからかもね～。
だって、圧倒的に遠回りで遅いから。まあ、仕方ない。
0474466
2006/12/01(金) 09:38:01とりあえずVbでクラスを作って、
それを呼ぶためのDLLをVCかDelphiで作ります。
かなり面倒ですけど、VB側の処理は変更できないので、
この方法でやってみます(｀・ω・´)
0475デフォルトの名無しさん
2006/12/01(金) 10:40:21サブクラス化してWndProcでWM_POWERBROADCASTを拾うことはできました
CならこのあとReturnでBROADCAST_QUERY_DENYを返せば良いだけですが
VB6ってどのようにしたら良いのでしょうか
.Netでの方法ならたくさん見つかったのですが・・・
0476デフォルトの名無しさん
2006/12/01(金) 11:02:25>>442
>TextBox2にFocusが遷移しません
わかった、これってGUIの組み方でいつも問題になるところだよね
これって言語によらない共通の問題かなと（>>443さんの指摘は意味はあるかと）
結局、キー入力による「Enter」だけでなく、
マウスでほかのコントロールに移ろうとしてときにも
強制的にTextBox2にfocusしたいってことだよね
確かにVaridateｲﾍﾞﾝﾄにそれを書いて>>444の対策してもうまくいかないんだよね
そうなると、ちょっと無理気味だが、今TextBox１で編集した直後だよってフラグを
モジュールレベル変数で立てておいて、別の任意のコントロールをクリックしてしまって
そこにFocusが移っても、そこから対策するしかないんではないかと思う
あるいは、次の入力部を強制するためには、次のコントロール以外は
Focus可能なものは表示しておかないようにしておくとかしないといけないわけで
それであれば、結局昔のDOS時代のキーボードオンリーの入力使用に近い
形にするしかないかと
以前にやったことのある対策は、そのGotFocusｲﾍﾞﾝﾄ・ﾌﾟﾛｼｰｼﾞｬでそれを参照して
フラグの値に応じて強制的にFocusを飛ばすﾌﾟﾛｼｰｼﾞｬをコールするようなもので
一応はうまく動きはしまたが、注意点はあとでバージョンアップとかしてコントロール
が増えたときにそこも修正追加が必要なことかな
0477475
2006/12/01(金) 11:14:50Elseで条件以外はWndProc = CallWindowProcして
でEnd Functionしたらいけたっぽいんですが
これでいいのでしょうか？ｗ
0478デフォルトの名無しさん
2006/12/01(金) 11:16:42SysInfoコントロールのPowerQuerySuspendじゃ駄目か？
0479酔いちくれ ◆J0rwikii8c
2006/12/01(金) 11:18:15Cでつくった自作の関数呼べばよくね？
>>476
べたなフォーカス遷移として、コントロールのEnabledを
一時的にFalseにして、勝手に次のtabIndexにフォーカス
を移したりする。
コントロールを送って、移したいオブジェクトまでフォーカスを移す。
関数名はせっとふぉーかすでらっくすでおｋ
0480デフォルトの名無しさん
2006/12/01(金) 11:49:01>コントロールのEnabledを一時的にFalseにして
>勝手に次のtabIndexにフォーカスを移したりする
Enterキーだけで送るときとかにはそういう機能もあったんですね
やってみました
この>>442でのやっかいな問題は、フォーム上の他のコントロールがEnabled=True
状態で存在しているときに、そこにマウスでヒットされると、Validateｲﾍﾞﾝﾄでは
対応できないということかと思いまして（実際にやってみましたがうまくいきません）
それで>>476かと考えました次第でした
0481デフォルトの名無しさん
2006/12/01(金) 12:49:03拾えたのなら、Ｃと同じ事するだけでしょ。
つーか、どうやって拾ったんだ？
0482デフォルトの名無しさん
2006/12/01(金) 14:50:29Sendkey でTABｷｰ送りなよォ
ぐひひ
0483デフォルトの名無しさん
2006/12/01(金) 15:38:33vb6のリンカかコンパイルオプションで出力できる
0484デフォルトの名無しさん
2006/12/01(金) 15:39:34モジュールに書くしかないんでね？
さも無きゃ一つのインスタンスを特別扱いするとか
0485デフォルトの名無しさん
2006/12/01(金) 15:40:24vb6は内部でcomのdispatchインタフェイス使ってるので、
明示的に相手の参照はもってません
諦めろ。
0487デフォルトの名無しさん
2006/12/02(土) 00:17:54チャートの折れ線グラフにマウスを当てると
その箇所の値（X軸、Y軸）がテキストボックスに
セットされる。
雰囲気的には株のリアルタイムチャートっぽいものを
実現したいのですが、これが可能なActiveX等を
ご存じでしたら教えてください。
チャート上のマウスのMOVEイベントでその位置の
値が拾えれば良いのですが、Microsoft Chartとかは
不可能でした。
0488デフォルトの名無しさん
2006/12/02(土) 00:29:41Formなりグラフィックメソッドとマウスイベントがあるコントロールなら
普通に何でもいいのではないかと
0489デフォルトの名無しさん
2006/12/02(土) 17:07:17グレープシティの製品にそんなのなかったっけ？
0490デフォルトの名無しさん
2006/12/03(日) 00:16:14コマンドボタンを押すと、テキストエリアに文字が表示されるというシンプルなソースなんですが、
ローカルでＨＴＭＬを表示すると問題なく作動するのですが、サーバにＵＰするとコマンドボタンを
押しても何もおきません。
ＸＰｐｒｏ＋ＶＢ６．０で作成してます。
理由がお分かりの方、教えて下さいm(__)m
0491デフォルトの名無しさん
2006/12/03(日) 00:45:06んんんんん、ぬおおおぉぉ～～～ッッッ!!!!
超能力を駆使してみたんだが分からんかった。
スマンのぅ。
0492デフォルトの名無しさん
2006/12/03(日) 02:06:30Java実行中、VB処理はそこで一時停止したいと考えています。
しかし、shell関数は非同期であるため、VB処理の一時停止が出来ませんよね？
こういった場合、どのように対処すればよいのでしょうか？
0493デフォルトの名無しさん
2006/12/03(日) 02:08:40全然分からないので一般的なことしかいえないけど、
セキュリティとかそういうのはちゃんと設定してあるの？
何か参考資料を一つ手元においてやってみた？
0494デフォルトの名無しさん
2006/12/03(日) 02:14:13VBとWin32APIで行くなら
つ http://homepage1.nifty.com/MADIA/vb/API/VBDOUKI2.htm
ScriptingHost使っていいなら
つ http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/refer/lesson9.htm
など
0495酔いちくれ ◆J0rwikii8c
2006/12/03(日) 09:43:05今日は朝から酔うちもうた
ぶーびーすくりぷとと、HTMLを使ってるということでAF？いや、FA？
よくわからんけど、HTMLに
<noscript><p>だめだこりゃ</p></noscript>
と書いて、表示されるようなら、だめなんだろうね
つーか、そーすをかいてみそ。酒のつまみをまってるぞ
0496490
2006/12/03(日) 09:52:21おはようございます。
ソースは下記のとおりです（ＶＢによるＤＨＴＭＬを試したかっただけなので）。
Private Function SubmitButton1_onclick() As Boolean
TextArea1.Value = "お前は既に" + _
Chr$(10) + Chr$(13) + "死んでいる"
End Function
よろしくお願いしますm(__)m
0497デフォルトの名無しさん
2006/12/03(日) 11:48:03<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と違ってるかもしれないが一般的にはこれのこと。
0498酔いちくれ ◆J0rwikii8c
2006/12/03(日) 11:49:18う～・・いい気分だ。
ビールが無くなったから、嫁に買いにいかせなくちゃ・・・
ぶーびーのアプリケーションはVBが実行できる環境じゃないと
だめなんだな
ちょっとオレも勘違いしてたよ。ダイナミックHTMLと思ってた。
ソースを見る限り、VBのデザイナでDHTMLを書いたんだよね
サーバーにぶーびーのランタイムがインストールされていないと
だめなんだよ
0499490
2006/12/03(日) 12:22:50鯖にＶＢのランタイムが入ってないと駄目なんですか○|￣|＿
勉強になりました。
ありがとうございましたm(__)m
0500デフォルトの名無しさん
2006/12/03(日) 12:53:03>>490 が結局何をしたかったかよくわからねぇ。
0501デフォルトの名無しさん
2006/12/03(日) 13:36:10>>494
即ﾚｽありがとうございました。
win32APIで行こうと思います。
0502酔いちくれ ◆J0rwikii8c
2006/12/03(日) 13:46:19おれも、最初は普通のHTMLにスクリプトを組み込んでいると
思ったんだよ。
で、スクリプトを外出しにでもして、パスが違うんじゃマイカと。
でも、>>496を見せてくれた瞬間ひらめいたね
VBのスタート→新しいプロジェクト→DHTMLアプリケーション
もう、すっかり酔いがさめた。ビールでも買いに行こう・・・。
0503デフォルトの名無しさん
2006/12/03(日) 14:02:180504デフォルトの名無しさん
2006/12/03(日) 20:45:47でどのくらいメモリ使用すます？
0505デフォルトの名無しさん
2006/12/03(日) 20:52:250506デフォルトの名無しさん
2006/12/03(日) 20:55:480507デフォルトの名無しさん
2006/12/03(日) 21:03:06でいいですか？
0508デフォルトの名無しさん
2006/12/03(日) 21:04:46＞VBのスタート→新しいプロジェクト→DHTMLアプリケーション
あった、あった思い出した。これはサーバーにはIISやVBはいらないが、
ディストリビューションウイザードでCABファイルを作る必要がある。
クライアントがIE必須でVB製のActiveXをインストールしてしまう優れもの。署名なしでは使用できない。
JavaScriptやVBScriptのかわりにObjectタグのActiveXを使わせる仕掛け。
今のIEだと署名があっても警告でまくりでとても使えたものじゃない。
当時は警告無視すりゃ動いた気もするが、とても使えねぇと思って以降忘却のかなただった。
0509デフォルトの名無しさん
2006/12/03(日) 21:35:42ＭＳＤＮをVisualBasic6に関して、”データ型の概要”で調べれ
0510デフォルトの名無しさん
2006/12/03(日) 21:43:18iに１秒足すには記述はどうすれば良いでしょうか？
0511デフォルトの名無しさん
2006/12/03(日) 21:44:260512デフォルトの名無しさん
2006/12/03(日) 21:45:40dim i as date
i=time
i=dateadd("s",1,i)
0513デフォルトの名無しさん
2006/12/04(月) 00:38:07ありがとう～。
0514デフォルトの名無しさん
2006/12/04(月) 01:34:36iに1:16:18が入ったとして、
これの秒を00に書き換えたいのですが、記述はどのようにすれば良いでしょうか？
後々 i + #12:01:00 AM# > time の処理をするので、Formatを使うと都合悪いです。
1:16:00に１分たした物を、timeと比較するような感じです。
0515デフォルトの名無しさん
2006/12/04(月) 02:08:43> これの秒を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 ...
か？
0516デフォルトの名無しさん
2006/12/04(月) 17:21:17SQLServer2k + VB6の組合せでアプリを書いてます。
ｽﾄｱﾄﾞ内で、大雑把に次の処理を行っています
1) 元になるテーブルを集計してワーク作成
2) ワークを加工して、レコードセット返却
1) の処理が終った時点でワークが出来ていなければ、RETURN 0 として処理を
終了させ、2) の処理が正常終了したら RETURN @@ROWCOUNT として処理行数を
返しています。問題は、
・ワークが作成されず、RETURN 0で終った場合
→ EOFプロパティを参照するとカーソルが無いといわれてエラー
→ rdoParameters(0).Value は 0 が入っている
・レコードセット返却まで正常に行われた場合
→ EOFプロパティにはちゃんとTrue/Falseが入る
→ レコードセットを全部引き取るまで、rdoParameters(0).Value が Null
となってしまうんです。
ｽﾄｱﾄﾞ終了時点でﾚｺｰﾄﾞｾｯﾄが有るか無いかを判断する正当な方法を教えて下さい。
0517酔いちくれ ◆J0rwikii8c
2006/12/04(月) 19:42:01SQL-SERVERでストアド組んだこと無いから、
酔いちくれの独り言
おらくるなら、beginをネストして、Exceptionで処理をやらせる
じゃヴぁ糞やﾄﾞﾄﾈﾄも似たような事する
return0のときに、カーソルにはselect "orｚ"とか入れたらｗｗ
誰か、頭のいい人に回答もらえるといいね～
0518デフォルトの名無しさん
2006/12/04(月) 21:19:28できました。
ありがとー。
0519デフォルトの名無しさん
2006/12/04(月) 21:45:57「Visual Basic Editor 6」で、『Microsoft MonthView Control 6.0(SP4)』を使用したいのですが、
「ツール」→「その他のコントロール」内のリストに表示されません。
「その他のコントロール」内のリストに表示させるにはどうしたら良いでしょうか？
オフィス２０００ プレミアムを所有しています。
宜しくお願いします。
0520デフォルトの名無しさん
2006/12/04(月) 22:40:410521デフォルトの名無しさん
2006/12/04(月) 22:49:18>>520さん、ありがとうございます。
コントロールはどうすれば入手できるのですか？
0522デフォルトの名無しさん
2006/12/04(月) 23:23:010523デフォルトの名無しさん
2006/12/04(月) 23:53:01この配列を初期化する方法を教えて下さい。
Doで回してブランクを入れるしか無いのでしょうか？
モジュール内で使用する配列なので、redimは不都合です。
0524デフォルトの名無しさん
2006/12/04(月) 23:58:52答え知ってても言う気にならない。
0525デフォルトの名無しさん
2006/12/04(月) 23:58:590526デフォルトの名無しさん
2006/12/05(火) 00:21:350527デフォルトの名無しさん
2006/12/05(火) 00:40:070528デフォルトの名無しさん
2006/12/05(火) 15:27:56する必要ないじゃん。
0529デフォルトの名無しさん
2006/12/07(木) 10:19:16戻り値がいる場合ってどのような場合なんでしょうか？
（下だとｂが戻り値ですが）
また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
0530デフォルトの名無しさん
2006/12/07(木) 10:36:380531デフォルトの名無しさん
2006/12/07(木) 10:53:11・最初の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
0532デフォルトの名無しさん
2006/12/07(木) 11:37:37ウォッチウィンドウで独自クラスを見ると、クラス内のPrivate変数まで出てきます。
Private変数へのアクセスはプロパティを通して行っているので、
内容が重複して見えて大変邪魔です。
Private変数は表示しないようにすることはできるのでしょうか？
それとも、やり方がおかしいのですか？
0533デフォルトの名無しさん
2006/12/07(木) 11:40:12ウオッチを閉じて、全部見えないようにすれば気にならないよ
0534デフォルトの名無しさん
2006/12/07(木) 11:43:51private mstrTest as String
Public Property Get Test() As String
Test = mstrTest
End Property
としたときに、ウォッチでこのクラスを見ると
AAA--mstrTest
--Test
ってことだよね？
これは仕方ないんじゃないのかな。たしかに邪魔だけど
0535デフォルトの名無しさん
2006/12/07(木) 18:15:39InputManのテキストボックス(日付型)から
Enterキーで次のTabIndexに飛ばしたいんだけど、フォーカス動かない。
TabStopもTureにしてあるのだが…。
他にフォーカスが移動しない理由ってありますか？
0536デフォルトの名無しさん
2006/12/07(木) 18:16:590537デフォルトの名無しさん
2006/12/07(木) 18:19:310538デフォルトの名無しさん
2006/12/07(木) 18:35:30ｷｰ定義でNEXTFOCUSを｛ENTER｝にすればいいじゃん
0539デフォルトの名無しさん
2006/12/07(木) 18:54:03nextfocus = transferFocus？
0540デフォルトの名無しさん
2006/12/07(木) 19:19:41Case vbKeyReturn
SendKeys "{Tab}"
・
・
・
end select
↑でいけた。サンクス☆
0541デフォルトの名無しさん
2006/12/07(木) 19:20:45Case vbKeyReturn
SendKeys "{Tab}"
・
・
・
end select
↑でいけた。サンクス☆
0542デフォルトの名無しさん
2006/12/08(金) 08:42:450543デフォルトの名無しさん
2006/12/08(金) 10:45:21SPREADのAllowMultiBlocksをtrueにして、
単独セルの複数選択ができるようにはなったのですが、
プログラムで選択セルのインデックスを取得するには
どうしたらいいのでしょうか？
0544デフォルトの名無しさん
2006/12/08(金) 11:09:22textboxに入力した文字をファイル名として保存させる方法はどうするのでしょうか？
0545デフォルトの名無しさん
2006/12/08(金) 11:19:15> ファイル名として保存させる
初耳の表現だ
もっと詳しく
0546デフォルトの名無しさん
2006/12/08(金) 11:40:53textboxにa.txtと入力してCommandButtonを押すと
a.txtが作成されるというプログラムを作りたいのですが・・・
どうすればいいのでしょうか？
0547デフォルトの名無しさん
2006/12/08(金) 11:44:21その程度の事をいちいち質問していたらスレがいくつあっても足りないじゃないか
0548デフォルトの名無しさん
2006/12/08(金) 11:56:31処理してる内容はどれも同じなのですが・・・。
お願いします。
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
0549酔いちくれ ◆J0rwikii8c
2006/12/08(金) 12:22:42ム板にVB6.0以前のくだすれってないよね？
立てたほうがいいいかな？
0550デフォルトの名無しさん
2006/12/08(金) 12:31:200551デフォルトの名無しさん
2006/12/08(金) 12:40:540552デフォルトの名無しさん
2006/12/08(金) 13:10:50自分より下の相手が出てくると､嬉々として見下して叩き出し
自分より上の相手が出てくると､黙り込んじゃう。そういう狭量な人が多い。
0553デフォルトの名無しさん
2006/12/08(金) 13:48:450554デフォルトの名無しさん
2006/12/08(金) 14:16:390555デフォルトの名無しさん
2006/12/08(金) 14:20:35わたしは叩くほうの側ですが、なにか？
0556デフォルトの名無しさん
2006/12/08(金) 14:22:57ほんとだ…＾＾；今度こそほんとにサンクス☆
0557デフォルトの名無しさん
2006/12/08(金) 14:35:55何勘違いしてるのw
0558デフォルトの名無しさん
2006/12/08(金) 14:44:580559デフォルトの名無しさん
2006/12/08(金) 14:46:050560デフォルトの名無しさん
2006/12/08(金) 16:16:290561デフォルトの名無しさん
2006/12/08(金) 16:25:11終わってないよ。
0562デフォルトの名無しさん
2006/12/08(金) 19:22:57やっぱダメだ(-_-)
Inputmanのテキストボックス→SPREEDへ行けない。
0563酔いちくれ ◆J0rwikii8c
2006/12/08(金) 19:37:44立てちゃった テヘ。
くだすれVB6.0以前（超初心者向け）
ttp://pc8.2ch.net/test/read.cgi/tech/1165574205/
0564デフォルトの名無しさん
2006/12/08(金) 19:49:53乙～
さっそく逝って来ますﾉｼ
0565デフォルトの名無しさん
2006/12/08(金) 20:05:22ただでさえ少なくなった質問を分散して減らすなよ・・・どんな神経しているんだ
0566デフォルトの名無しさん
2006/12/08(金) 20:07:480567デフォルトの名無しさん
2006/12/08(金) 20:35:04行き先スプレッドなのか。
他のコントロールになら行けるんでしょ？
スプレッドがピクチャーボックスやフレームに乗ってたりしないか？
カーソルがどこ行ったかわからなくなってるんなら、フォームのMOUSEMOVEイベントに
ME.CAPTION=ME.ACTIVECONTROLて書いとくとﾏｳｽ動かせば何にカーソル当たってるかがわかる。
妙なとこにカーソル当たってるなら、そいつのタブストップを無効にしていけばいい。
0568デフォルトの名無しさん
2006/12/08(金) 21:20:31>>548
くだすれVB6.0以前（超初心者向け）
ttp://pc8.2ch.net/test/read.cgi/tech/1165574205/4
0569ガスター10
2006/12/08(金) 21:55:13ピクチャーボックスにのってます。
"実行時ｴﾗｰ438
このｵﾌﾞｼﾞｪｸﾄはこのﾌﾟﾛﾊﾟﾃｨまたはﾒｿｯﾄﾞをサポートしていません"
と表示されます。
これはフォーム外って事でしょうか？？
0570酔いちくれ ◆J0rwikii8c
2006/12/08(金) 22:29:34この煽られる感覚がたまらなく、パトスを刺激する。
もう、びゅっとでる。
>>567
アホだな。オブジェクトを文字列にぶち込むあほ。
>>569
アホの書いたソースは削除して、
ピクチャのたぶすとっぷをFalseにするんだ！
0571デフォルトの名無しさん
2006/12/09(土) 07:00:520572デフォルトの名無しさん
2006/12/09(土) 09:37:33すでにFalseです。
>>571
ImText(Inputman)のとこでEnter押すとフォーム名が変わらず、
フォーカスが消えました。
0573酔いちくれ ◆J0rwikii8c
2006/12/09(土) 21:36:08>>572
全てのコントロールのTabすとっぷを調べてみたら。
リサイザーのElasticコントロールとか使ってると、フォーカスが
消えちゃったりした記憶がある。
0574デフォルトの名無しさん
2006/12/09(土) 23:27:39リアルタイムの株価の取得でつまずいています
Yahooなどは20分遅れの株価で遅く、
楽天RSSはリアルタイムなのですがエクセルでの取得に限られ、また銘柄も300までです
リアルタイムの株価（東証・大証・JQ・HCにあるもの全て）のよい取得方法があれば
どうかご教授くださいm(__)m
0575デフォルトの名無しさん
2006/12/09(土) 23:41:15常識的に考えろよ
無料でリアルタイムに株価が取得できるんだったらYahooなりでやってるはずだろ
0576デフォルトの名無しさん
2006/12/10(日) 00:25:02情報の提供先を見つけるのは､プログラミングと全く関係ないぞ。
取得方法と言ってるが､おまえのは取得方法以前に取得先が見つかってない状態だ。
まずは君の要望に適う情報提供先を見つけて､そこの情報を取得する方法が解らなかったらまた来い。
因みに利用規約はきちんと読めよ。Webブラウザ以外での取得閲覧を禁止している場合もあるから。
0577デフォルトの名無しさん
2006/12/10(日) 00:25:090578デフォルトの名無しさん
2006/12/10(日) 14:39:13ムカツク言い方しかできない奴だな
分からないなら書き込むんじゃねーよ
ボケ
0579デフォルトの名無しさん
2006/12/10(日) 14:46:040580デフォルトの名無しさん
2006/12/10(日) 15:18:04火病と言うのでしたっけ
0581デフォルトの名無しさん
2006/12/10(日) 15:44:05「お前にはできないからあきらめろ」くらいだろ。
0583デフォルトの名無しさん
2006/12/10(日) 16:51:51したいと思っています。
しかしWindows Vistaロゴの要件として最初に書かれてある条件で
さっそくつまづいてしまいました。
VB6プログラムにマニフェストを埋め込むにはどうしたらいいのでしょうか。
ユーザー アカウント制御のガイドラインに従う
この要件を満たすには、アプリケーションに付属するすべての実行可能ファイル
(拡張子 .exe) に、その実行レベルを定義する次のようなマニフェストが埋め込ま
れている必要があります。
<requestedExecutionLevel level="asInvoker|highestAvailable|requireAdministrator" uiAccess="true|false"/>
0584デフォルトの名無しさん
2006/12/10(日) 17:34:42無理。
0585デフォルトの名無しさん
2006/12/10(日) 17:50:100586デフォルトの名無しさん
2006/12/10(日) 20:29:560587デフォルトの名無しさん
2006/12/12(火) 16:26:510588デフォルトの名無しさん
2006/12/12(火) 16:57:34for 文で name1～name4 を初期化する方法を教えてください。
0589デフォルトの名無しさん
2006/12/12(火) 17:13:14Shockwave Flash コンポーネントとかWebBrowserコントロール使うとか
0590デフォルトの名無しさん
2006/12/12(火) 17:14:09swf再生のActiveXかWebBrowserを使う
>>588
出来ないよ。
コントロールやシート名みたいにコレクションに入ってる物なら可能だけど。
素直に配列を使いましょうね。
0591デフォルトの名無しさん
2006/12/12(火) 17:25:05ありがとうございます。
flashみたいに使えればいいのになぁ。
0592デフォルトの名無しさん
2006/12/12(火) 17:33:120593デフォルトの名無しさん
2006/12/12(火) 17:40:020594デフォルトの名無しさん
2006/12/12(火) 17:59:37技量が無いのでこんな方法しか思いつかんとです。
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
0595デフォルトの名無しさん
2006/12/12(火) 18:02:24こんな方法も
（脳内ソースだからBASICで動くかわからんけど
for i=0 to 0
name1=0
name2=0
name3=0
name4=0
next
0596デフォルトの名無しさん
2006/12/12(火) 19:11:23反転表示は座標マイナスにすれば楽にできるけど、90度は座標いじっても無理だよね。
ループで全ピクセル分回して１ピクセルづつ描いてくみたいなダサいやり方しかないのかな？
それだと微妙な角度で回転するのと同じ重さになっちゃうからやりたくない。
ループするやり方しかないならSetDIPixels使うつもりだけど。
0597デフォルトの名無しさん
2006/12/12(火) 20:22:33ＡＰＩ呼べばいいのでは。
0598デフォルトの名無しさん
2006/12/12(火) 21:01:470599デフォルトの名無しさん
2006/12/12(火) 21:17:35ちょっと呼んできてよ、来たら俺捕まえるからさ
0600デフォルトの名無しさん
2006/12/12(火) 21:18:41American Standard Code for Information Interchange
の略です
0601デフォルトの名無しさん
2006/12/12(火) 23:12:07plgblt
0602デフォルトの名無しさん
2006/12/13(水) 18:11:40実現しようと思っていますが、コピー元のテキストボックスで選択された
文字範囲がコピーのコマンドボタンをクリックするとコマンドボタンにフォーカスが
移り、テキストボックスのフォーカスが消え選択範囲も消えてしまいます。
クリックしてもフォーカスがテキストボックスから移動しないようにする
事は可能でしょうか？
0603デフォルトの名無しさん
2006/12/13(水) 18:42:43テキストボックスのHideSelectionプロパティをFalseにしろ。
0604デフォルトの名無しさん
2006/12/13(水) 18:43:080605デフォルトの名無しさん
2006/12/13(水) 20:08:48通常のファイルに対するアクセス等での処理の部分は出来たのですが、
一部のファイルが最初読み込んで以降はキャッシュから読むようになってまして
そういう場合も監視して同じ処理をを行いたいのですが、可能でしょうか？
環境はWinXPproでVB6.0SP5です。
0606デフォルトの名無しさん
2006/12/13(水) 20:21:370607デフォルトの名無しさん
2006/12/13(水) 20:23:04日本語でOK
・・・って言いたくなるくらい意味不明。
一部のファイルなの？
一部のソフトウェアで使用するファイルアクセス手段が、
初回読込以外はキャッシュから読む、ってのじゃなくて？
0608605
2006/12/13(水) 20:45:00監視したいファイルを登録しておいて、アクセス等があった際に
その時間等をログに保存するといった感じのソフトです。
そこで>>607さんがおっしゃっている、「一部のソフトウェアで使用する
ファイルアクセス手段が、 初回読込以外はキャッシュから読む」
タイプのファイルも監視対象として指定できるようにしたいと思っています。
先ほどの質問は、特定のファイルがキャッシュから読まれたというのを
判別するのは可能かどうか。というものでした。
0609602
2006/12/13(水) 20:48:24ありがとうございます！選択範囲がそのまま残るようになりました。
これで頑張ってみます。
で続きでもう一つ質問ですが、コマンドのコピーボタンを押すと
先程の方法でもフォーカスがコマンドボタンに移るのは変わらないと思いますが、
複数テキストボックスがあった場合、フォーカスが変わると
どのテキストボックスの選択範囲をコピーすれば良いのかわからなくなりますが
メニューエディターでコピー、ペースト、貼り付けを作成したのと同様に
コマンドボタンをクリックした場合でもフォーカスが変わらない方法は
あるのでしょうか？
メニューエディターの場合フォーカスが移らないためフォーカスで
でコピー内容のテキストがどのテキストボックスにあるか判定しています。
0610603
2006/12/14(木) 07:30:58無理、ボタンを押すとフォーカスはボタンに移る。
どのテキストボックスからボタンに遷移したか
判断する方法は、チョッと考えればわかるだろう。
0611デフォルトの名無しさん
2006/12/14(木) 16:23:40初期状態でImageComboに表示される画像・文字を設定するにはどうすればよいのですか。
お願いします。
0612デフォルトの名無しさん
2006/12/14(木) 16:52:57普通に
0613デフォルトの名無しさん
2006/12/14(木) 17:24:110614デフォルトの名無しさん
2006/12/14(木) 17:42:18普通に、とはどういうことですか。
何もしなければ画像は無く、テキストはTextの値が表示されるだけです。
ドロップダウンメニューから選択しない限り画像は表示できないのでしょうか。
0615デフォルトの名無しさん
2006/12/14(木) 18:08:10.ComboItems.Item(？).Selected =
0616デフォルトの名無しさん
2006/12/14(木) 18:10:46助かりました。
0617デフォルトの名無しさん
2006/12/14(木) 18:46:380618デフォルトの名無しさん
2006/12/14(木) 19:52:220619デフォルトの名無しさん
2006/12/14(木) 20:17:46一度でやろうとすると、OpenMode.InputでもOpenMode.Outputでも開いたファイルの
読み取りか書き込みのどちらかの操作で「モードが違う」と怒られてしまいます・・・
0620デフォルトの名無しさん
2006/12/14(木) 20:45:070621デフォルトの名無しさん
2006/12/14(木) 21:26:35Input,Output,Append,Binary,Randomと、ついでに
OpenAccessのDefault,Read,Write,ReadWriteの全組み合わせで
読み込みのinput()と書き込みのWriteLine()をやってみましたが
同時に動くものはありませんでした・・・
0622デフォルトの名無しさん
2006/12/14(木) 21:37:43惜しい。使い方が悪いんだよ。
0623はりー
2006/12/15(金) 00:36:16初心者なのに、ゲームつくるなんて出来ないです泣
0624デフォルトの名無しさん
2006/12/15(金) 00:52:360625デフォルトの名無しさん
2006/12/15(金) 07:31:260626デフォルトの名無しさん
2006/12/15(金) 09:05:18VBで50行200列のcsvファイルの読み込みをして、
1行1列目の数値と50行200列目の数値を取り出して計算したいのですが、
どうすればいいのでしょうか？
0627デフォルトの名無しさん
2006/12/15(金) 09:19:32必要とする計算のコードを書けば良いだけだと思いますが。
その上で解らない部分があるから質問するってならまだしも
躓く以前､歩き出す以前に丸投げする気満々なのはいかがなものかと。
そういう奴はプログラムなんて組まない方がいいです。自分で組みたいなら
出来るところまでやって､壁に当たってから人を頼りなさい。
0628酔いちくれ ◆J0rwikii8c
2006/12/15(金) 11:03:32ソースを書いてやったよ。もってけ。
ttp://sourcepost.sytes.net/sourcepost/sourceview.aspx?source_id=28973
0629626
2006/12/15(金) 11:43:53レスありがとうございます。
自分が作っているものに組み込んでみたいと思います。
ソースまで書いていただき、どうもありがとうございました。
0630デフォルトの名無しさん
2006/12/15(金) 11:47:520631デフォルトの名無しさん
2006/12/15(金) 12:24:200632デフォルトの名無しさん
2006/12/15(金) 12:56:47たとえば麻雀ゲームの役判定における「それぞれの牌の数」や、
ＲＰＧのマップ操作における「マップのデータ」などを専用のクラスに受け渡したいのですが、
プロパティに構造体や配列を割り当てることはできないそうですので困っています。
0633デフォルトの名無しさん
2006/12/15(金) 13:12:41隣の家にジェット機で行くって言うたぐいのネタだと思うが。
0634デフォルトの名無しさん
2006/12/15(金) 13:30:29Publicなメソッドに使う構造体はCOMインタフェイス(?)として公開しなきゃいけないので、アクセス修飾をFriendにできないか？
それとVB6なら関数の戻り値に配列を使えるはずだぞ？
0635632
2006/12/15(金) 14:50:57レスありがとうございます。
参考にさせてもらいます。
0636632
2006/12/15(金) 14:51:280637デフォルトの名無しさん
2006/12/15(金) 19:29:23言ってる意味がよく分からんが、添え字なしで引数に書けばいいだけなのでは。
0639デフォルトの名無しさん
2006/12/16(土) 13:56:09プロパティに構造体や配列 →構造体をクラス（データ受渡用）に書き換えるとか
プロパティに配列 →添字付きのプロパティにするとか、配列を含むクラス（データ受渡用）にするとか
それとも全部、データ受渡先クラスのプロパティとして実装してしまうとか
0640デフォルトの名無しさん
2006/12/16(土) 15:55:32何かいい方法ないでしょうか？あと、ファイル名の指定もウィンドウ入力から
じゃなくしたいです。
0641デフォルトの名無しさん
2006/12/16(土) 16:00:45どっからか「仕事でしおり付pdfファイルを作るプログラム」を拾ってくる/買ってくるか、
「仕事でしおり付pdfファイルを作るプログラム」を自分で作る。
あと、出来ればファイル名の指定もウィンドウ入力からじゃないプログラムがいいと思う。
がんばれ。
0642デフォルトの名無しさん
2006/12/16(土) 21:44:09そういう ActiveX コントロールを買えばいい。
0643デフォルトの名無しさん
2006/12/19(火) 15:09:390644626
2006/12/19(火) 15:18:28プロシージャの呼び出し、または引数が不正です。って
出てくるんですが、どうすればいいんですか？
0645デフォルトの名無しさん
2006/12/19(火) 15:20:27歩き始める前に人を頼ることを考える奴はプログラミングなんてやらない方が良い。
質問するなら壁にぶち当たったり穴に落ちたりしてからにしろ。
0646デフォルトの名無しさん
2006/12/19(火) 15:23:28ｱﾌｫ?
穴に落ちないように、事前の策を用意するのが常識だろ。
穴に落ちてから策を考えるような愚図は一生地を這いずる負け犬。
0647デフォルトの名無しさん
2006/12/19(火) 15:25:20VB6じゃなくてC#やVB.Netにしなさい
0648デフォルトの名無しさん
2006/12/19(火) 15:26:43社会に出ればその意味がわかるようになるよ。
0649デフォルトの名無しさん
2006/12/19(火) 15:34:070650デフォルトの名無しさん
2006/12/19(火) 15:46:49お互いの穴でも掘りあってろ。
0651デフォルトの名無しさん
2006/12/19(火) 15:51:130652デフォルトの名無しさん
2006/12/19(火) 16:11:16ただ録音すればいいのではなくて、
録音した音声を自由にいじれるようなものです。
バッファを通してもらえばそれだけでいいです。
サンプルだけもらえればあとは自分で解釈します。
えっと要は変声機を作りたいのです。
しゃべったとたんに変声しなくても、
ファイルに保存できれば良いです。
ググっても上手く見つかりませんでした。
簡単でいいので宜しくお願いしますm(__)m
というか、板違いですか？
0653デフォルトの名無しさん
2006/12/19(火) 16:16:02無償で俺様に進呈しろってか?
板違い以前だろ。人として発言すべき言葉じゃない。
0654デフォルトの名無しさん
2006/12/19(火) 16:36:50この板、初心者に滅法冷たいからな。
これじゃ初心者が育たなくて困るんだが。
どういう電卓か知らんが、Windows附属の電卓みたいなんでよければ、
・入力値を表示しとくTextBoxか何か置く。
・数字やら演算子やらのボタンを置く。
・演算子のキーを押したら入力値をどっかしらの変数に入れとく。
・次にまた何らかの値を入力する。
・演算子か=のキーを押したら、最初の値と入力値の間で演算し、結果を表示する。
演算が続くなら結果を変数に入れとく。
てな感じ。
用語の意味がわかんなかったらググれ。
0655デフォルトの名無しさん
2006/12/19(火) 16:39:35あーーー！すみません！
自分で見返したらとんでもないことを書いていました！
えっと、バッファを通した音声の録音と再生が分からないので、
そこのやり方だけ簡単に教えていただければありがたいということです。
mciでは出来そうに無いので・・・APIと思ったのですが、上手く出来ませんでした。
0656デフォルトの名無しさん
2006/12/19(火) 16:43:430657デフォルトの名無しさん
2006/12/19(火) 16:43:50ちょっと前に探してAPI使ったやり方もDLLも探せばあったけど
同時にしなくていいならmciでもできるでしょ？
0658デフォルトの名無しさん
2006/12/19(火) 17:04:52という、糞の役にも立たないアドバイス？が一番ムカツク件について
0659デフォルトの名無しさん
2006/12/19(火) 17:10:11mciは、保存するときに内容が変数に格納されることは
無いと思っていたのですが・・・
イメージ的にはこんな風にやりたいです↓
;flag=0は停止、flag=1は録音（再生）
do while flag=1 ;僕のイメージでは繰り返さなければ録音できないような気がします。その必要があるかは知りませんが・・・
(録音関数) buf ;録音
loop
buf=buf*～ ;変声
;ほにゃらら
do while flag=1
(再生関数) buf
loop
0660デフォルトの名無しさん
2006/12/19(火) 17:10:320661デフォルトの名無しさん
2006/12/19(火) 17:13:57保存されたファイルがあるなら読めばいいのに。
0662デフォルトの名無しさん
2006/12/19(火) 17:18:470663デフォルトの名無しさん
2006/12/19(火) 17:22:220664デフォルトの名無しさん
2006/12/19(火) 17:27:060665デフォルトの名無しさん
2006/12/19(火) 17:30:140666デフォルトの名無しさん
2006/12/19(火) 17:33:040667デフォルトの名無しさん
2006/12/19(火) 17:33:050668デフォルトの名無しさん
2006/12/19(火) 17:33:56なぜ？
0669デフォルトの名無しさん
2006/12/19(火) 17:40:03コマンドボタン ぽちっと押したら ftpみたいなことがしたい・・・。
0670デフォルトの名無しさん
2006/12/19(火) 17:41:590671デフォルトの名無しさん
2006/12/19(火) 17:43:48それは可能だよ。
ただ､そのボタンのクリックイベントにftp転送のコードを書けばよいだけ。
一度書いてしまえばあとは｢コマンドボタン ぽちっと押したら ftp｣
0672デフォルトの名無しさん
2006/12/19(火) 17:45:21だから、コマンドボタン押したときにftp.exeを起動すればいいじゃないか
VBAでもShellExecute使えるでしょうし ftp -s:もあるし
0673デフォルトの名無しさん
2006/12/19(火) 17:50:37なにを見ればいいのでしょう。
Folder オブジェクトのAttributes プロパティには何もなさそうですが。
0674デフォルトの名無しさん
2006/12/19(火) 17:51:040675デフォルトの名無しさん
2006/12/19(火) 17:58:09ftp.exeはコマンドテキストファイルとか面倒くさい
0676デフォルトの名無しさん
2006/12/19(火) 18:13:36wininet.dll はVBだけですよね？
0677デフォルトの名無しさん
2006/12/19(火) 18:20:22サンプルはありません
検索しても見つからないでしょう
VBだけですから使えません
満足しましたか？
0678デフォルトの名無しさん
2006/12/19(火) 18:29:38どこも同じですね
http://pc8.2ch.net/test/read.cgi/tech/1124559962/343
0679デフォルトの名無しさん
2006/12/19(火) 18:43:39VBのプログラムを実行させていたところ、「che」というタイトル名の同じようなウィンドウが開き、エラー停止してしまったのですが、
このような現象はどのようなエラーなのでしょうか？
いくら調べてもこれだけは見つからず…。
「snd」というタイトルで出現する場合もあるようです。
0680デフォルトの名無しさん
2006/12/19(火) 18:46:53再現できない
もっと詳しく教えれ
0681679
2006/12/19(火) 18:55:31本社でソフトの開発、工場で実働、という形なのでどの部分でエラーが発生してるか
解析できないのです…。
ちなみにどのように使用しているかというと、測定用のプログラムで測定結果のファイルを作成し、
測定終了後に別の計算用のプログラムが入ってるパソコンへと通信しているようです。
ちなみに、問題があったファイル一式を手動で動作させた場合、問題なく動作しました。
0682酔いちくれ ◆J0rwikii8c
2006/12/19(火) 22:23:52>>644
非常に申し訳ない。
ForReadingと書いているところを
1
に置き換えてください。
酔うてご迷惑おかけしますた。
0684デフォルトの名無しさん
2006/12/19(火) 22:35:34マジックナンバー使わせるあたりが
変にカッコつけず初心者らしくて素敵です。
0685デフォルトの名無しさん
2006/12/20(水) 00:10:45VB6.0でShellExecuteを使ってアプリに関連付けされている
ファイルを開きたいのですが、今のところできていません。
ByVal lpszFile As String
に入る文字列を「ファイル名を指定して実行」でやるとファイルが開ける状態です。
http://support.microsoft.com/kb/170918/ja
↑ではできるとなっていますが、他のサイトでは
exeファイルしかできない、と書いてあるところがあります。
できるとばかり思っていましたが、できないのでしょうか？
0686685
2006/12/20(水) 00:13:17「VBではexeファイルしかできない」と書いてあるところがあります。
です。
0687デフォルトの名無しさん
2006/12/20(水) 00:15:260688デフォルトの名無しさん
2006/12/20(水) 00:18:07関連付けの起動は非同期なので、若干待ち合わせしないと。
0689685
2006/12/20(水) 00:30:42「すぐ終了」というのはアプリケーションを、ということですか？
0690デフォルトの名無しさん
2006/12/20(水) 00:33:040691685
2006/12/20(水) 00:41:47その待ち合わせが原因かもしれません。
ありがとうございました。これから色々やってみます。
0692デフォルトの名無しさん
2006/12/20(水) 09:44:11PutIniを使って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")
ご教授おねがいします。
0693デフォルトの名無しさん
2006/12/20(水) 09:50:46もう冬休みに入ってるとしたら北海道や東北か？
0694デフォルトの名無しさん
2006/12/20(水) 10:03:19内地のほうがはやいんじゃなかったっけ？
北海道は冬休みは1/18ごろまで
0695デフォルトの名無しさん
2006/12/20(水) 10:17:55おまえらマジで邪魔だから氏んでくれない？
0696酔いちくれ ◆J0rwikii8c
2006/12/20(水) 11:14:33PutIni
っていうのは、きっとオマイの中で宣言している、そういう関数なんだろう。
引数がセクション、キー、値、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 )
つーか、病院関係者なら金持ちだろうし、ソフト屋に発注して
0697デフォルトの名無しさん
2006/12/20(水) 12:11:480698デフォルトの名無しさん
2006/12/20(水) 16:15:47初めて見たが。
普通直接ＡＰＩ呼ぶだろ。
0699デフォルトの名無しさん
2006/12/20(水) 16:24:30それはいかにもVBらしい悪い方法だな
0700デフォルトの名無しさん
2006/12/20(水) 18:23:00今更ながら開発用端末をWin2kからWinXPにしたところ
ファイル検索の文字列検索でbasとかfrmがヒットしなくなりました
ソース内に例えば「外来担当表」と入っているプログラムを
探したいとか言うとき、XPではどうすればいいのでしょう？
Win2kだとファイル検索の文字列でヒットしたのに・・・。｡･ﾟ･(ﾉД`)･ﾟ･｡
0701デフォルトの名無しさん
2006/12/20(水) 18:41:48それはＷｉｎｄｏｗｓのスレ向けな質問ではなかろか。
検索のウインド
→「設定を変更する(G)」→「ファイルとフォルダの～…(R)」→「上級者向け(D)～…」
にして、旧来のアレ風にしてやってみてどーか。
0702デフォルトの名無しさん
2006/12/20(水) 19:17:150703デフォルトの名無しさん
2006/12/20(水) 19:18:25バリアントと文字列の違いわかりますか？
0705デフォルトの名無しさん
2006/12/20(水) 19:30:42引数の型が違うということですか？
戻り値の型が違うということですか？
0706デフォルトの名無しさん
2006/12/20(水) 19:44:16HELPは読めますか？
0707デフォルトの名無しさん
2006/12/20(水) 20:08:49「One Stop Multi」
0708デフォルトの名無しさん
2006/12/20(水) 20:30:39"VBA.関数名"でアクセスできますが
VBSの場合この"VBA"に相当する
組み込み関数群の親は何ですか?
具体的にはArrayを上のような形で
利用したいのですが
0709デフォルトの名無しさん
2006/12/20(水) 23:48:16それってVBSでどんないいことがあるの？
0710デフォルトの名無しさん
2006/12/20(水) 23:54:45> 三．回答する上で必須ではない情報をむやみに聞き返さない。
0711デフォルトの名無しさん
2006/12/21(木) 10:44:26見えない俺ガイル
0712デフォルトの名無しさん
2006/12/21(木) 11:56:360713デフォルトの名無しさん
2006/12/21(木) 11:59:130714デフォルトの名無しさん
2006/12/21(木) 11:59:41質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、
「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。
0715デフォルトの名無しさん
2006/12/21(木) 13:28:29CSVファイルの最終行の改行を削除したいんだがどうすればいいんだろうか？
AAAA
BBBB
CCCC
DDDD
[EOF]
を↓にしたい
AAAA
BBBB
CCCC
DDDD[EOF]
0716デフォルトの名無しさん
2006/12/21(木) 13:29:140717デフォルトの名無しさん
2006/12/21(木) 13:41:25出来なければ (読み取り)→(サイズを制限して書き込み) しかない
0718デフォルトの名無しさん
2006/12/21(木) 13:52:53意外とめんどいもんですな。
VBらしくさくっといけるもんがあるのかと思ってた俺はさすがミディンコ
バイナリで読んで最後の改行記号ってとこまでは追及できたんだけど削除ができねぇ
VBのテキストファイル操作じゃファイルサイズが変わるようね編集ってできないぽ？
>>717
トンクス！
0719708
2006/12/21(木) 14:14:43OSやWSHのバージョンが違っても
親オブジェクトは一緒だろうと思って
省略してました､すみません
WindowsXP ServicePack1
WSH5.6 ServicePack無し
IEなどではなくwscript.exeでの実行です
やりたいことは"obj.Array"という形で
組み込み関数のArrayを使いたいだけです
試したことはVBA.Me,WSHの指定です
VBAはオブジェクトがありません､Me,WSHは
Arrayをサポートしてませんになり
Arrayの親オブジェクトが解らない状況なので
困ってます
知りたい理由は興味とでも思ってください
どのような環境で使うかが解っていれば
オブジェクトは一意でしょうから
どのように使うかは必要な情報では
無いでしょうし使い道は一つだけじゃないので
0720デフォルトの名無しさん
2006/12/21(木) 15:18:01まぁ､代用法でも良いから教えてくれというなら書くべきことだがな。
そうでなければ必要ないが､代用法を押しつけて自己満足したいだけの
自称上級者共は必要としてるかもw
0721デフォルトの名無しさん
2006/12/21(木) 15:28:00VB6のVBAはモジュールなので、WSHでは直接見れないと思われ
必要な関数をクラスのメソッドとしてラップしたActiveXDLLを作るのが適当だと思う
>>720
そういうチンコが大きい発言はもっと大人の男の子になってから言おうね
0722デフォルトの名無しさん
2006/12/21(木) 15:44:50ヒントTypeName(Me)
0724デフォルトの名無しさん
2006/12/21(木) 17:02:02そんなことwshスレで聞け、と覗いてみたら
あっちでも、回答振り込め詐欺やってバレて、こっちへ来たか
>>1に回答振り込め詐欺禁止とは書いてないもんな
0725デフォルトの名無しさん
2006/12/21(木) 17:14:150726デフォルトの名無しさん
2006/12/21(木) 17:35:56莫迦にしてるのはお前だけ。
0727デフォルトの名無しさん
2006/12/21(木) 17:43:10極端にバカというか痛い奴の割合が多い。
ちょっと上にも変なの湧いてるし。
0728デフォルトの名無しさん
2006/12/21(木) 18:19:36クイズの正解はひょっとして$の有無？
0729デフォルトの名無しさん
2006/12/21(木) 18:20:40残念!､>>1-723まで全て俺一人の自演だ
俺様の壮大なシナリオに引っかかったなm9（・∀・）
0730デフォルトの名無しさん
2006/12/21(木) 19:08:33>VB6のVBAはモジュールなので、WSHでは直接見れないと思われ
>>719が言ってるのはVB6のVBAではなく、VBScriptのArray()のこと
だから、オブジェクトブラウザでMicrosoft VBScript Globalsを参照設定すれば
Library VBScript_Globalが現れて、
Array()がClass GlobalObjのメンバと分る。
ってことじゃないかな
0731デフォルトの名無しさん
2006/12/21(木) 19:52:100732酔いちくれ ◆J0rwikii8c
2006/12/21(木) 20:07:29よくわからんけど、ASCIIかUnicodeかの違いじゃマイカ？？
デフォルトは ASCIIで、ミックスというくらいだから、どっちでも
いいよ？ みたいな？
もう、酔うた。
0733デフォルトの名無しさん
2006/12/21(木) 20:27:13一旦別ファイル名で書き出してから、
元のファイルを削除し、先に書き出しておいたファイルを正しい名前に変えればいい。
0735デフォルトの名無しさん
2006/12/22(金) 14:41:04質問です！
VB６のコンボボックスで、「ファイル名を指定して実行」のコンボボックス
みたいに、前方一致で補完できるようには出来ないのでしょうか。
spy++で見ると、クラスが違うので異なるコンポーネントなんだろうとは
分かるのですが。。。
WindowsAPIで作らなければならないでしょか。
0736デフォルトの名無しさん
2006/12/22(金) 14:48:52自分でコーディングすればおｋ
0737デフォルトの名無しさん
2006/12/22(金) 15:46:46ttp://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の言うように自分でゴリっとした方が楽＆安全
0738デフォルトの名無しさん
2006/12/22(金) 18:38:02見つかったファイルを全部コンボリストにADDして
そのコンボをプルダウンさせるのかな？
0739735
2006/12/22(金) 20:12:10なるほど、自分で実装するのですね。
ってか、コンボボックスというより、テキストボックスに
プルダウンの入力補完が付くというイメージの方が近い
んですかね。
やりたい事は、既にコンボボックスに登録されているリスト
の中から、前方一致で合致するものを補完する機能です。
Officeのコンボボックス（RichEdit20W)とか、コンポーネントとして
切り出してくれれば良いのに。。。
0740デフォルトの名無しさん
2006/12/22(金) 20:53:29ttp://www.runan.net/program/tips/sdk_17_IAutoComplete.shtml
0741735
2006/12/22(金) 22:18:57何が一番楽か、ちょっと模索してみたいと思います。
0742デフォルトの名無しさん
2006/12/23(土) 11:12:37708じゃないけど、参照設定でMicrosoft VBScript Globalsが見つからないです。
環境は、WinodwsXP SP2、VB6.0 SP6。
XP用のWinodws Script 5.6もインストールしました。
後学のためにぜひ試してみたいので、どなたか教えてください。
0743デフォルトの名無しさん
2006/12/23(土) 14:11:05[名前].Array()
0744デフォルトの名無しさん
2006/12/23(土) 16:02:20一番楽なのは、そういう機能を持ったコントロールを購入する事だな。
0745デフォルトの名無しさん
2006/12/23(土) 16:15:46その程度のコントロールなら簡単に作れるでしょw
っていうか、VBのコンボって最初から入力補完ついてると思うんだけど。
あれ結構鬱陶しいと思うんだけどね。
0746デフォルトの名無しさん
2006/12/23(土) 17:12:03Option 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
0747デフォルトの名無しさん
2006/12/23(土) 20:25:36残念だけど、違うと思う。
0748デフォルトの名無しさん
2006/12/23(土) 21:06:130749デフォルトの名無しさん
2006/12/24(日) 02:22:00元ネタはともかく>>745が言うようにコンボボックス使ってみただけだよ
違うコンボボックスなの？
>>735のネタは>>737とか>>740で回答されてるし
0750デフォルトの名無しさん
2006/12/24(日) 09:11:25どれを買ったらいいのやら。
最新版はどれなのでしょうか。
0751デフォルトの名無しさん
2006/12/24(日) 09:20:460752デフォルトの名無しさん
2006/12/24(日) 09:22:010753デフォルトの名無しさん
2006/12/24(日) 09:25:29VB6はMSDNサブスクリプションでないともう入手できないぞ。
0754デフォルトの名無しさん
2006/12/24(日) 11:02:05ありがとうございます。
ダウンロードのページを今開いたところです。
これって無料なんですね？
0755デフォルトの名無しさん
2006/12/24(日) 11:20:17そこらに落ちてるシリアル通信サンプルプログラム(MsComm使用の)を使っても
データの採り方というか表示のさせ方?がハイパーターミナルと違います。
ハイパーターミナルと同じような挙動をするサンプルプログラムってありませんか?
0756デフォルトの名無しさん
2006/12/24(日) 11:21:12ませんか？
0757デフォルトの名無しさん
2006/12/24(日) 11:21:550758デフォルトの名無しさん
2006/12/24(日) 11:49:560759735
2006/12/24(日) 12:52:32>>745 さん
>っていうか、VBのコンボって最初から入力補完ついてると思うんだけど。
いやー、ついてないような。。。
>>746 さん
I って入力するとItem00 と補完して欲しいのです。
VCのComboBoxやDelphiのTComboBoxは標準でこのような
動作をするようです。
もうちょっと探してみます。
0760デフォルトの名無しさん
2006/12/24(日) 15:07:170761デフォルトの名無しさん
2006/12/24(日) 18:01:07ネットワーク上のフォルダにあるexeファイルのバージョンを取得したいので、
GetFileVersionInfosize
GetFileVersionInfo
VerQueryValue
をやっていますが、
GetFileVersionInfosize
の時点で0がかえってきてしまい、取得できません。
同じＰＣ内では取得できました。
ネットワーク上のファイルだとダメ、ということはありますか？
駄目な場合、他の取得方法はありますか？
0762デフォルトの名無しさん
2006/12/24(日) 19:37:08「ネットワーク上のフォルダにあるexe」をどういう形で参照してるのかも、
どんなコードでバージョンを取得してるのかも分からんのに、回答出来る筈がない。
0763761
2006/12/24(日) 19:44:41>762
無理して回答しなくても大丈夫です。
ありがとうございました。
0764デフォルトの名無しさん
2006/12/24(日) 21:23:37このダウンロードって個人情報丸々入力しなきゃいけないんですね。
勤務先電話番号も入力必須項目になってるけど、なんか不安でダウンロードできないな。
別に問題ないかな？
0765デフォルトの名無しさん
2006/12/24(日) 21:24:33店で買えば？
0766デフォルトの名無しさん
2006/12/24(日) 21:34:25結局店で買ったものもユーザー登録が必須とかなら
ダウンロードしたほうがいいしな。
0767デフォルトの名無しさん
2006/12/24(日) 21:36:04お前が今すぐ死ねばおまえの個人情報の価値もなくなるよ
0768デフォルトの名無しさん
2006/12/24(日) 21:43:18でも死んだらVBは使用できないんです。
0769デフォルトの名無しさん
2006/12/25(月) 10:03:42参照設定でvbscript.dllへの参照を追加すると、Microsoft VBScript Globalsが
参照できました。
しかし、こいつを実際に使ってみることができません。
VBScript_GlobalライブラリのGlobalObjクラスを使うと良さそうなのですが、
これをインスタンス化することができないのです。
New GlobalObj や CreateObject("VBScript_Global.GlobalObj") を試したけれど、だめでした。
どうすれば使うことができるのでしょうか？
0770デフォルトの名無しさん
2006/12/25(月) 12:23:21例えばTop100 Width100 のJPEGをイメージかピクチャボックスに入れて、
Top30 Width70 の色情報を得るような事はできるでしょうか？
Topとかではなくもっと精密な X座標 Y座標 とかあればいいのですが、
よくわからないのでとりあえずこのような説明にしてみました。
0771デフォルトの名無しさん
2006/12/25(月) 12:30:24どういう大きさなんだろう？
Height100 Width100ならわかるんだが。
0772デフォルトの名無しさん
2006/12/25(月) 13:03:38お恥ずかしい。
0773デフォルトの名無しさん
2006/12/25(月) 13:52:190774デフォルトの名無しさん
2006/12/25(月) 15:40:02「代用法でも良いから教えてくれという」ということではないのですね？
0775デフォルトの名無しさん
2006/12/25(月) 15:57:010776769
2006/12/25(月) 17:20:31そうです。「へぇ」と言いたいために試していることなので、代用法は求めていないです。
Microsoft VBScript Globalsを使う方法、または
これが使えない理由（インスタンス化できない理由）が知りたいです。
インスタンス化できないクラスなんて、初めて見ました。
0777デフォルトの名無しさん
2006/12/25(月) 17:39:09Microsoft VBScript Globalsを使う方法は
WSHのヘルプの
Windows Script Interfaces SDK
にあるようです
0778デフォルトの名無しさん
2006/12/25(月) 23:03:28クリップボード内のビットマップの情報見て、
そのある特定アドレスの内容を比較するプログラムを作りたいのですが、
どうすれば簡単に出来るのでしょうか？
クリップボード内ビットマップのある座標の色を知りたいのです。（ＲＧＢ）
ビットマップのクリップボード開始アドレスの取得方法、
また、このアドレスは固定なのでしょうか？
どなたかアドバイスをよろしくお願いします。
0779デフォルトの名無しさん
2006/12/25(月) 23:07:04いっぱい勉強するといいよ。
そうすればそのくらい簡単に出来るようになる。
0780デフォルトの名無しさん
2006/12/25(月) 23:07:05行儀の悪いソフトを作りたいと？
0781デフォルトの名無しさん
2006/12/26(火) 00:51:25マジレスすると、ここは初心者用なので専門的なスレに行くと良い。
ここで聞いても誰もわからん。
0782デフォルトの名無しさん
2006/12/26(火) 11:40:01? = split(S, "#")
data(0,0),data(0,1),data(0,2),...と切り分けられて入って欲しいのですが。
0783デフォルトの名無しさん
2006/12/26(火) 12:13:41仕様上不可能です
というかループで代入し直せば良いだけじゃん
0784769
2006/12/26(火) 12:51:53ありがとうございます。
MSDNのWindows Script Interfaces SDKをエキサイトで翻訳して読みましたが、
私には難しすぎてわかりませんでした。
0785782
2006/12/26(火) 13:42:07ありがとうございます。
そうするしかないかなと思っていたのですが、もしかしたら何か方法があるかと思いました。
やっぱりループで入れる事にします。
0786デフォルトの名無しさん
2006/12/26(火) 14:01:09翻訳された文章を読むのは、原文を読むより至難の業だぞ。
0787デフォルトの名無しさん
2006/12/26(火) 14:18:150788769
2006/12/26(火) 15:17:45「軽く翻訳してみた結果、自分の頭では理解するのが無理そうな内容だった。
今はあきらめようかと思ってる。」と言いたかったのです。
もちろん英語も苦手です。
0789デフォルトの名無しさん
2006/12/26(火) 15:45:350790デフォルトの名無しさん
2006/12/28(木) 02:04:21みんなVB.NETに移ったのかな？
俺はC#に移ったけど
あなたの仕事ではC#とVB.netどっちが多い？
0791デフォルトの名無しさん
2006/12/28(木) 10:46:33現在業務では組み込み系でCやってる
VSはもう自宅では触ってない・・・Spoke版買ったけど・・・
触る暇が無い
0792デフォルトの名無しさん
2006/12/28(木) 11:12:260793デフォルトの名無しさん
2006/12/28(木) 22:00:43C#の案件が８で、VB.NETの案件が６。
でも、これって上司がC#しかやったことないというのがそもそもの理由。
0794デフォルトの名無しさん
2006/12/28(木) 22:21:45SE/PGを辞めて5年たつが、時代はそんなに変わっていたのか。
0795デフォルトの名無しさん
2006/12/29(金) 06:36:52本気にするな
冬休みだからな。
0796デフォルトの名無しさん
2006/12/29(金) 09:05:10C#のほうが洗練されてるといえばされてるけど。VB.netでも十分綺麗なプログラムは出来る。
0797デフォルトの名無しさん
2006/12/29(金) 09:34:02> 触る暇が無い
2ch の暇はあるのに？ (w
>>796
A は B より洗練されてて、A も B も似たようなことができる。
普通 A を選ぶでしょ。
0798デフォルトの名無しさん
2006/12/29(金) 09:51:53VBは腐ってようが今までずっと続けたMSの実績はある。
C丼はその気構えがあるか・・・。
0799デフォルトの名無しさん
2006/12/29(金) 10:16:58vb.net とは違うもんだよ。
0800デフォルトの名無しさん
2006/12/29(金) 10:39:04雑談スレにでも池。
0801デフォルトの名無しさん
2006/12/30(土) 00:58:56IE7だとモーダルにならなくない？
メッセージループとかどーなってんのかな。
0802デフォルトの名無しさん
2007/01/03(水) 15:03:54IEや別のPCなら問題なく見られます。
どなたかご指導をお願いします。
0803デフォルトの名無しさん
2007/01/03(水) 15:14:13問題ありませんよ
0804デフォルトの名無しさん
2007/01/03(水) 17:25:04Excelシートのコマンドボタンを押すと、VISIOのある特定のファイルが開くようにしたいのですが、
うまく動きません。
Dim VisioApp As Visio.Application
Set VisioApp = CreateObject("Visio.Application")
Set VisioApp = GetObject(ファイルのパス, "Visio.Application")
Visio自体は起動できるのですが、「ファイルのパス」で指定されたファイルが出てきません。
どうしたらうまくいくでしょうか。
0805デフォルトの名無しさん
2007/01/03(水) 18:08:130806デフォルトの名無しさん
2007/01/03(水) 18:58:32できません。
C\～の絶対パスを入力しても
「オートメーションの操作中にファイル名またはクラス名を見つけられませんでした。」
というエラーメッセージが出てきます。
0807デフォルトの名無しさん
2007/01/03(水) 21:49:16Dim VisioApp As Visio.Application
Dim Document As Visio.Document
Set VisioApp = New Visio.Application
Set Document = VisioApp.Documents.Open(ファイル名[絶対パス])
...
Document.Close
ではダメかな？
0808デフォルトの名無しさん
2007/01/04(木) 02:08:44ありがとうございます!!
出来ました!!!
0809デフォルトの名無しさん
2007/01/04(木) 15:16:18指定した拡張子（*.csvみたいな感じ）のファイル名を取得したいのですが･･･。
した事ある方、よろしくお願いします。。。
0810デフォルトの名無しさん
2007/01/04(木) 15:52:35FindFirstFile と FindNextFile （共にAPI関数）
使い方はMSDNで調べてちょ。
0811デフォルトの名無しさん
2007/01/04(木) 16:04:200812デフォルトの名無しさん
2007/01/04(木) 17:15:57Dim 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になると思ったのですが、
どのように違うのでしょうか。
0813デフォルトの名無しさん
2007/01/04(木) 17:56:46再現できないのだが、VBのバージョン と kohi と VarType(kohi) の値をカキコしてくれないか？
0814デフォルトの名無しさん
2007/01/04(木) 19:00:15つ二進数で少数表記。
ブイバーにはわからんかもね。
0815デフォルトの名無しさん
2007/01/04(木) 23:39:21私 API 知ってるんだぞ、えらいだろ～ って言うちんけな自慢？ (w
>>811 が書いてる通り vb6 dir でググレ >>809
0816デフォルトの名無しさん
2007/01/05(金) 00:15:020817812
2007/01/05(金) 09:10:16VarType(kohi)=3でLONG型になっています。
宜しくお願いします
0818デフォルトの名無しさん
2007/01/05(金) 10:09:31とりあえずVB6.0SP5ではそんな現象出なかった。
0819デフォルトの名無しさん
2007/01/05(金) 10:29:58何がしたいのかさっぱりわからん。
誤差が出る理由について知りたいならPC内部の実数の表現形式とか勉強すりゃいいじゃん。
http://support.microsoft.com/kb/409744/ja
それ以前にMSDNライブラリ見て演算結果や変換関数の結果の型がどうなるのか調べてみた？
っていうか、人に物を聞くなら疑問点を明確にしろよ。
なんだよそのコード。誰もエスパーじゃねえんだけどわかってる？
そんなコードの断片をコピペして、虫食い部分は透視しろとでも言うの？
はっきり言って馬鹿じゃねえの。
0820デフォルトの名無しさん
2007/01/05(金) 10:36:400821デフォルトの名無しさん
2007/01/05(金) 10:41:41走る 走る 俺達
0822デフォルトの名無しさん
2007/01/05(金) 11:01:34(浮動小数点)演算誤差って言えよ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))
0823デフォルトの名無しさん
2007/01/05(金) 12:08:37馬鹿はお帰りください
0824812
2007/01/05(金) 12:36:16また、何回も質問して申し訳ありません。
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になると思うのですが、
結果が違います。
どうしてなのでしょうか？
0825デフォルトの名無しさん
2007/01/05(金) 12:39:28このクズやろう。
お前、みんなのレスを読み返せ。
0826デフォルトの名無しさん
2007/01/05(金) 12:39:50ClngじゃなくCdbl（だっけ？）でDoubleに型変換しないといけないんじゃないか？
ついでにいうとVariantは最低限のとき使ったほうがいいんじゃないか？
0827812
2007/01/05(金) 12:48:46整数にしたいもので･･･
すみません。みなさんの機嫌を悪くさせているみたいなので、
以後かきこしません。
どうもすみませんでした
0828デフォルトの名無しさん
2007/01/05(金) 12:53:03回答者様に感謝の言葉述べてから帰れよ。
0829デフォルトの名無しさん
2007/01/05(金) 13:13:12まあ>>819のリンク先ぐらいせめて読んだ方がいいよ。
どうせまだ読んでやしないんだろ？
馬鹿じゃなければ、コンピュータが実数をどう扱うかのイメージがだいたいつかめれば
必要な結果を得るためにはどういう処理をしたらいいか自ずとわかるはず。
812は理科系の人間じゃないのかな。あるいはよほど三流処の出か。
実数演算をするときには実験の数値を扱うときのように（もちろん理由は全く違うけど）
有効数字（桁数）を意識しなきゃダメだ。
たとえば必要な精度が小数点以下第二位までと予めわかってるなら演算結果を変数に
しまう前にRoundで小数点以下第二位までに丸めなきゃ。
そうすりゃそのデータ型の扱う数値の範囲を超えない限り誤差はでないよ。
もちろんこれは厳密な言い方ではないけどね。
それから言うまでもないが特に理由もないのにVariant型の変数なんて使わないことだね。
0830デフォルトの名無しさん
2007/01/05(金) 13:21:28有効桁数～？！
データ型の扱う数値の範囲を超えない限り誤差はでない？？！！
いいから、馬鹿はくるんじゃねぇよ。
0831デフォルトの名無しさん
2007/01/05(金) 19:16:10> VB5.0SP2で出ている現象です。
って・・・
それ、最新のＳＰじゃないだろ。
ＳＰは最新をあてないとそもそも問題外。
話にならん。
0832デフォルトの名無しさん
2007/01/05(金) 19:25:55これは最新のSPで変更あった個所なのか？
0833デフォルトの名無しさん
2007/01/05(金) 19:39:36チャンチャン♪
0834デフォルトの名無しさん
2007/01/05(金) 21:18:32そういう問題じゃないだろ。
0835デフォルトの名無しさん
2007/01/05(金) 23:35:36古いソースを扱うときは当時の環境でいじるが？
一人だけバージョンやSPの違う言語を使うわけにいかないからな
で、824はSPが問題なのか？
0836デフォルトの名無しさん
2007/01/06(土) 21:08:440837デフォルトの名無しさん
2007/01/06(土) 23:00:04何とかして固定アドレスに値を格納する方法は無いでしょうか？
apiにもそれらしいものが見つからなくて・・
0838デフォルトの名無しさん
2007/01/06(土) 23:40:010839デフォルトの名無しさん
2007/01/06(土) 23:42:47一．答えられない質問は無駄に罵倒せずスルー。無理するな。
二．代用法を強制しない。
三．回答する上で必須ではない情報をむやみに聞き返さない。
0840デフォルトの名無しさん
2007/01/06(土) 23:58:22今ちょっと環境が違うから分からんけど、ＡＰＩにあった様な・・・
でも、あくまでも「アプリから見て」同じアドレスってだけだけど。
0841デフォルトの名無しさん
2007/01/07(日) 00:48:48見えない＝テンプレ
>>1に色々在る中で抜粋してるのじゃね？
0842デフォルトの名無しさん
2007/01/07(日) 16:37:18規制中で携帯からなのですが、時間がかかっても知りたいので、
気が付きましたら教えて下さい。よろしくお願いします。
0843デフォルトの名無しさん
2007/01/07(日) 19:33:52win98で開発したVB6のソースコードを最近買ったXPにコピーしてコンパイル
したところRIGHT関数 TIME関数でコンパイルエラーが出現します。
他の関数でもエラーが出現する可能性はあると思います。
最新のServicePack,Runtimeをインストールしてみても現象は変わりません。
原因について色々ぐぐって調べてみたのですがどうしても力及ばずわかりません。
ご教授のほど、お願いいたします。 おやじ。
0844デフォルトの名無しさん
2007/01/07(日) 19:40:38必要なActiveXが登録されていなかったり、バージョンが違っていたり、
参照設定がおかしくなってるところはないか？
この辺がおかしくなってると関係ないところでエラーが出たりする。
0845デフォルトの名無しさん
2007/01/07(日) 19:44:27XPではVB6.0はMSのサポート対象外。
つまり、正常に動作しない可能性がありますよ。
ＭＳは知りませんよ。
ということ。
0846デフォルトの名無しさん
2007/01/07(日) 19:52:42うそこくでねぇ。Vistaでも保障対象だ。ただしActiveXは保障の対象外のものもある。
同時代のNT4とWin98の間でもこういう問題はよくあって、ActiveXの参照設定によくなかされた。
0847デフォルトの名無しさん
2007/01/07(日) 19:56:14実行は出来るだろうけど
>>843
Strings.Rightのように修飾を広げて(?)みて
0848デフォルトの名無しさん
2007/01/07(日) 19:56:512008年4月8日まで延長された
0849デフォルトの名無しさん
2007/01/07(日) 20:12:39.Netに移れってのはごもっともだが。
0850デフォルトの名無しさん
2007/01/07(日) 20:28:22実行は出来るだろうけど
0851デフォルトの名無しさん
2007/01/07(日) 21:02:29メインのサポートはもう終了していて、延長サポート、つまり
100％ＭＳの不具合という場合のみ有償でサポートしますよという事。
Vistaについても、XPで現在動いているものをVistaでも動くように
努力すると、ＭＳはいっている。
XPで動かないものは知りません。
ちなみに、>>843の問題は、よくわからん。
エラーの内容をキボンヌ。
0852デフォルトの名無しさん
2007/01/07(日) 21:05:070853デフォルトの名無しさん
2007/01/07(日) 21:09:340854デフォルトの名無しさん
2007/01/07(日) 21:12:11救いようがない、お馬鹿だな。
ttp://www.support.microsoft.com/lifecycle/?c1=501
ttp://www.support.microsoft.com/lifecycle/
なんて書いてあるんだ？教えてくれ。
0855デフォルトの名無しさん
2007/01/07(日) 21:17:00それのどこ？
0856デフォルトの名無しさん
2007/01/07(日) 21:19:09世に出た時期を見れば明らか。
ＶＢ発売よりＸＰ発売の方が後だからね。
自分より後に発売されたＯＳ上での動作なんて保障出来る筈がない。
それがＭＳクォリティ。
0857デフォルトの名無しさん
2007/01/07(日) 21:23:070858デフォルトの名無しさん
2007/01/07(日) 21:24:410859デフォルトの名無しさん
2007/01/07(日) 21:27:30頑張って、Visual Basic 6.0で探してください。
0860858
2007/01/07(日) 21:28:03>>856みたいな人っていうのはたぶん「保障」って言葉の意味を
よく考えてみたことがないんだろうね。
一言で言えばプログラムの動作の「保障」をするのはそのプログラマの仕事であってMSの
仕事ではないよ。当たり前のことだし、当たり前過ぎて言葉遊びに過ぎないと思われそうだがそうではない。
0861デフォルトの名無しさん
2007/01/07(日) 21:29:030862おやじ
2007/01/07(日) 21:30:08If Right(App.Path, 1) = "\" Then
Debug.Print Time
ソースはこんな感じです。
"コンパイルエラー プロジェクトorライブラリがみつかりません。"
とメッセージボックスが表示されます。
しかし、痛いなあ・・・。ソースがもったいないし。
0863デフォルトの名無しさん
2007/01/07(日) 21:31:180864デフォルトの名無しさん
2007/01/07(日) 21:36:47.NETは簡単にEXEからソースに戻るから嫌なんだよな。
難読程度しかできないし。
0865デフォルトの名無しさん
2007/01/07(日) 21:39:30俺のとこもＸＰだけど、そのソース動くから、運が悪かったと諦めて、
OSから再インスコ。
>>861
まぁ、ああいうヤシもおもしろいから必要(´･ω･`)
0866デフォルトの名無しさん
2007/01/07(日) 21:45:300867デフォルトの名無しさん
2007/01/07(日) 21:47:320868デフォルトの名無しさん
2007/01/07(日) 21:47:55なんだ、ググると簡単にそれらしい現象を説明してあるページがみつかるじゃん。
どうせろくにググってもないんだろ？
アホらし。
結論からいうと、たぶんプロジェクトの参照設定の中に不正なものがあるんだよ。
たとえばエクセルをインストールしてもないのにエクセルのオブジェクトライブラリを
参照しているとかさ。
0869デフォルトの名無しさん
2007/01/07(日) 21:53:48動くようなら>>844の指摘が妥当だと思いますよ。
参照設定で無効になってるところはないか、同じ名前のものに２重にチェックが入ってるものはないかなど
調べてみてください。
うちの環境ではＸＰでＶＢ６の開発も運用もやっていてＭＳの保障は知らないけど問題なく動いています。
0870デフォルトの名無しさん
2007/01/07(日) 22:11:18>>845-869までまぬけだね
0871デフォルトの名無しさん
2007/01/07(日) 22:14:53【保障】(名)
〔補説〕 「保」は小城、「障」はとりでの意
［1］ 責任をもって、一定の地位や状態を守ること。
・航路の安全を―する
［2］ ささえ防ぐこと。また、そのもの。
【保証】(名)
［1］ まちがいなく大丈夫であるとうけあうこと。
・利益を―する
・―の限りではない
[ 大辞林 提供：三省堂 ]
0872デフォルトの名無しさん
2007/01/07(日) 22:47:51> 難読程度しかできないし。
未だに対処方法知らない人も居るんだね。とは言えスレ違いか。
0873デフォルトの名無しさん
2007/01/07(日) 22:51:21よくある間違いのひとつだね。
仕事でこの手の間違いをすると、素人ぽく思われる。
内臓と内蔵の間違いとか、めちゃくちゃよく出てくる。
デスクトップをディスクトップとか。
0874デフォルトの名無しさん
2007/01/07(日) 22:53:20対処できるの？知らなかった。
ぜひ教えてください。
0875デフォルトの名無しさん
2007/01/07(日) 23:06:23まぬけだね
0876おやじ
2007/01/07(日) 23:28:06おそらくは、ご指摘の通りだと思います。暫くVBを離れてたので
その事を失念してあわててしまいました。多分ランタイムのバージョンのせいかな。
明日、帰宅してからやってみますわ。
話変わりますがVBは便利だね。今日動作しなかったアプリは海外にも
ばら撒いているので慌てました。
VBは永久保障して欲しいものだね。
0877デフォルトの名無しさん
2007/01/07(日) 23:33:14逆コンパイラがあるの？
0878デフォルトの名無しさん
2007/01/07(日) 23:34:16そう思いたければそう思ってればいいさ。
別に君が勘違いしてようと俺は困らない。
0879デフォルトの名無しさん
2007/01/07(日) 23:41:24コメント文以外は変数名までかなりの形で元に戻る
0880デフォルトの名無しさん
2007/01/07(日) 23:47:12愉快なまぬけだな
0881デフォルトの名無しさん
2007/01/07(日) 23:51:15まぬけな彼も被害者。
0882デフォルトの名無しさん
2007/01/08(月) 00:08:12アセンブリにMSILにコンパイルされていれば逆コンパイルが効く
逆に言えばアセンブリに無い(ローダが動かないからだめかも)、
またはMSILでないなら逆コンパイルできないよ
0883デフォルトの名無しさん
2007/01/08(月) 00:18:08ＭＳの標準ツールなの？
0884デフォルトの名無しさん
2007/01/08(月) 00:28:06そんなことよりVB.NETやC#で逆コンパイル効かなくするには？
0885デフォルトの名無しさん
2007/01/08(月) 00:30:37考えろボケ
ngenでも使ってろ
0886デフォルトの名無しさん
2007/01/08(月) 00:32:280887デフォルトの名無しさん
2007/01/08(月) 00:37:440888デフォルトの名無しさん
2007/01/08(月) 00:47:14何年も前に不可能になったが。
0889デフォルトの名無しさん
2007/01/08(月) 01:12:31ttp://boomerang.sourceforge.net/
0890デフォルトの名無しさん
2007/01/08(月) 02:14:40ヤフーオークションのカテゴリ（本とかバイクとか電動工具とか）を自動で全て取得する良い方法ない？
0891デフォルトの名無しさん
2007/01/08(月) 02:28:32そーゆープログラムかけばええやんw
0892デフォルトの名無しさん
2007/01/08(月) 03:45:050893デフォルトの名無しさん
2007/01/08(月) 08:20:43860のような真性が一人で大暴れしてる。
0894デフォルトの名無しさん
2007/01/11(木) 02:22:56品番号 品名 番号 担当者 金額
----------------------------------
1 あああ 0001 あああ 200
0002 いいい 300
0003 ううう 400
----------------------------------
合計 900
の品名の下の行を表示させなくするにはどう記述したらいいんでしょうか？
どなたか教えてください；；
0895デフォルトの名無しさん
2007/01/11(木) 02:24:34頼む＞超能力者
0896デフォルトの名無しさん
2007/01/11(木) 02:34:55>>1
0897デフォルトの名無しさん
2007/01/11(木) 11:18:16もうお約束の言葉過ぎて
0898デフォルトの名無しさん
2007/01/11(木) 11:35:06君以外の誰かに直接頼むのが手っ取り早いよ。
0899デフォルトの名無しさん
2007/01/11(木) 15:00:17品名は「列」なのに、「下の行」って何だ？
0900デフォルトの名無しさん
2007/01/11(木) 16:59:51最初の行にだけ表示したいという話かな
0901どうかご慈悲を
2007/01/11(木) 18:29:07dσｖ/ｄ（ｘ－Ｌ） +２（Ｋσｖtanα+２Ｃｗ）/{Ｄ-２（ｘ－Ｌ）tanα}＝γω＾２*（Ｒo+x）
解析的には解けないのでルンゲクッタ法で解きます。
初期条件は（１）がｘ＝０、σｖ＝σ₀、γ＝γ₀
（２）のσｖ、γはｘ＝Ｌにおける（１）の解
これのＥＸＣＥＬ ＶＢＡプログラムをお願いします。
正直時間がないのでどうか今週中にお願いできませんでしょうか。自分ではにっちもさっちも行きません。
この先に進めないと本当に危ないんです。
0902デフォルトの名無しさん
2007/01/11(木) 18:35:160903デフォルトの名無しさん
2007/01/11(木) 20:17:34VB6 SP6で開発してます。
エラーメッセージで「It is error not anticipated. subscript out of range」という
メッセージが表示されます。これってどんな時に出るのでしょうか？
やっていることはactive reportのPrinter.PrintDialogの命令をしている所で発生しています。
これだけではわかりにくいとは思いますが、お願いします。
0904デフォルトの名無しさん
2007/01/12(金) 01:34:06その通りです…
わかりにくくてすみません；；
0905デフォルトの名無しさん
2007/01/12(金) 08:04:51スレ違い。EXCEL VBAスレへ行け。
ま、ルンゲクッタ法程度の実装が出来なきゃ、
この先、クソの役にもたちゃしないけどな。
・・・と釣られてみるｗｗｗ
>>903
グレープシティに訊け
>>904
元のデータがどう格納されていて、
それをどういう方法で取得していて、
結果的にどうしたいのかを筋道立てて説明しなよ。
・・・そうすればロジック完成するだろ？
0906デフォルトの名無しさん
2007/01/13(土) 23:43:07リッチテキストボックスでBMP形式の画像を読み込ませたいのですが、
画像が張り付いた後に、ペイントソフトが起動してしまいます。
ペイントが起動しないようにするにはどうしたらよいでしょうか？
RichTextBox1.OLEObjects.Add , , App.Path & "\" + "test.bmp"
0907デフォルトの名無しさん
2007/01/14(日) 11:51:54set ie = createobject("InternetExplorer.Application")
ie.visible = true
ie.navigate "http://www.yahoo.co.jp";
というふうにIEでURLを開くときにIEのプロキシ設定を無視したいのですが
設定方法がわかりません。
ie.putProperty
で設定できるかも、とは思うのですが設定値がなかなかわかりません。
もしご存知の方がおられましたら教えていただけないでしょうか？
よろしくお願いします。
0908デフォルトの名無しさん
2007/01/14(日) 12:00:21createobject("InternetExplorer.Application")
を使わなければいいんじゃん
普通にWin32API使ってアクセスしなよ
0909デフォルトの名無しさん
2007/01/14(日) 16:38:55Win32API 使えばできるなんていう当たり前のことを言われてもウザイだけだし。
0910デフォルトの名無しさん
2007/01/14(日) 18:29:57お前も回答は知らないから書けないんだな。
0911デフォルトの名無しさん
2007/01/14(日) 18:46:52やり方知らないんだったら黙ってれば？
0912デフォルトの名無しさん
2007/01/15(月) 01:44:03VBで
batファイルを作成
それを実行
bat処理が終了したらプログラムに戻る
というプログラムは作ることが出来ますか？
0913デフォルトの名無しさん
2007/01/15(月) 02:19:29出来る。余裕。超余裕。
0914912
2007/01/15(月) 02:26:42すみません
shell関数で実行するところまでは出来たのですが
batファイルを実行すると次に進んでしまいます
どうすればいいのでしょうか？
超初心者向けに行った方がよいですか？
0915デフォルトの名無しさん
2007/01/15(月) 02:35:21APIのShellExecuteとWaitForSingleObject辺りでｸﾞｸﾞって見て下さい。
0917デフォルトの名無しさん
2007/01/15(月) 10:29:52Set objHttp = New XMLHTTP30
Set objStream = New Stream
strServer = "http://"; & strHost & "/"
strURL = strServer & "test/offlaw.cgi/" & strBoardName & "/" & strKey & "/?raw=0.0&sid=" & strSessionID
With objHttp
.Open "GET", strURL, False
.SetRequestHeader "Host", strHost
.SetRequestHeader "User-Agent", "Monazilla/1.00"
.SetRequestHeader "referer", strServer & strBoardName
.SetRequestHeader "Accept-Encoding", "gzip"
.SetRequestHeader "Connection", "close"
.Send
With objStream
.Open
.Type = adTypeBinary
.Write objHttp.ResponseBody
.SaveToFile strDatSavePath, adSaveCreateOverWrite
.Close
End With
.Abort
End With
2chブラウザみたいなものを作っていて●ログインして過去ログを取得する部分で行き詰まってるのですが
ttp://kage.monazilla.org/system_DOLIB100.html
を参考に上のコードを実行すると"-ERR もう つかえません"というファイルが作成されます
このエラーでググってみるとFireWall関連が原因とあるのでWinのFWとNISを無効にしてみるも結果は同じ
strURLはhttp:// pc8.2ch.net/test/offlaw.cgi/tech/1152667953/?raw=のような感じで
strSessionIDの値はログインの個人情報なのでさすがに晒せませんがこの値を使って書き込むと
名前欄に●を書けるので値に間違いは無いです
WinXP SP2/VB6 SP6/IE6の環境 ですが何処をどう直せば良いのでしょうか?
0918デフォルトの名無しさん
2007/01/16(火) 11:00:22それともまったく別物ですか？
0919デフォルトの名無しさん
2007/01/16(火) 11:10:210920デフォルトの名無しさん
2007/01/16(火) 23:10:39そのエラーってコードで回避しようがあるのだろうか？
ファイアーウオールではじかれてるって事は
そのUrlに対してネットワークルートとか権限の問題は確保できてる？
例えばログファイル、格納ディレクトリに対してのアクセス権とか
直接URL叩いてログ置き場ってみれますか？
0921920
2007/01/16(火) 23:14:48接続先からの閲覧に必要な要求を満たせる情報が手元にあるなら
アクセス権は関係ないですね。すいませｎ
0922デフォルトの名無しさん
2007/01/17(水) 01:34:01それで、リストボックスのstyleを1にしてチェックボックスも表示するようにしたのですが、
どのようにアクセスするのかがわかりません。
条件に応じてチェックを入れたいのですが、ご存じの方、アドバイスをお願いします。
0923デフォルトの名無しさん
2007/01/17(水) 02:06:52ごめんなさい。
単に、Selectedで出来ました。てっきり選択されているかを見るものだと思っていました。
0924デフォルトの名無しさん
2007/01/18(木) 18:07:47VB6.0でinetコントロールを使ってFTPにファイルをアップするプログラムなのですが、
開発環境ではきちんとアップするのに、実行形式にするとアップしません。
何が原因なのでしょうか？
開発環境と実行環境で挙動が違うことって初めてなので戸惑っています。
0925デフォルトの名無しさん
2007/01/18(木) 18:40:23問題の起こる最低限のコードとデータ
0926デフォルトの名無しさん
2007/01/18(木) 19:28:550927デフォルトの名無しさん
2007/01/18(木) 20:14:25VBの保存フォルダも変わってそう。
0928デフォルトの名無しさん
2007/01/19(金) 11:05:08110 300 600 1200 2400 9600 (既定値) 14400 19200 28800 38400 56000 128000 256000
とあったのですが、４８００は使えないのですか？
教えてください。
0929デフォルトの名無しさん
2007/01/19(金) 11:57:45b = trim(a)
とやると、bは "9" になってしまうのですが、
これを回避する方法はないでしょうか？
0930デフォルトの名無しさん
2007/01/19(金) 12:06:200931デフォルトの名無しさん
2007/01/19(金) 12:43:190932デフォルトの名無しさん
2007/01/19(金) 12:44:270933デフォルトの名無しさん
2007/01/19(金) 13:05:300934デフォルトの名無しさん
2007/01/19(金) 16:24:140935デフォルトの名無しさん
2007/01/19(金) 16:38:520936デフォルトの名無しさん
2007/01/19(金) 16:41:39「開発環境と実行環境で挙動が違う」のなんて普通だが。
ちゃんと考えて環境構築しないと。
0937デフォルトの名無しさん
2007/01/19(金) 17:00:26CSV形式で出力してファイル名.xlsでいいじゃないか
本当エクセルにカキコみたいならぐぐれば沢山出てくる
0938デフォルトの名無しさん
2007/01/19(金) 18:41:10その１
私の調べた限りではできなかったのですが
CommonDialogではフォルダの指定はできないのでしょうか？
ひとつのボタンをクリックして、
フォルダもファイルも両方指定できるようにしたいです。
フォルダ指定のできるプログラムも見つけたのですが、
それだと今度はファイルが指定できないし・・・です。
その２
CommonDialogでショートカットファイルを指定すると
ショートカットのリンク先を取得してしまうのですが、
ショートカットファイル自体を取得することは可能ですか？
またその方法がわかりましたら教えてください。
0939938
2007/01/19(金) 18:48:52その２はフラグで解決しました。
きちんとヘルプ読まないといけませんね・・・
0940デフォルトの名無しさん
2007/01/19(金) 19:19:37ネットワーク上で共有になっているかを調べることはできますか？
またネットワーク上でのパスを取得することはできますか？
0941デフォルトの名無しさん
2007/01/19(金) 20:26:48その１
質問の意味が分からんが、
フォルダは指定出来るだろ。
0942デフォルトの名無しさん
2007/01/20(土) 00:50:00コモンダイアログをhookすれば可能かもしれないけどSHBrowseFolderの方が一般的なUIだとおもう
第一ファイルかフォルダのどちらかを選択すること自体、おかしい話に聞こえる
0943デフォルトの名無しさん
2007/01/20(土) 16:01:03OpenOffice.org Baseでつくったodbファイルに接続をしたいのですが
Public cn As New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\DOKOMODO\DOKOMODO.odb"
cn.Open
のcn.openのところで「実行時エラー'-2147467259' （80004005） データベースの形式'C:\DOKOMODO\DOKOMODO.odb'を認識できません。」と出てしまいます。
Providerが違うのかな。と思っているのですが何を入れればいいのかわかりません。
どなたかご教授お願いします。
0944デフォルトの名無しさん
2007/01/20(土) 16:10:40１．デスクトップを右クリックして新規作成→テキストファイル。
２．ファイル名をa.udlにかえる（拡張子が重要）。
３．アイコンがエクセルシートとパソコンのような奴になるので、そいつをダブルクリック。
GUIでぐいぐいと「ADO接続文字列」を作る事ができる。設定が出来上がったら保存し、a.udlをUNICODEを読めるテキストエディタ(Windows2000以上のメモ帳など)で開けばばっちり接続文字列ができあがっているってスンポーだ。
0945デフォルトの名無しさん
2007/01/20(土) 16:41:560947943
2007/01/20(土) 17:40:47cn.openでは落ちなくなったのですが
このオブジェクトを使用して cn.execute を行うと
「実行時エラー 2147217900 （80040e14） コマンド処理中に一つ以上のエラーが発生しました。」
と出てしまいます。
何が原因なのでしょうか？
ちなみに接続文字列は
Provider=ADsDSOObject;Encrypt Password=False;Integrated Security=SSPI;Data Source=DOKOMODO.odb;Location=C:\DOKOMODO;Mode=Read;Bind Flags=0;ADSI Flag=-2147483648
です。
0948デフォルトの名無しさん
2007/01/20(土) 23:12:02JScriptなら
this.escape()
で行けるのにね
VBScriptで
Me.Escape()
が駄目ってことは、VBScriptの仕様でんな。
ま、代用法は有るかも知れんが、代用法は要らんちゅうことだし。
0949デフォルトの名無しさん
2007/01/22(月) 15:42:56コンパイルが正常終了した際のログを取得したいのですが、
（タイムスタンプ、プロジェクト名、DLL名、EXE名、正常終了した旨等）
ソースには手を加えずに設定だけで出力する方法はありませんでしょうか？
どなたかご教授願います。
0950デフォルトの名無しさん
2007/01/22(月) 15:47:450951デフォルトの名無しさん
2007/01/22(月) 16:09:200952デフォルトの名無しさん
2007/01/22(月) 18:20:04951さん、アドバイス有難うございます。
早速、コマンドラインから以下のコマンドを試してみました。
vb6.exe△/make△project1.vbp△>△comp.log
結果ログファイルは作成されましたが、ファイルの中身は空でした。
makeコマンドのオプションで出力させる方法が無いかと調べてみましたが、
見付からず仕舞いです。
ご存知の方おられましたらご教示お願いします。
0953デフォルトの名無しさん
2007/01/22(月) 19:27:40画面に出てるなら2>などで取れるんじゃない？
0954デフォルトの名無しさん
2007/01/22(月) 20:20:42だね。
空っぽって事は、StdErr に出してるんでしょう。
0955デフォルトの名無しさん
2007/01/22(月) 20:29:38テキストボックスにフランス語の入出力をさせたいんですが
うまくいきません。フォントを times new roman に変更して
文字コード表からéとかàなどをコピペして入力しようと
したんですが、?と表示されます。どうすればよいでしょうか。
0956デフォルトの名無しさん
2007/01/22(月) 20:33:05それはVB.Netを使うのが早道です
0957955
2007/01/22(月) 20:47:280958デフォルトの名無しさん
2007/01/22(月) 20:53:27ダウンロードする環境もないの？
VB付き雑誌を買う金も無いの？
VB6でもそれらの入出力は作ればできるけど標準のテキストボックスは使えない
労力のわりにあわないし説明する気にもなれない
0959デフォルトの名無しさん
2007/01/22(月) 21:03:26アカデミックバージョン（？）なら無料でダウンロード出来るんだけど？
0960デフォルトの名無しさん
2007/01/22(月) 22:36:48本来はVBアプリからエクセルシートを読み出すように作成しているのですが
VBAで代替して分かりやすく動作を説明します。
機能概要ですが、エクセル作成ファイルにシートA、シートBがあり
両方のシートに存在するデータはレジストリコマンド(.regファイルのコマンド)行です。
そこで関数Sub WriteRegMarge()を実行すると
シートA、シートBのレジストリデータをそれぞれ拾い出してA&Bのマージregファイルが
作成されるといったものです。
この処理でシートA、シートBのレジストリキー、項目はシート内にそれぞれきちんと昇順にソートが
かかっているのですが、マージの処理が終わると、やはり昇順ソートを意識してないため
シートAのデータ書き出し後の末尾からシートBのデータが列挙されてしまいます。
さらにシートA、シートBとも同一のレジストリキー配置が存在するため、同一の
レジストリキーも重複書き出しされます。Accessを介してSQLなどでのソートも
考えましたが、そのままシンプルにExcelObject、またはVBA上のみで適度なソートを
実現する方法はないでしょうか？できれば完全に近い昇順配置を望んでいます。
データの例
[HKEY_LOCAL_MACHINE\SOFTWARE\Video\Common\A]
"A"=dword:00000002
[HKEY_LOCAL_MACHINE\SOFTWARE\Video\Common\Dec]
"I"=dword:00000002
0961デフォルトの名無しさん
2007/01/22(月) 22:49:28半分も読まなかったから見当外れだったらごめん。
１．自分でソートアルゴリズムを書く。数10件程度ならばバブルソートで十分。
２．キーを文字列化出来るならSortedプロパティをオンにしたListBoxにぶち込む。
0962デフォルトの名無しさん
2007/01/22(月) 22:51:38あんた、丁寧なことば使いするのがマナーだと思ってるのかもしれないが、
そんなことより「読む人間の立場に立って文章を推敲する」ことの方が余程重要だ思うよ。
その点あんたは落第もいいところだ。
あんたのその文章、エスパーでも匙投げると思うわ
0963デフォルトの名無しさん
2007/01/23(火) 00:51:08アカデミックは㍉ｗ
ExpressEditionだな
0964デフォルトの名無しさん
2007/01/23(火) 06:29:480965デフォルトの名無しさん
2007/01/23(火) 07:05:43ただDLL化した画面をクリエイトオブジェクトして使えば
画面呼び出しは可能かと
0966デフォルトの名無しさん
2007/01/23(火) 07:22:21ActiveXとして作ればVBSから操作出来るよ。
0967デフォルトの名無しさん
2007/01/23(火) 15:36:41既存のライブラリじゃちょっと無理かもってことなんですね。
VBScript的にはIEをインターフェイスにするのが正しいってことなの？
0968デフォルトの名無しさん
2007/01/23(火) 16:04:48リッチエディトやIEなんかだとできる気がする。
0969デフォルトの名無しさん
2007/01/23(火) 17:16:57どの辺をどういじればいいのでしょうか？
0970デフォルトの名無しさん
2007/01/23(火) 17:24:37会社で開発しているプログラムのサンプル画面を WEB で公開できないかと
>>490 さんと同じような事で、悩んでたのですが
さっき、上司から
「VB6.0 で組んだ普通の EXE ファイルが、インストール無しで、動くレンタルサーバって無いの」
って、言われてしまいました。
そんなレンタルサーバって、あるのでしょうか？
また、「.NET Framework対応」の「Windows レンタルサーバサービス」なら
VB6.0 は無理でも VB.NET の EXE ファイルは、動くのでしょうか？
ご存知の方、居ませんか？よろしく お願いします。
0971デフォルトの名無しさん
2007/01/23(火) 21:18:12Click Onceでできるだろ
0972デフォルトの名無しさん
2007/01/23(火) 21:25:150973デフォルトの名無しさん
2007/01/23(火) 23:42:49Windows ServerならVB6.0もVB.NETも必要なライブラリさえ入れれば動くだろ
0974デフォルトの名無しさん
2007/01/24(水) 00:07:450975970
2007/01/24(水) 11:50:48Windows レンタルサーバ では、Visual Basic 6.0 は動かないみたいですねぇ。
残念です。
0976デフォルトの名無しさん
2007/01/24(水) 16:41:20つーか、「サンプル画面の公開」なんてＪＰＧでいいだろ。
0977デフォルトの名無しさん
2007/01/24(水) 16:46:14はWebでWindowsアプリを公開すればブラウザ上でWindowsアプリが
動くと思ってるんだよ。
0978デフォルトの名無しさん
2007/01/24(水) 18:23:100979デフォルトの名無しさん
2007/01/24(水) 18:37:12Main以外のところからインタプリタを起動させたいです。
0980デフォルトの名無しさん
2007/01/24(水) 18:38:590981デフォルトの名無しさん
2007/01/24(水) 18:39:56デバッグ実行で一行ずつ動かして試しながら覚えたいんですが････
0982デフォルトの名無しさん
2007/01/24(水) 19:09:440983デフォルトの名無しさん
2007/01/24(水) 19:13:45クラスにすればいいよ
0984981
2007/01/24(水) 20:24:370985デフォルトの名無しさん
2007/01/25(木) 03:12:460986970
2007/01/25(木) 11:34:31しゃ～ないやん、客や上司に言われたら、それを実現する方法を
探さなきゃいけないんだから、「jpg で、良いでしょ？」なんて
言えないよ（＾＾；；
0987デフォルトの名無しさん
2007/01/25(木) 11:36:110989デフォルトの名無しさん
2007/01/25(木) 12:56:59くだらん言い合いはよせ。
0990デフォルトの名無しさん
2007/01/25(木) 13:00:390991デフォルトの名無しさん
2007/01/25(木) 13:07:450992970
2007/01/25(木) 13:14:55駄目なら、どうして駄目なのかパソコンを魔法の箱だと思ってる
客や上司に説明して理解してもらわないと駄目なのよ。
駄目な理由を調べるのが、一番大変なんだよ。
「駄目」「無理」じゃ納得しないから・・・。
0994デフォルトの名無しさん
2007/01/25(木) 13:21:420995970
2007/01/25(木) 13:26:17理由を説明できずに駄目とか無理とか言ったら技術が無いのかって
思われて仕事が無くなっちゃうでしょう。
技術が無いのが、バレないように必死に理由を探すのよ～。
0996デフォルトの名無しさん
2007/01/25(木) 13:34:030997デフォルトの名無しさん
2007/01/25(木) 14:57:310998デフォルトの名無しさん
2007/01/25(木) 14:59:360999デフォルトの名無しさん
2007/01/25(木) 15:22:401000デフォルトの名無しさん
2007/01/25(木) 15:25:061001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。