1001コメント345KB

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

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

2006/10/22(日) 20:39:53

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

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

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

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

MSDN Online Japan ホーム
　http://www.microsoft.com/japan/msdn/default.asp
Visual Studio 6.0 Service Pack 6
　http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx
Google
　http://www.google.co.jp/

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

0002デフォルトの名無しさん

2006/10/22(日) 20:40:48

0003デフォルトの名無しさん

2006/10/22(日) 20:41:54

0004デフォルトの名無しさん

2006/10/22(日) 20:42:28

0005デフォルトの名無しさん

2006/10/22(日) 20:43:22

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

0006デフォルトの名無しさん

2006/10/22(日) 20:45:07

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

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

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

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

0007デフォルトの名無しさん

2006/10/22(日) 22:48:53

VB6の手軽さは異常杉

0008デフォルトの名無しさん

2006/10/23(月) 10:55:27

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

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

0009デフォルトの名無しさん

2006/10/23(月) 11:39:50

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

0010デフォルトの名無しさん

2006/10/23(月) 12:13:51

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

0011デフォルトの名無しさん

2006/10/23(月) 12:57:00

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

0012デフォルトの名無しさん

2006/10/23(月) 12:59:50

MS FLEX GRID　もだめなのか？

0013デフォルトの名無しさん

2006/10/23(月) 13:01:40

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

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

001412

2006/10/23(月) 13:06:30

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

0015デフォルトの名無しさん

2006/10/23(月) 13:28:09

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

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

001611

2006/10/23(月) 13:28:22

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

001711

2006/10/23(月) 13:36:08

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

0018デフォルトの名無しさん

2006/10/23(月) 13:52:42

>>11
HTAでTDCを使う。

0019デフォルトの名無しさん

2006/10/23(月) 14:06:54

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

0020デフォルトの名無しさん

2006/10/23(月) 14:30:25

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

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

0021デフォルトの名無しさん

2006/10/23(月) 14:32:16

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

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:05

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

0024デフォルトの名無しさん

2006/10/23(月) 15:20:57

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

0025デフォルトの名無しさん

2006/10/23(月) 17:07:57

>>23
仕様。

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

>>27
激しく同意ｗｗｗ

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

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

0029デフォルトの名無しさん

2006/10/26(木) 11:19:07

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

003026

2006/10/26(木) 13:12:13

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

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

0031デフォルトの名無しさん

2006/10/30(月) 01:49:06

ﾏﾝｶｽ

0032デフォルトの名無しさん

2006/10/30(月) 10:12:22

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

やっぱ*.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

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

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

003533

2006/10/30(月) 13:32:25

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

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

0036デフォルトの名無しさん

2006/10/30(月) 13:50:26

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

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

0037デフォルトの名無しさん

2006/10/30(月) 13:53:22

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

003833

2006/10/30(月) 14:01:55

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

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

0039デフォルトの名無しさん

2006/10/30(月) 14:22:01

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

004033

2006/10/30(月) 14:28:14

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

0041デフォルトの名無しさん

2006/10/30(月) 14:53:58

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

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

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

004233

2006/10/30(月) 15:01:30

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

0043デフォルトの名無しさん

2006/10/30(月) 15:22:35

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

004433

2006/10/30(月) 15:30:44

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

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

004533

2006/10/30(月) 15:59:25

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

0046デフォルトの名無しさん

2006/10/30(月) 16:37:53

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

0047デフォルトの名無しさん

2006/10/30(月) 22:55:02

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

0048デフォルトの名無しさん

2006/10/30(月) 23:12:50

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

004933

2006/10/31(火) 18:09:36

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

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

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

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

0050デフォルトの名無しさん

2006/10/31(火) 18:57:06

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

0051デフォルトの名無しさん

2006/10/31(火) 19:16:06

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

0052デフォルトの名無しさん

2006/10/31(火) 19:42:06

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

0053デフォルトの名無しさん

2006/10/31(火) 19:51:09

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

0054デフォルトの名無しさん

2006/10/31(火) 20:43:24

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

0055デフォルトの名無しさん

2006/10/31(火) 21:06:48

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

0056デフォルトの名無しさん

2006/10/31(火) 22:33:51

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

0057デフォルトの名無しさん

2006/11/01(水) 00:22:47

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

0058デフォルトの名無しさん

2006/11/01(水) 00:23:58

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

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

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

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

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

GFgW = GetForegroundWindow

Ret = ImmGetContext(GFgW)

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

RetB = ImmReleaseContext(GFgW, Ret)
End Sub

0059デフォルトの名無しさん

2006/11/01(水) 00:25:51

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

0060デフォルトの名無しさん

2006/11/01(水) 23:53:04

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

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

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

006157

2006/11/02(木) 00:18:28

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

006257

2006/11/02(木) 00:19:55

Option Explicit

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

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

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

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

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

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

006357

2006/11/02(木) 00:20:47

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

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

006457

2006/11/02(木) 00:23:00

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

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

0065デフォルトの名無しさん

2006/11/02(木) 08:42:19

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

0066デフォルトの名無しさん

2006/11/02(木) 10:20:21

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

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

まぁ頑張って。

0067デフォルトの名無しさん

2006/11/02(木) 17:03:21

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

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

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

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

0068デフォルトの名無しさん

2006/11/02(木) 20:15:52

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

006957

2006/11/02(木) 20:17:49

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

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

0070デフォルトの名無しさん

2006/11/02(木) 20:48:43

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

0071デフォルトの名無しさん

2006/11/02(木) 23:27:47

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

0072デフォルトの名無しさん

2006/11/03(金) 00:06:59

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

0073デフォルトの名無しさん

2006/11/03(金) 02:01:46

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

0074デフォルトの名無しさん

2006/11/03(金) 03:16:09

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

0075デフォルトの名無しさん

2006/11/03(金) 09:37:37

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

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

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

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

0076デフォルトの名無しさん

2006/11/03(金) 10:53:40

>>74
http://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

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

0080デフォルトの名無しさん

2006/11/03(金) 11:36:13

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

0081デフォルトの名無しさん

2006/11/03(金) 11:41:26

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

0082デフォルトの名無しさん

2006/11/03(金) 11:47:34

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

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

0083デフォルトの名無しさん

2006/11/03(金) 11:51:41

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

0084デフォルトの名無しさん

2006/11/03(金) 11:54:29

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

0085デフォルトの名無しさん

2006/11/03(金) 11:55:44

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

0086デフォルトの名無しさん

2006/11/03(金) 11:56:13

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

0087デフォルトの名無しさん

2006/11/03(金) 12:03:37

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

0088デフォルトの名無しさん

2006/11/03(金) 12:05:49

つまらんな。

0089デフォルトの名無しさん

2006/11/03(金) 12:07:37

糞虫ども乙ｗｗｗ

0090デフォルトの名無しさん

2006/11/03(金) 12:09:41

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

0091デフォルトの名無しさん

2006/11/03(金) 12:29:31

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

0092デフォルトの名無しさん

2006/11/03(金) 12:49:59

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

0093デフォルトの名無しさん

2006/11/03(金) 13:02:23

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

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

0094デフォルトの名無しさん

2006/11/03(金) 13:17:53

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

0095デフォルトの名無しさん

2006/11/03(金) 13:23:50

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

0096デフォルトの名無しさん

2006/11/03(金) 13:30:22

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

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

0097デフォルトの名無しさん

2006/11/03(金) 13:55:38

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

0098デフォルトの名無しさん

2006/11/03(金) 14:04:10

ＶＢの話しようぜ。

0099デフォルトの名無しさん

2006/11/03(金) 14:46:13

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

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

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

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

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

0100デフォルトの名無しさん

2006/11/03(金) 21:41:40

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

0101デフォルトの名無しさん

2006/11/03(金) 22:40:38

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

■ このスレッドは過去ログ倉庫に格納されています