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

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

VB.NETは別物なので専門スレで、
VBS、APIの質問もそれぞれのスレで。（>>2 で紹介）

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

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

前スレ Part41 http://pc8.2ch.net/test/read.cgi/tech/1112414085/

○関連スレッド
VB.NET質問ｽﾚ (Part11)
http://pc8.2ch.net/test/read.cgi/tech/1114217190/

VisualBasic6.0　対　VisualBasic .NET 2003
http://pc8.2ch.net/test/read.cgi/tech/1116555483/

VBAについて　Ver.4.0
http://pc8.2ch.net/test/read.cgi/tech/1105108229/

API関連の質問はこちらへ
Win32API質問箱 Build31
http://pc8.2ch.net/test/read.cgi/tech/1114762194/

３といえばＶＢもエルボーで蹴散らしてしまう三沢さん

ＶＢで関数を呼び出すときに、「（）」をつける場合とつけない場合がありますよね。
それってどういう風に使い分けたらいいのでしょうか？

また同様に、「Ｃａｌｌ」も付ける時とつけない時がありますよね。
その差についても説明いただけるとありがたいです。

よろしくお願いします。

Dim Result As Long
Result = Int(Cdbl("280.90") * Int("1000"))
とすると、Resultは 280899 となります。
なぜこうなるか、わかる方いたらお願いします。

結局コードは、
Dim Result As Long
Dim R As Double
R = Cdbl("280.90") * Int("1000")
Result = Int(R);
という風にしましたが、気になったので・・・

>>4
SubとFunction

>>5
浮動小数

>>5
Cdbl("280.90") * Int("1000")の結果が、Doubleとは違う
何かの型に返還するときに失敗しこんな結果になっているからでは。
不動少数の意味が分かるなら、Cdbl("280.90") * Int("1000")
をいくつかの型で返還するなりして、結果から推測してみては？

Dim Result As Long
Result = Int(Cdbl(Cdbl("280.90") * Int("1000")))

Resultは？

Dim Result As Long
Result = Int(Cdbl(Int(Cdbl("280.90") * Int("1000"))))

Resultは？

etc...

VB6.0、SP5、OSはWin2000です。
既出だとは思いますが、お願いします。
T = 1.0
と書くと
T = 1#
という表示になるのですが、仕様ですか？
中身はちゃんと1.0のままなのでしょうか？

一応、過去ログも見れる分は見たのですが41でちょっと記述がでてただけで求めるものとは違いました。

>>6
> >>4
> SubとFunction

嘘教えちゃいけません。きちんとMSDN読みましょう。

>>4
関数の戻り値を受け取る・使用する場合は括弧を付けなければいけません。
関数の戻り値を受け取らない場合はCallを付けなければ括弧は付けられません。

SubはCallを付けない限り、括弧を付けられません。

ここからは個人的な使い方で人によって違うと思いますが、
戻り値を受け取る・使用する必要のある関数は括弧を付けます。
それ以外の場合は付けません。
Callは一切使いません。

こんな感じでどうでしょ？

>>8
仕様です。

1.0も1#もVBではdouble型の1として処理されるので、
どちらも意味は同じです。

>>11
どうもありがとう。

>>4
ByRefの場合、括弧を余計につけるとByVal と同じになるので注意が必要！

Private Sub Command1_Click()
Dim A As Integer

A = 0
Test A '=Call Test(A)
Debug.Print A

A = 0
Test (A) '=Call Test((A))
Debug.Print A

End Sub

Private Sub Test(ByRef x As Integer)
x = 100
End Sub

IT業界を３０歳過ぎて退職したら、転職先はありませんよ。
おまいらIT奴隷は、死ぬまでパソコンとチュッチュしててください。

俺なんか３１歳でVBデビューですよ。

学校でゲーム作れという課題を出されたんでルーレットを作ってるんだけど詰ったorz
仕様はコントロール配列のイメージ３０個とイメージの上に付いてるように
コントロール配列のオプションボタンが３０個あってスタートをクリックするとサイコロの
イメージがコントロール配列のイメージをランダムに移動して3秒経つと止まる。
それでスタートをクリックする前に予想のサイコロの上にあるオプションを選んでクリック。
止まったときに止まったイメージの上のオプションボタンが選んだオプションボタンだったら点数を追加してメッセージ表示

というゲームにしたいんだけど、止まったサイコロと選んだオプションボタンが同じなら〜っていうIｆ文が出来ないorz
分かりにくい文章ですまないけど助けてください。

>>16
いやだ。

エクセルファイルをMDBファイルのようにDAOやADOで開いて使いたいのですが、やりかたがわかりません。
そもそも、そんなことできるのでしょうか。

>>18
ttp://support.microsoft.com/default.aspx?scid=kb;ja;257819

MHTMLファイルをメールで送信したいのですが、CDO.Messageで出来ると思ったけど、
HTMLファイルはCreateMHTMLBodyを使って簡単だったのに、MHTファイルが出来ないです。
MHTMLファイルを直接指定して送信する方法はどうすれば出来るでしょうか？
よろしくお願い致します。

>>19 さんサンクスです、丁度知りたかった情報です。
ISAMドライバでの接続の方法が解らなかったので助かりました。

>>16
よくわからん。
イメージ30個とサイコロは同じ？
とりあえず適当に答えてみるが…
　スタートを押す直前に選んでいるオプションボタンのインデックスを
　変数に保持して、ランダム移動開始。
　3秒後に止まっているオプションボタンのインデックスと、スタート
　前のインデックスを保持した変数と比較。
これでどう？

>>22
レスありがとうございます。
そして分かりにくくてすみません。空のイメージ30個の上をサイコロのイメージがランダムに移動して3秒後に止まる
オプションボタンはスタートを押す前に自分で押しておく。
止まったときの図で説明するとこんな感じです

○　○　○←オプションボタン　
□　□　□←空のイメージ

○　○　●←スタート押す前に選んだオプションボタン
□　□　■←スタートしてランダムに移動したサイコロのイメージ
　　　　　
↑みたいになった時に点数を追加したり、「おめでとう」などのメッセージを表示させるIf文の条件部分が分からないんですorz

>>23
If optButton(currentSaikoro).Checked Then

>>24
ありがとうございます。月曜に学校で試してみますね。

OS:Win2000 VB6.0

コンボボックス(Combo1)一つ付けただけのサンプルで

Private Sub Combo1_Click()
With Combo1
.Clear
.AddItem "111"
.AddItem "222"
.AddItem "333"
.Text = "111" '** これが表示されない
End With
End Sub

Private Sub Form_Load()
With Combo1
.AddItem "AAA"
.AddItem "BBB"
.AddItem "CCC"
.Text = "AAA"
End With
End Sub

仕様ですか？

690 名前： Socket774 [sage] 投稿日： 2005/05/28(土) 19:08:15 ID:vB6j/4vy



ThePenisには敵わないまでも
VisualBasic6の日本語版

>26
本気ですか？

>28

済みません。本気です・・・。
当たり前のことなのですか。
.ListIndexは-1でした。

>>24
まだ説明不足だったorz
サイコロのイメージってのはImage1だから>>24の括弧の中のSaikoroをimage1.Pictureにすればいいでしょうか？

>>26
click()でなく、DropDown()で。
　　　　　　　　　　　　　　　↓
Private Sub Combo1_DropDown()
With Combo1
.Clear
.AddItem "111"
.AddItem "222"
.AddItem "333"
.Text = "111" '** これが表示されない
End With
End Sub

>>31
ありがとうございました。
目から鱗です。

APIが返すNULLハンドルはVBでは何と等しくなるんでしょうか？

>>33
Declare 〜 As Long
で宣言していれば、Long の 0。

>>34
ありがとうございます。参考にさせてもらいます。

>>30
違う。
currentSaikoroはInteger型の変数。
作り方を考えてみれ。

>>36
なるほどそうだったんですか。今日出来なかったから最終手段として糞長いIf文やりましたよ('A`)
If option1(0).value=ture and image2(A).visible=ture then
ElseIf 以下略


OTZ

ture?

VB6を使って販売購買のソフト開発してる人いますか？
メインとなる販売画面の明細部分で行き詰まってしまいました、実際開発してる
人はどういった手法を使っているのか是非教えてください。

>>39
まず、自分が何を理解できていないか、何が疑問なのか理解すべきでは？
そんな質問誰も答えられんよ。

VBでプログラム作るんですけど、どういう手法で作るんですか？
あなたが聞いてるのは上記質問と同レベル。

>>40
失礼しました。説明が全くできていませんでした。
行き詰まっている個所は、商品名･数量･単位･単価･金額を一組とした行の部分で
す。今はフォームに10組配置するだけで、10行の明細しか作れないような状態で
す。
何かもっといい方法があるとは思うのですが、見つけることができません。もし
同じようなソフトを開発されている方がいたら是非アドバイスをお願いします。

>>41
お前、クビ。

>>41
リスト、グリッドなどのコントロールを使う。
但し、スクロール嫌いなお客様で、前頁・次頁のページ切替を意図して>>41のUIを求めてる可能性があるので注意。

前項、次項で書き換えればいいだけだろ？

Set xmldoc = CreateObject( "Microsoft.XMLDOM" )
xmldoc.async = false

fname=InputBox("ファイル名を入力して下さい。","ファイル名")
if ( fname <> "") Then
rtn = xmldoc.load( fname )
If rtn = True Then
MsgBox( "ファイル内は正常です。" )
Else
MsgBox( "エラー！" & vbCrLf & _
"行番号　：　" & xmldoc.parseError.line & vbCrLf & _
"内容　　：　" & xmldoc.parseError.reason )
End If
End If

これをファイル名を入力するのではなく、ドラッグアンドドロップで実行したいのですが、
うまくいきません。
どなたかお願いします。

>>45
どこからどこへなにをドロップしてどううまくいってないのか書けよ

Imageで絵を三つ出してボタンを設置するところまではできてます。
ボタンを押すと三つの絵がランダムに画面上に表示できるようにしたいのですが、できません。
RandomizeとImage.Move等を使うのは分かるのですが、乱数を理解できていない、かなりの初心者です。
教えてください。

嫌です。

自分のプログラムから他のプログラムのボタンを操作するのに
SendMessageでキャプションを取って目的のボタンを見つけるように
したのですが、ボタンの中にキャプションを取得しようとしても
空が帰ってきて取れないものがあります。
必ずキャプションが取れるような方法があるでしょうか？
または、キャプション以外にボタンを特定できるような情報が取得する方法が
あるでしょうか？よろしくお願いいたします。

IDやらなんやらウインドウクラス名やら

どこかに書いてあると、思うのですが・・・
探せませんでした。
教えてください。

ＶＢ６でファイルメーカーを読むサンプルです。

なにとぞ、教えてください。

Windows 2000 Professional SP4, WSH(VBScript) 5.6 です。
ExecNotificationQuery を使ってアプリケーションログの監視をしているのですが、
ときどき、TargetInstance.InsertionStrings に値が入っていないらしく
for each で「オブジェクトがコレクションではありません。」というエラーになります。
オブジェクトがコレクションかどうか確認する関数はありますか？

以下、該当部分のコード：
Set events = GetObject("winmgmts:{impersonationLevel=impersonate,(Backup, Security)}!\\.\root\CIMV2") _
.ExecNotificationQuery("select * from __instancecreationevent where targetinstance isa 'Win32_NTLogEvent' and targetinstance.EventType = 1")

do
set NTEvent = events.nextevent ()
for each str in NTEvent.TargetInstance.InsertionStrings
wscript.echo "InsertionStrings: " & str
next
loop

俺はファイルメーカー持ってないんでよく分からんけど、
ODBC経由ならデーターベースが違っていても
レコードの取り出し方はある程度同じなはず。

>>51
ttp://www.kipwmi.com/fmbbs/wwwlng.cgi?print+200312/03120047.txt

excelでこんな風にデータアクセスできるなら、
vbでもできるんじゃね？

>>52
スレ違い

FX = lnX0 - 2 '解こうとする関数FX

DF = '関数FXの微分式

X1 = X0 - (FX / DF) 'ニュートン法の基礎式よりX1を計算

DX = Abs((X1 - X0) / X0) 'X1とX0との隔たりを調べる変数DXを計算

N1 = N1 + 1 '繰り返しの回数N1をカウント




'このVBコードの一部を書き換えて√２の近似値を求めるプログラムを作成したいのですが
分からないです。どなたか教えてください

>>55
アルゴリズムの質問はアルゴリズムスレへ。
http://pc8.2ch.net/test/read.cgi/tech/1090227743/

VB6.0 SP6でコンパイルしたexeはVB6.0SP4のランタイム環境で
動作可能でしょうか？

>>57
可能不可能というより、考えたくもない、汚らわしい、おぞましい。

VB6.0 SP4どこかに落ちてないですかねー

俺はService PacKなんて一つも当ててないんだが・・・
いやOSもXPだがSP2も当ててないし、VB6.0もそのまま・・・

というか　バグとか治ってるからパッチあてれ

いや、>>57のおかれてる状況はこうだろ？

昔のVB6のシステムで不具合か仕様変更が発生。
導入先のEXEのインストーラーを作ったのはVB6SP4の頃。
でもって、今かれの手元にある環境はVB6SP6。
そいでもって、客先にVB6SP6版新しいインストーラを作って入れた場合の不具合まで面倒見るほど工数なし。

>>62
まさにそのとおりです。
SP4どこかにないですかねー。nyとかにあるかなー。

>>57
なるほど、そういえばそうだな

しかし、手元の探してみたがSP5しかなかった
VS6.0SP4なら誰か必ず持ってると思われるが・・・

こんなこともあろうかと、私はもってるんだが。
入手手段としたら、大昔のVBマガジンとかを探すしかないんじゃないのか？
またはMSDNの契約があれば、それの昔のCDを漁るとか。

うｐしてん

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

( ；´Д｀)いやぁぁぁぁぁー!

６７は６５（私）じゃない。
でもって、100MB以上あるのものでライセンスあるものはアップしません。
何処に住んでるかしらんが、秋葉の書泉とかLaoxなら運よければあるよ。

skypeで直送ならどうでしょう？

すでに開いてるＩＥを見つけて指定したURLに飛ばすのは
どう書けばいいんでしょうか？

Set objIE = CreateObject("InternetExplorer.application")

objIE.Navigate "指定したURL"

こんな感じで書いてるんですが新しいウインドウを開いてしまうんですよ
起動してるＩＥ見つけて処理する方法を教えてください

SP4からSP6にした場合のトラブルを考えるってそりゃ技術者の姿勢としては
正しいけど現実的には杞憂じゃないの？

ウダウダやってる時間だって工数に入ってるわけで。

っていうか、各バージョンのSP当たったランタイムのインストーラがベクターにあるよ。
でもＶＢのランタイム差し替えるには古いのアンインストールする必要があると思ったけど、
これってどうやるんだっけ？

ShellExecuteでいいんじゃないですかー？

アンインストールする必要があるのはこの場合古いのじゃなくて新しいのだね。

>>72
トラブルというか基本的にはランタイムは配布不可能な状態です。
もっとメジャーバージョンアップならいいですが
クライアントの数がかなりあるので数ステップの修正のために
クライアントの環境を変えることは許されないのであります。

>75
そういう話になるとむしろﾏﾈｼﾞﾒﾝﾄの問題だぞ。

ってかその修正するexeのｲﾝｽﾄｰﾗにSP6を含めりゃいいんじゃね〜の？

クライアントの環境が変えられないっておもっくそ書いてあるが

だからさあ、開発環境の方を合わせればいいんでしょ。
VB6クリーンインストールして、ベクターからSP4のランタイム拾ってくれば（ひょっとすると
順番は逆の方がいいかもしれないが）SP4インストールしたのと同じにできるんじゃないの。

ランタイムでいいんですか？マジですか？

とりあえずSP3が見つかったのでこれでしのぐのはありですか？
SP3のexeならSP4でも動きますよね。
SP6のexeをSP4で動かすよりはマシですよね。

馬鹿か

静的なクラスモジュールってどうやって作成したらよいでしょう？
.NETのSharedみたいなやつです。

VB６ではクラスでは不可では？
Moduleでやるしかないんじゃないのかと。

プログラムを待機させるのに
ttp://homepage1.nifty.com/MADIA/vb/Tecnick/ShoriStop.htm
この方法をつかったんですがCPU使用率が100%になってしまいます
どうやったらCPU使用率を低くできるのでしょうか？
　　　　Dim Now As Long

　　　　Now = Timer
　　　　While Timer < Now +1 　
　　　　DoEvents
　　　　Wend

>>83
Sleep() API

>83
Timerコントロール

コマンドライン引数を分割して配列に格納する方法と
名前付き引数を取得する方法を教えてください。

複数のファイルをD&Dしてそれを分ける方法としては
Split関数での分割が思いつきますが、パスに半角スペースがある場合に困ります。
引数が全て"で囲われてれば""" """でSplitすることも出来るのですが、
｢c:\hoge.txt｣と｢c:\hoge hoge.txt｣という二つのファイルを渡した場合、
Command関数は｢c:\hoge.txt "c:\hoge hoge.txt"｣という値を返すので
" "で分割しても""" """で分割してもうまくいきません。
一応文字列操作で対応させる方法は思いついたのですが、
vbsでwshのArgumentsプロパティを使ったときのように操作出来ないのでしょうか?

もう一つ、名前付き引数(コマンドラインスイッチ)なのですが、｢-a=hoge｣とか｢/a:hoge｣などの引数を渡した場合、
aスイッチの有無、及びその要素値"hoge"を得るにはどうすれば良いのでしょうか?
これもwshのプロパティでは
Wscript.Arguments.Named.Exists("a")でaスイッチの有無、
Wscript.Arguments.Named("a")でaスイッチの値である"hoge"
Wscript.Arguments.Unnamedで名前無し引数を返せますが、
これをVBでやるにはどうすれば良いのでしょうか?
こちらも地道に文字列操作で条件判断させるしかないのですか?

最近VB使い始めたのですが、ExcelVBAやvbsを使っていたので文字列操作含め
VBAにあるものは大体わかるのですが、ExcelVBAには起動時引数という概念が無いので
引数の扱いで躓いています。
環境はWindowsXPsp1、Visual Basic6.0sp5です。

>>86
wshでできることをやろうとするなら、VBでwshのオブジェクトを宣言して使えばよいのでは？

>>87
具体的にどうやるのですか?
普通に宣言してもArgumentsプロパティに引数が入ってないのですが。
それ以外の機能はwshのオブジェクトを宣言して普通に使えてますけど。

>>88
ｺﾞﾒﾝ思い付きで書いたからできないかもしれない。

>>86
やったことないけど、API の CommandLineToArgvW

>>89
そうですか。。。＿|￣|○

では引き続き>>86をお願いします。

Public Function Get_LineText(ByVal lngLine As Long) As String
Dim strBuffer As String * 512
Dim Result As Long


strBuffer = String$(512, vbNullChar)
Result = SendMessage(Form1.RichTextBox.hWnd, EM_GETLINE, lngLine, ByVal strBuffer)
Get_LineText = Left$(strBuffer, InStr(strBuffer, vbNullChar) - 1)
End Function

という指定行取得する関数を作りました
はじめはうまく機能していたのですが、
rtfTextをいじって色の変更とかいろいろやってて気づいたら
SendMessageの時点でstrBufferに文字列が代入されないようになっていました。
どなたか解決法をご存知でないでしょうか？

>>90
CommandLineToArgvWでググってもヒット数が少なく、
名前付き引数を得る方法などは分かりませんでした。
失礼ながら｢出来るかもしれない｣とか｢やったことないけど｣とかではなく
実際に出来る方法を具体的に教えてください。

VB使い始めたのが昨日からで、ExcelVBAも基本的なところは覚えたつもりですが
まだ使い始めて1ヶ月ちょっとなので、ヘボいものだとは思いますが、
一応自分なりにやってみた方法を以下に書きます。
Public arg() As String, argUnnamed() As String
Dim sn() As String, sv() As String, sc As Byte

Sub setarg()
　If Command = "" Then
　　ReDim arg(0)
　　arg(0) = ""
　Else
　　Dim foo As Variant, bar As String, spl As Boolean, i As Integer, j As Byte
　　foo = Split(Command, " ")
　　spl = True
　　i = -1
　　For j = 0 To UBound(foo)
　　　If spl Then
　　　　bar = foo(j)
　　　　i = i + 1
　　　Else
　　　　bar = bar & " " & foo(j)
　　　End If
　　　If i Mod 10 = 0 Then ReDim Preserve arg(i + 10)
　　　If UBound(Split(foo(j), """")) = 1 Then spl = Not spl
　　　arg(i) = Replace(bar, """", "")
　　Next j

　　If i >= 0 Then ReDim Preserve arg(i)
　　i = 0
　　For j = 0 To UBound(arg)
　　　If Left(arg(j), 1) Like "[-/]" Then
　　　　If sc Mod 10 = 0 Then ReDim Preserve sn(sc + 10), sv(sc + 10)
　　　　foo = Split(arg(j), "=")
　　　　If UBound(foo) = 0 Then foo = Split(arg(j), ":")
　　　　sn(sc) = Mid(foo(0), 2)
　　　　If UBound(foo) = 1 Then sv(sc) = foo(1)
　　　　sc = sc + 1
　　　Else
　　　　If i Mod 10 = 0 Then ReDim Preserve argUnnamed(i + 10)
　　　　argUnnamed(i) = arg(j)
　　　　i = i + 1
　　　End If
　　Next j
　　If sc > 0 Then ReDim Preserve sn(sc - 1), sv(sc - 1)
　End If
　If i > 0 Then
　　ReDim Preserve argUnnamed(i - 1)
　Else
　　ReDim argUnnamed(0)
　　argUnnamed(0) = ""
　End If
End Sub

Function argNamed(csn As String) As String
　If sc = 0 Then Exit Function
　Dim i As Byte
　For i = 0 To UBound(sn)
　　If csn = sn(i) Then
　　　argNamed = sv(i)
　　　Exit Function
　　End If
　Next i
End Function

Function argNamedExi(csn As String) As Boolean
　argNamedExi = False
　If sc = 0 Then Exit Function
　Dim i As Byte
　For i = 0 To UBound(sn)
　　If csn = sn(i) Then
　　　argNamedExi = True
　　　Exit Function
　　End If
　Next i
End Function

これを標準モジュールに書いて、Form_Load時にCall setarg。これで
1) argという配列に全ての引数が格納され、
2) argUnnamedに名前無し引数が入ります。
3) argNamed("a")で名前付き引数の値が返り、
4) argNamedExi("a")で名前付き引数の有無がブール値で返ります。

今のところは動作的には問題ないのですが、今後起動時引数を扱うソフトを作るたびに
これを使うのもウザいので、もっと簡単に出来る方法を探してます。

ベテランの方から見れば上記のコードも直すべきところは沢山あるでしょうが、
コードの手直しをお願いしたいのではなく、
上記 1)〜4)の様に｢全ての引数を格納した配列｣、｢名前無し引数を格納した配列、
｢名前付き引数の有無と値の内容｣を扱える方法、又は
VB上でwshのArgumentsプロパティを扱える方法などを教えていただきたい所存です。
どうか宜しく御願いいたします。

Kill ("C:\Documents and Settings\ユーザ名\hogehoge.txt")

ユーザ名が A という変数に入っている場合はどう書けばいいのでしょうか？

>>97
Kill ("C:\Documents and Settings\" & A & "\hogehoge.txt")

>>98
Thx.

Win2k、VB6SP6で、Imageコントロールの表示方式なんだけど、
画像がコントロールより大きい時は縦横比をそのままでコントロール内に収まるように縮小、
画像がコントロールより小さい場合は等倍表示にしたいんだけど、VBAで使えてた

If Image1.Width < Image1.Picture.Width Or Image1.Height < Image1.Picture.Height Then
  Image1.PictureSizeMode = fmPictureSizeModeZoom
Else
  Image1.PictureSizeMode = fmPictureSizeModeClip
End If

が使えないんだよね。(上記は実際には* 567 / 15000が入る)
調べてみるとStretchプロパティがPictureSizeModeプロパティに近いんだけど、
PictureSizeMode = fmPictureSizeModeClip → Stretch = False
PictureSizeMode = fmPictureSizeModeStretch → Stretch = True
の設定は出来ても、fmPictureSizeModeZoomの設定が出来ないみたい。

PictureSizeMode = fmPictureSizeModeZoomと同じ状態を実現する為には
Stretch = TrueでImageコントロールのサイズ自体を変えていくしかないのかな?
激しく面倒なのでPictureSizeMode = fmPictureSizeModeZoomと同じような
設定を知ってる方居ましたら教えてください。
PictureSizeMode = fmPictureSizeModeZoomはStretch = Trueの縦横比固定版で
定義としては｢縦横比を固定したまま、イメージをコントロールのサイズに拡大または縮小する｣
という感じです。

>>100
VB6.0では ImageコントロールのWidthプロパティとHeightプロパティは自動的にPictureのサイズになるよ。

VB6.0でクラスプログラミングを勉強したいのですけど、なんかいいHPとか本とかありますか??

>>102
http://homepage1.nifty.com/CavalierLab/lab/vb/clsmdl/

> VB6.0では ImageコントロールのWidthプロパティとHeightプロパティは自動的にPictureのサイズになるよ。
それが困るんですよ。
コントロールより小さい画像の場合はそれでいいんですけど、
大きい画像の場合ImageコントロールのWidth、HeightがPictureのサイズになるのではなく
Pictureのサイズが縦横比固定でImageコントロールのWidth、Heightに収まるように縮小して欲しいわけで。

>>104
それだったら納めたいWidthとHeightの変数持って、
比率計算すりゃ良いだけ。

outlook expressのメール内容をデータベースに登録する
というプログラムを作成しています。
mapi コントロールを使えば、受信トレイの内容を取得できるのですが、
送信済みトレイの内容を表示させる方法はないでしょうか？

自分で色々探したところ、ある閉鎖されたホームページに
dbxファイルをvbで読むというサンプルがあったらしいのですが、
残念ながら肝心のソースの部分はアーカイブでも読むことが出来ません。

もし、outlook expressの送信済みトレイにアクセスするないし
dbxファイルの読む方法をご存知の方がいましたら教えてください。
よろしくお願いします。

>>105
それが今やってる方法です。
でもVBAに比べて面倒なので、何か
PictureSizeMode = fmPictureSizeModeZoom
と同等の設定は無いかと思ったのです。
それぞれの設定はこんな感じですが

　　　　　　　　　　　　　　　コントロールサイズ　　元画像サイズ　　縦横比
PictureSizeMode = 0　　　　　無視　　　　　　　　　　等倍　　　　　　固定
Stretch = False　　　　　　　　無視　　　　　　　　　　等倍　　　　　　固定

PictureSizeMode = 1　　　　　合わせる　　　　　　　無視　　　　　　無視
Stretch = True　　　　　　　　 合わせる　　　　　　　無視　　　　　　無視

PictureSizeMode = 3　　　　　合わせる　　　　　　　無視　　　　　　固定

この一番下の設定を計算でやると、
Img.He/Pic.HeとImg.wi/Pic.Wiのどちらが小さいか、
その小さい方が1未満か、の両方を計算させ、
小さい方が1未満ならその比率を、1以上なら1をImg.HeとImg.wiの両方に掛けなくてはならないです。
設定が無いなら仕方ないですが、たとえば5の10乗を出すのに｢5^10｣を使わず
buf = 5
For i = 2 To 10
  buf = buf * 5
Next i
なんてやってたら馬鹿馬鹿しいでしょ。特にVBAではこの例の｢5^10｣の例に該当する方法があるので
VB6でもForステートメントでの計算の例のような面倒なことをやらずに｢5^10｣の例のように出す方法があれば
利用したいと思ってここに来ました。

細かい動きができる = 細かく設定しなくちゃいけない
VB は（VBAと比較して）色々できる分、色々自分で書かなくちゃいけない。

>>107
その例えはオカシイ。

>108
（　ﾟдﾟ）ﾎﾟｶｰﾝ．．．．．．．．．．m9(^Д^)ﾌﾟｷﾞｬー

┌────────────────┐　 ┌────────────────┐
│Form1 　 　 　　　　　　　　　　　　　　　　│　 │Form1 　 　 　　　　　　　　　　　　　　　　│
├────────────────┤　 ├────────────────┤
│┏━━━━━━━┳━┓　 　 　 　 　 │　 │┏━━━━━━━┳━┓　 　 　 　 　 │
│┃┌─────┐┃▲┃　 　 　 　 　 │→│┃└─────┘┃▲┃　 　 　 　 　 │
│┃│TextBox1　..│┃■┃　 　 　 　 　 │　 │┃┌─────┐┃| .|┃　 　 　 　 　 │
│┃└─────┘┃■┃　 　 　 　 　 │　 │┃│TextBox4　..│┃| .|┃　 　 　 　 　 │
│┃┌─────┐┃■┃　 　 　 　 　 │　 │┃└─────┘┃■┃　 　 　 　 　 │
│┃│TextBox2　..│┃| .|┃　 　 　 　 　 │　 │┃┌─────┐┃■┃　 　 　 　 　 │
│┃└─────┘┃| .|┃　 　 　 　 　 │　 │┃│TextBox5　..│┃■┃　 　 　 　 　 │
│┃┌─────┐┃▼┃　 　 　 　 　 │←│┃└─────┘┃▼┃　 　 　 　 　 │
│┗━━━━━━━┻━┛　 　 　 　 　 │　 │┗━━━━━━━┻━┛　 　 　 　 　 │
└────────────────┘　 └────────────────┘
　 ┃│TextBox3　..│┃←この部分は表示しない
　 ┃└─────┘┃
　 ┃┌─────┐┃
　 ┃│TextBox4　..│┃
　 ┃└─────┘┃
　 ┗━━━━━━━┛
上図の太枠の部分のようにコントロールを配置したいのですが、どうしたら良いでしょうか?
▲■はスクロールバーです。TextBox1〜4の部分は任意のコントロールを配置出来て、
スクロールバー付きの小窓で任意の場所を表示出来るようにしたいです。
Formの右の空いてる部分にも他のコントロールを配置します。

実際にTextBoxしか割り当てないなら代わりとなるものもあるのですが、
任意のコントロールを割り当てられるものがわかりません。
MDIとも違うし、スクロールバーの値に対してシコシコと個別にコントロールの位置や表示を変えるのもイヤだし。
どうすればいいのかわかる方、ご教示お願いします。WinXP VB6SP6です。

>>110
適当に作るなら、たとえばピクチャボックスの「中に」ピクチャボックスを作り、
その「中に」テキストボックスを作ってサイズと表示位置を調整してやればできなくもない。
そういうコントロール作っても可能だし。

あ、よく読んでなかった。111は取り消し。

リストボックスでキーを押すと、
名前の先頭が押したキーに一致する位置に選択が移ってしまいますが、
コレを無効にするにはどうすれば良いですか?
たとえば｢abc, def, ghi｣という3項目のリストがあって、リストボックスにフォーカスがある時に
Dキーを押すとdefに選択が移ってしまうのを防ぎたいのです。
選択が変わってしまってから戻す方法は分かるのですが、
選択が変わらない方法がわかりません。
VB6SP5です。宜しく御願いします。

>113
Lockedでいいんじゃないの？

>>112
え？　違うの？　よくわからん。orz

>>114
Lockedプロパティはテキストボックスにはあるけど
リストボックスには無いようですが。
コードで無理矢理Locked = Trueを指定してみたけどエラー出るし。

>>111でいいと思うけど

キーボードイベント（KeyPress?)でキー入力をキャンセルしてやるだけだと思うけど。

>>116
ローテクだけど、各データの前に半角スペース入れるとか。
左にくっつきすぎるのでいつも入れてる。

>>118
出来ました。
ありがとうございます。

>>119
こちらもありがとうございます。
今回は>>118さんの方法を使わせていただきますが
>>119さんの方法も覚えておきます。

>>117
よくねーだろ

よくねーの？

「←この部分は表示しない」の部分のAAがかえって誤解を生んでるような。

>>121
>>111でいいと思うけど、何がよくねーの？

>>123
だな。
>>111だと標準じゃスクロール操作は出来ないだろ。
質問者がイヤだと言ってる"スクロールバーの値に対してシコシコと"やれば出来なくもないけど。

ﾃｷｽﾄﾎﾞｯｸｽかﾗﾍﾞﾙで文章をｾﾝﾀﾘﾝｸﾞ・右寄せなどにできますか？

つ Alignment プロパティ

>>125
ピクチャーボックスの中のピクチャーボックスのtopをいじるだけで全部動くけど？

>110
DataRepeaterコントロールじゃアカンの？
詳細はMSDNを「データ リピータ (DataRepeater) コントロールの使い方」で検索ね。

>>129
なんでDataRepeater？？？

>>128
たぶんそれだとスクロールバーをドラッグしたとき、移動中はスクロールせず、
バーポインタを放した時だけ移動するでしょ。
そういうのがヤなんじゃないの?

>>127
どもっす！

>>111
自分なりに考えてフレームの中にフレームを使って動かす方法とかもやったけど
>>131さんが書いてるようにバードラッグでの移動は出来てもスクロールが出来ないので避けたいです。

>>123,>>125
そうですか。。。
とにかくリストボックスに表示しきれない数のデータを入れたときのような操作感で
中にコントロールを任意配置できるものを探してます。

>>129
アカンです。
>>110でも書いたように>>110のは例で、実際に同じコントロールを並べるのではなく、
自由にコントロールを配置出来ないと困るので。
規則的に並べるだけならDataRepeaterコントロールでも良さそうですが。

ttp://picopico.dip.jp:80/ragnarok/data/4/1118111052876.jpg
すいません、質問です
この画像のように文字に影をつけることってできますか？
ゲームボーイっぽい画面にしたいんですが・・
細かい調節に苦しんでるので最初からこういうことができると楽だと思ったんですが、できないでしょうか？
無理なら白文字のﾃｷｽﾄﾎﾞｯｸｽと黒文字のを二つ重ねて表現しようと思ってます。

>>134
TextOutでもやれるけど、ラベル使ったほうが楽かもしれんね。
あとはStrokePathとか。
これは効果が少し違うけど憶えとくと幅が広がるかな。

>>135
ありがとうございました！
早速やってきます

コモンダイアログで指定ディレクトリを開く方法を教えてください。
とりあえずアプリのカレントディレクトリを開きたいのですが
ChDrive App.Path '又は(Left(App.Path,1))
ChDir App.Path
CommonDialog1.ShowOpen
ではダメでした。

つ InitDir プロパティ

>>138
(*^ーﾟ)b ｻﾝｷｭ!!

>>133
スクロールが出来ないという意味がわからないのだが。
サブクラス化をしたくないという事？

わからない奴は黙ってればいいという法則

あ、俺も黙ってられなかった…

解決の手助けになれば、などという余計な事をしてしまったようだ。

>>86もお願いします

>>143
1文字づつ解析すればいいじゃないか

>>144
いや、前にも書いたようにそれが嫌だからここに来てる次第でして。
文字列的に解析処理する方法は>>93-96で書いたように一応ヘタレなりにやってみたのですが、
動作は問題なくてもこれを毎回使うのもウザいのでwshのように扱える方法を探してます。

>>145
>毎回使うのもウザいので
DLL化すればいいのでは？取得したCommand関数の内容を渡すだけですし…

>>146
VB初めて3日の自分にはDLL化する方法なんて分かりませんが、
程々に催促しながらもうしばらく待って、良い方法を知ってる方が居ないようなら
コードを煮詰めて、DLLする方向でやってみます。

>>147
標準モジュールにする事の、何が気に入らないんだ

>>131
Scrollイベントにも同じコードを書けばよかったような。

わからない奴は黙ってればいいという法則

あ、俺も黙ってられなかった…

>148
ちょっと前にでた指数計算の例と同じだよ
簡単に出来る方法があるならわざわざ面倒な処理はしたくないってことだろうな

>>151
中身は見てないが、93-96のソースが存在していて、その上で
別の方法を探すほうが面倒だと思うのは俺だけか

>131,133
DoEvents かませば移動中もスクロールするけど？

>153の補足
*_Change() と *_Scroll() の両方に書く必要があるね。

>152
>93-96は奴が自分で書いたものでしょ
俺はコマンドライン操作をするアプリは、VBは起動中のコマンドライン操作が面倒という理由で
他言語使ってるのでVBのコマンドライン周りはよくわからんが

>>155
だからさー
自分で作ったコードがあって、何でほかの方法探すという面倒な事しなきゃならないのさ

>>152=156
VBコードは書けても日本語読めない方ですか?

>>157
日本語は読めるよ
理由を説明してくれないか

> 簡単に出来る方法があるならわざわざ面倒な処理はしたくないってことだろうな
この部分が理解できてないからじゃねーの?
たとえばVB上でWindows Script Hostの
Arguments、Unnamed、Namedプロパティ、Existsメソッドが使えたとしたら、
dll化したとしても標準モジュールに書いたとしても、
93-96を使うのは無駄なことに違いないいから。

>>156
そんなもん、自分で作るよりかバグも少ないことが期待できるし、
一般的な方法があるのならそれにあわせたほうがいいし。

皆が共通のコードを書いているのに一人だけ変なの使っていたら、
この関数何？なんでこんなの使っているの？って話になる。

わからない奴は黙ってればいいという法則

あ、俺も黙ってられなかった…

すんません、質問です
pictureboxの画像の上にラベルで文字を重ねて一つの画像を作ったのですが、
そのpictureboxをSavePictureで保存してもラベルの文字も画像と判断してくれません
このpictureboxの画像とラベルを重ねたものを画像として保存するにはどうすればいいですか？
一応windowsｷｰ+ﾌﾟﾘﾝﾄｽｸﾘｰﾝ→ペイントに貼り付けで保存はできるんですが・・
できればVB一つで保存できる方法があったら知りたいです。

>>162
解像度が荒くていいならFormのハードコピーを取るサンプルみればできるっしょ。
そこらじゅうにサンプルがありますよ。

そうじゃなく綺麗に取りたいなら、デバイスコンテキスト周りとかをきちんと学習すればできるようになる。

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

>>162
PictureBoxにラベルの文字をPrintすればいいだけのような。

>>86
オレが使っている標準モジュールを晒しておく。
今のところコレを使っていて不都合は無い。
http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/517.lzh

Win2000　Excel2000を使用しています。

VB6.0 上でエクセルの列A,BをコピーしG,Hに貼付けようと下記のようにしているのですが
列G,Hを選択しているところまでは確認できましたがうまく貼りつきません。

xlSheet.Range("A:B").Select
xlSheet.Range("A:B").Copy
xlSheet.Range("G:H").Select
xlSheet.Range("G:H").PasteOK

よろしく、お願いします。

>>164
まさかこんなところで騙りが発生するとはorz
>>163
今日一日色々試したけどだめでした・・
フォームごと印刷したりPCごと落ちたりと散々な結果に
デバイスコンテキスト勉強して見ます
>>165
分かりませんでした・・

スプレッドシートのセルをコンボボックスに指定した場合、ListIndexプロパティ
と同じ意味にあたるプロパティは何でしょうか？
マウスではなくスペースキーを押したときにリストを変更したいです。
よろしくお願いします。

>>165
できました。が、好きな位置にプリントできずに困っています
ttp://picopico.dip.jp/ragnarok/data/4/1118111052876.jpg
こういうのを作っていまして、背景はbmp、文字はラベルで貼り付け、中央右のｷｬﾗｸﾀｰは画像読み込みで処理しているんです
あとはこれを一括で保存・ﾌｧｲﾙに出力できれば完成なのですが・・探しても>>165さんのやり方しか見つからないです

CurrentX,YでPrintの位置は調整できたようなきがする。

Dim Count As Integer

For Count = 1 to 10
LabelX.Caption = Count
Next Count

このように LabelXのところをカウンタ変数に合わせて
Label1 ~ Label10 にしたいのですが LabelX のことろ
はどうかけばいいのでしょうか？

>>172
コントロール配列にしておくか、配列を確保しておきSetをしておいて
LabelA(x).Caption =
のように。

>>173
夜分にありがとうございました。

二次元配列のソート方法を教えてください。
たとえばhoge(3, 2)という配列があって、
a　　3　　6/8
b　　1　　6/7
c　　4　　6/5
d　　2　　6/6
みたいな内容の場合、
　　 ▲昇順
b　　1　　6/7
d　　2　　6/6
a　　3　　6/8
c　　4　　6/5
や
　　　　　　▼降順
a　　3　　6/8
b　　1　　6/7
d　　2　　6/6
c　　4　　6/5
のような感じでソートしたいのです。
よろしく御願いします。

>>175
一次元配列のソートと同じだと思うけど、どこで詰まってるのかな。

>>176
情報があいまいすぎでしたね。スミマセン。
実際の配列要素数は数十万*15〜20で、型はString、
要素は英字+記号、数字+記号、英数、数字のどれかです。

自分が今まで一次元配列のソートに使っていたアルゴリズムを流用すると
ソートのキーとなる要素に重複値があるとうまくソートされないんです。
他にはMSHFlexGridに書き出してソートしてまた変数に格納する方法や
それよりも更に時間が掛かるような方法しか思いつかないし･･･
何か良い方法はありませんか?

>>177
自前のコードをデバッグするのは？
もし処理速度が問題なら、DLLを利用するとか。
VectorにあったDLLは最大10万件だったけど。

>>177
>>数十万*15〜20
ってどういう事？ファイルがそれだけあるって事かな？
結局ソート対象は数十万で良いのかな？

>>169お願いします。

自己解決しました。

質問させていただきます。　長文になりますが勘弁してください。
ACCESSのmdbより、データを検索する処理があるのですが、（ループの内部）
高速化のためにキャッシュ処理を使うように変更することになりました。

この処理は、端末の利用者がデータ検索をする時に使用されるものですが、
端末利用者の検索条件設定（年齢層[子供、大人、老人等]や、職業[会社員、自営業等]）で
検索対象となるテーブルが可変します。
また、ループ処理で、同じレコードが再ヒットする可能性は極めて低いです。
なので、最初の検索時に対象のテーブルのデータを全て構造体配列に持って、
２度目以降の検索では、この配列を見るようにしようと考えていますが、
ツマラン処理の割には手間が掛かりそうです。（配列からの検索処理の記述とか）

何か他に簡単な方法はないものでしょうか。
漠然とした回答でも結構ですので、何かアイデアがあればお願いします・・・。
なお、使用しているＶＢのバージョンは6.0です。よろしくお願いします。

>>169
言っている事が判らない。
正式なコントロール名を使用して説明してくれ。

>>183
すいません、質問がおかしかったですね。
使用コントロールはvaSpreadです。ツールボックス内のComboBoxをform
に貼り付けている場合には
Select Case KeyCode
Case vbKeyReturn, vbKeyDown
KeyCode = 0
Case vbKeyUp
KeyCode = 0
Case vbKeySpace
If Combo1.ListIndex = 3 Then
Combo1.ListIndex = 0
Else
Combo1.ListIndex = Combo1.ListIndex + 1
End If
Case vbKeyBack
Combo1.ListIndex = -1
End Select
の手法でComboBoxの中身をどんどん変更できたのですが、vaSpreadでセル
をComboBoxに指定して同じような動きをさせたいのですが、ListIndexプ
ロパティが見つけられずに困っています。

>>184
市販されてるVB用ライブラリのヤツですか？　>>SPREAD
　With Spread
　　　.Row = 2' セルを設定
　　　.Col = 2
　　　i = .TypeComboBoxCount
　　　.TypeComboBoxIndex = 1
　　　s = .TypeComboBoxString
　End With
こんな感じで、取得したり設定したりする事になると思います。
ちなみに、VB上でF2キー押してfpSpreadライブラリのヘルプ見たほうが早い気が・・・

>>182
その前に問いたい。そのデータベースは正規化されているのか、と。

MSFlexGridで行単位の文字色を変えるのは
どのように行うのでしょうか？
MSFlexGrid.CellForeColor = QBColor(**)ではアクティブ？
（先頭かクリックしたセルにデータが送られた場合）の所だ
け色が変わります。

>>187
それは"Cell"ForeColorだから当然だろ。
カレントセルを変えるプロパティですよ。

あまり使わないから良く判らないが、そのプロパティの行バージョンを探すか、
セル１つずつを変えていって行全体を変えるか、範囲指定してセルの色を変えればいいのでは？

>>188
すいません。
アクティブなセルを替えながら色を変更していくのか
行ごと色を指定する方法があるのか、どのようにするのか
基本がわからなくて質問してしまいました。
>>185
の方法が使えそうな気がして試した所うまくいってしまいました。

With MSFlexGrid
.row = 行カウンタ
.col = 1
MSFlexGrid.CellForeCOlor = QBColor(12)
.row = 行カウンタ
.col = 2
MSFlexGrid.CellForeCOlor = QBColor(12)
.row = 行カウンタ
.col = 3
MSFlexGrid.CellForeCOlor = QBColor(12)
End With

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

>>189
おせっかいついでに・・・。
ループしろ、関数化しろ。

private sub SetCellColor( grd as MSFrexGrid, rw as long , cl as long, clr as long)
with grd
.row = rw
.col = cl
.CellForeColor clr
end with
end sub

呼び出し側

For i = 1 to 目標まで
call SetCellColor(グリッド, 行, i , QBColor(?) )
Next

>>190
おせっかいThxです。
おかげですっきりまとまりました。
勉強になりました。ありがとうございました。

ボタンを配列にしてCommand1(Index)という形になったのですがそのIndexを使ってフラグを作りたいのですがflg(Index)という形にするとIndexが参照されません。何が問題でしょうか。

（ボタンがたくさんあってクリックするとイベントが起きて、そのボタンを押したというフラグが作りたいのです）

>>185
レスありがとうございます。早速試してみたのですが、Index=2の時にリストの
2番目の文字列を取得したかったのですが失敗でした。ヘルプも見てみたのです
がなかなかみつからないものですね。
手法としてはTypeComboBoxIndexの値が変わった時に、Select文を使って.Text
="abcde"のようなやり方しかないのでしょうか？

>>186
正規化どころか、テーブルが・・・い、いえ、なんでも・・・。

システムが歪に成長しているもので、
それにカスタム対応しようとして、方法論までが歪な物になってしまいます。
早く別の作業に移りたい・・・

>>194
もしや、.TypeComboBoxIndex と .TypeComboBoxCurSel の
使い分けができていないとか・・・？

>>192
最小限の再現コードを貼って。

>>194
なんか、質問の意図を間違えたかもしれません。
↓のように設定した場合、
　　　.Row = 1
　　　.Col = 1
　　　.CellType = 8
　　　.TypeComboBoxList = "りんご" & vbTab & "ゴリラ" & vbTab & "ランボルギーニ"
　　　.TypeComboBoxEditable = False
　　　.TypeComboBoxCurSel = 0
取得するときは
　　　.Row = 1
　　　.Col = 1
　　　.TypeComboBoxIndex = 1　　'２番目
　　　s = .TypeComboBoxString　　'ゴリラ捕獲

>>195
なるほどね。正規化とかはできそうにない状況な訳ね。ところで、ADOとかで
Filter とか Find 使うって選択肢はあり？

Get!Get!っていうダイアログの文字など通常コピーできない文字列を
取得するアプリ有るじゃないですか。
アレで使われてるターゲットを選択するポインタって、VBではどうやれば使えますか?
ドロップした位置情報(x=300、y=400とか)が取得できればいいのですが。

>>200
マウスカーソル変えてSetCaptureするだけちゃうん？

>200
WindowFromPointっていうAPIがあります.

っで質問です。VBのプロジェクトに配置されました。
東京周辺でVB6.0が購入できるお店があったら教えて下さい。

九九の表を出力するVBコードを作りたいのですが分からないです。
どなたか分かる方いらっしゃれば教えてください

>>202
普通に買えると思いますが？
ttp://www.microsoft.com/japan/msdn/purchaseguide/chart/
から旧バージョンが入ってるものを選べばいいですよね:)

>>199
それは可能です。
現在の検索処理は、検索条件自体は単純（１件当たりの検索は早い）なのですが、
ADOを活用したら高速化できますか？　ちょっとアイデアが浮かびません・・・。

>>204
給料の低い新米にゃちときついなぁ。願わくば Learning Edition とか
単品で安く欲しいっす。やっぱ、秋葉探索しかないですか。

>>203
変数２個使って２重ループするとよろし。
テキストの描画には、TextOut っていうAPIがある。

>>206
業務で使うなら会社の金で買え

VB6でBIOSの日付を取得したいのですが可能でしょうか？

>>208
Now

>>209
馬鹿は黙っててくれませんか？

横レスだが、何故BIOSの時刻なの？
OSの時刻と基本的にイコールだし。

>>211
高負荷時のWin9x系で激しくズレることもある。

では単純に。
そんな用途でのOS選定、言語選定を間違ってる。

>>213
じゃあどのOSと言語使えばいいわけ？
間違ってると言うなら適切な事を知ってるんでしょ？

VBでOSを開発しようと思っているのですが、
どのような手順を踏めば良いのでしょうか？？

その高負荷を抑えようとしないんだろうか？

>>215
VBを窓から投げ捨てる

どうして誰も、　できません。　って言わないんだろう・・・

この流れが好きだからじゃない？

>>216
どうやって？

高負荷になるのは自作のアプリとはかぎらないわな

お知恵をお貸しください。
Windows2000 SP4＋VisualBasic6.0 SP5でアプリを作成し、
InstallShieldExpress2.12でインストーラを作成して
Windows2003サーバにインストールしても
正常に動作しますか？

ﾄﾞﾄﾈﾄに汁！という選択肢は除外でお願いします（；´Д｀）ｺﾞﾒﾝﾅｻｲ

すみません自己解決しました。
お騒がせしました。

文字コード変換について聞きたいのですが。。

楽天市場で検索を行うとアドレスの欄で日本語が
あいうえお　→　%A4%A2%A4%A4%A4%A6%A4%A8%A4%AA
のように変換されます。

この変換をVB上で行うにはどのようにすればいいのでしょうか・・・。
仕事から帰っていままでずっと検索したのですが
なかなか情報が見当たりません。

申し訳ありませんがご教授願います。

環境
VB6.0 SP6

>>224
URL エンコード

>>224
Function S_Change(s as string) as string
If s = "あいうえお" Then
　　S_Change = "%A4%A2%A4%A4%A4%A6%A4%A8%A4%AA"
End If
End Function

Dim flg(Index) As Integer


Private Sub Command1_Click(Index As Integer)
If flg(Index - 10) = 1 Then
Command1(Index).Picture = Command2.Picture
flg(Index) = 1
End If
End Sub




こんな感じなのですが・・

>>227
Dim flg(Index) As Integer
Indexが有効なのは下のプロシージャ内だけだから、flg(0)を宣言したことになる。

If flg(Index - 10) = 1 Then
Indexが0の時、宣言されてない flg(-10) を参照することになる。

>>207
自宅でこっそり勉強しようかと思いまして。
秋葉みてきたけど、ないっすね。
CDのみで1万5千円(Professional)版なら見つけましたが。
なんとかお安くかつ合法に入手できないもんですかね。

仕方がないんで、Java資格取ってJavaのプロジェクトに配属されるよう
がんばります。

>>229
V6.0なんか売っているわけ無いだろう。
５年以上前の製品で、とっくに発売中止になっているぜ。

今から合法的にライセンス手に入れたいなら、MSDN契約しかないな。
利用者が一人なら複数のPCにインスコできるから、会社にライセンス買ってもらって、自宅のPCにインスコしる。

>>224
AscとHex、場合によって文字コードをJISやEUCに変換する必要があるかも。
HTTPを扱おうと思うなら、HTTPの仕様ぐらい確認する。

>>218
もちろん決して不可能では無いからさ。
マシン語のコードをVBのソースコードに埋め込み、バッファーオーバーラン等を利用して呼び出せばよい。
Windows95/98/MEでしか動作しないけどな。

ただこの板には、そういう高度なプログラムを書けるバッカーが居ないだけ。

>>232
ソースに埋め込んだマシン語コードを動かすのに
バッファオーバーランなんぞ使う必要もねーべｗ
VBの機能とAPIを工夫し、それようにマシン語コードを用意すれば
配列とかに入れたマシン語コードを普通に呼び出せるぞ。
（それをVBプログラムと言い張る勇気は俺にはないがなｗ）

なんで「マシン語」なら>>212の問題が回避できると考えるのか、
その根拠が理解不能。
大体なんでその「マシン語コード」とやらを実効するのに
わざわざバッファオーバーランなんぞを使う必要があるのだろう。

っていうか、VBコンパイラが吐き出すコードだって（以下略

VB6で正規表現を使用できるようにと、以下のページを参照しました。
http://www.microsoft.com/japan/msdn/columns/scripting/scripting051099.asp

一般に正規表現は、丸括弧の中をあとから $1, $2, .... とかで参照できると
思うのですが、その方法があれば教えて下さい。

以下のURLにてVBSの場合の例があり、出来ると思うのですが
試してみると Submatches がないと怒られます。

http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200311/03110053.txt

エクセルデータを読み込みたいんですが、
下から３行目の、自分のＰＣのデータがどこにあるかを知りたいんですが、
どうすればいいんでしょうか？
デスクトップにＢｏｏｋ１で保存しています

Dim x As Object

Private Sub Command1_Click()
Text1.Text = x.worksheets.application.cells(1, 1).Value
End Sub

Private Sub Form_Load()
Set x = GetObject("C:\Documents and Settings\\デスクトップ\Book1.xls")
x.worksheets.application.Visible = True
End Sub

>>236
意味不明。
固定フォルダでないなら、ダイアログでフォルダを選択。
これを自動でやるなら、全ドライブ検索後、選択。

>>237
デスクトップ\Owner\　でＯＫでした。

次なんですけど、これだと、セルの（１，１）しか表示しないんですが、
全部とは言わないですが、ある程度のセルの値を表示するにはどうすればいいのでしょうか？

Text1.Text = x.worksheets.application.cells(1, 1).Value
でセルの(1,1)指定してるじゃないか。

DOLOOP使ってセルを一つずつ読み込め

なんつーか………
「ﾊﾟｿｺﾝ」にもうちょっと詳しくなってから来て下さいよ>236

? 11.5 \ 12
1

なんで 1 なの？

>>242
12 \ 12になるから。

教えてください。
エクセルの「=IMEXP("1+1i")」をＶＢ６．０で計算する方法です。

>>243
理解できた。ありがとう。

お疲れ様です

　いま、VB6.0からEXCELを操作するプログラムを書いているのですが、
EXCELのセルを行、列ともに大きさを変えたい場合はどのようにすれば、
よろしいですか？

　.Autofitではなく、任意で大きさを変えたいのですが？

for構文の中にもうひとつfor構文って使えないのでしょうか?
どうもうまく行きません。中の方のfor構文を別のプロシージャにして
呼び出すようにしても駄目です。　どなたかアドバイスください。お願いします。

>>247
すみません。自己解決しました。

>>244
ゴリゴリ書くしかなさそう。
手抜きしたかったら、シェアウェアのDLLで。

>>246
Excelを立ち上げ、メニューから「ツール→マクロ→新しいマクロを記録」。
後は実際にマクロで行いたい操作をExcel上からやってみろ。
Excelのマクロに関する、大抵の問題は解決するはずだ。

>>250
　ありがとうございました。
ところで、エクセルで作った帳票があるのですが。印刷時に１行目から４行目まではヘッダー
として必ず印刷するにはどのような方法がありますか？

はじめてのExcel買ってくれば？
ページ設定、シート、印刷のタイトルとか。

>>251
PageSetup.PrintTitleRows = "$1:$4"

250の言うことを理解できてないの?
それとも、EXCELの使い方自体を質問してる?

>>253 たぶん後者じゃないの？
って >>252 の言うとおり本観ろよ。

ディストリビューションウィザードでインストーラーを作成しましたが、
「データアクセスコンポーネント（MDAC？）」
のインストール時に以下のエラーが表示されることがあります。

「path or file not found」

OSはXPSP2で、アカウントは日本語ダブルバイト文字を含んでおりません。
ですので、以下の現象ではないと考えております。

http://homepage1.nifty.com/maruyama/error01.htm

他の原因は何か考えられますでしょうか？

VB6で、Windowsサービスを実装する
サンプルコードがどこかにありませんか？

>>256
ttp://www.grapecity.com/japan/support/database/VisualBasic_PDFCatalogs.htm
のNT Service Toolkit 1.0Jはトライアルがあると思う
昔、色々サンプルあつめたけどVCでやるほうが何も考えずに楽だった

>>257
なるほど、こういうコンポーネントがあるんだね。
VB.netやVCを使えば普通に作れるんだろうけど
開発言語がVB6に限られているのがつらい。

sexeとか普通のexeをサービス化するツール使えばいいじゃん。

出来ると使えるば別だと判ってるよな。元質問者。
VBでサービスなんて出来るけど使わないほうが良い。

スプレッドシートのセルを半角カナのみ入力できるようにするってできないんで
したっけ？

陸海空オンライン鋭意製作中！
ただ今、グラフィッカを募集しております。
よろすく。
http://www112.sakura.ne.jp/~kaientai-project/creategame.htm

ADOでMDBに接続して、テーブルの各フィールドのデータ型を取得しようと思っています。
Field オブジェクトのTypeプロパティを使うと
そのフィールドが「日付/時刻型」であることは分かるのですが、
その書式（「日付 (S)」とか「「時刻 (L)」）はどうすれば分かるでしょうか？

>>263
fieldのpropertiesにformatとかそんな感じの名前で登録されていたような。

<form action="AAA" method="get">
<input type="image" src="/img/submit.gif" alt="はい" border="0" width="115" height="25">
</form>

IEを操作してるんですが、こういう場合、このtype="image"となってる画像ボタンをクリックするには
どういう感じで書けばいいんでしょうか？
FROMタグにもinputタグにもname属性がなくてどうやって指定していいのかさっぱりわかりません

FROMタグってなんだ・・・FORMタグです

<HTML>
<HEAD><TITLE></TITLE>
<SCRIPT type="text/javascript">
window.onload=function(){
var ObjFORM=document.forms[0]; // *1
var ObjINPUT_image=ObjFORM.all.tags("INPUT")[0]; // *2
alert(ObjINPUT_image.src + "\r\n" + ObjINPUT_image.alt);
VBS_Code();}
</SCRIPT>
<SCRIPT language="vbs">
Option Explicit
Public Sub VBS_Code
Dim ObjFORM,ObjINPUT_image
Set ObjFORM=document.getElementsByTagName("FORM")(0) ' *3
Set ObjINPUT_image=ObjFORM.getElementsByTagName("INPUT")(0) ' *4
Call MsgBox(ObjINPUT_image.src & vbNewLine & ObjINPUT_image.alt,,"VBS")
End Sub
</SCRIPT>
<!--　*1 * 2 *3 *4
ここでは<INPUT>のtype属性まで調べていない。位置が分かっているものとする。
<INPUT type='image'>はelementsコレクションには含まれない
オブジェクトコレクションはVB系ではFor Object in Collection〜Nextで調査できる
JSでは配列要素指定には[]VB系は()である点に注意
JSとVBSの参照方法自体は相互に使える。ここでは分けた。
IEのDHTMLリファレンスでコレクションを調べよ -->
</HEAD>
<BODY>
<form action="AAA" method="get">
<input type="image" src="/img/submit.gif" alt="はい" border="0" width="115" height="25">
</form>
</BODY></HTML>

汚くてスマソ

訂正
For Object in Collection〜Next
→
For Each Object in Collection〜Next
Eachが抜けてたわｗ

ま、IE専でいいということだし、VB6なんだろうから
document.allやtags()でいいだろう。

Web的には
document.forms[].getElementByTagName()
なんだろうなｗ

>>264
レスサンクス。
ADOじゃだめだったんですけど、
DAOを使うとFieldのPropertiesにformatとして登録されてました。

…DAOで作り直しかorz

>>269
ADOXのColumnオブジェクトTypeプロパティもだめ？

>>270
やってみました。
ダメですた(´･ω･`)
Propertiesにもなかったし…。

現在DAOでごりごり改築中です。

三目並べのゲーム作ってるんですが中々うまくいきません。具体的に言うと
□□□
□□□　←みたいに９個のラベルがあってクリックすると○がついてランダムに他のラベルに×が付くという
□□□　　仕様なんですが、一度○をつけた所を何度もクリック出来たり○が入ってるところに×が入ったりしてしまうんです。
他には既に×が入ってるところに×が入ってしまう事もあってクリックしても×が表示されないこともあります。
それと勝ち負けの判定方法も分かりません。無知な僕にご指導よろしくお願いします。

If-Then-Elseの使い方を憶える
縦・横・斜めのどこか一直線が×か○になっていたら終わり

>>273
つまり
If Label1.Caption="○" AND Label2.Caption="○" AND If label3.caption="○"　_
OR Label4.Caption="○"(ry

という感じですか？他の不具合を直す方法についてもよろしくお願いします。

まあ、やり方は色々だけどそれでもいいんじゃないすか。

>一度○をつけた所を何度もクリック出来たり○が入ってるところに×が入ったりしてしまうんです。
>他には既に×が入ってるところに×が入ってしまう事もあってクリックしても×が表示されないこともあります

原因が色々考えられるのでわからないですね。エスパーでもないんで。
デバッグは自分でやりはれ。
キャプションに○×入れてる箇所にブレークポイント入れて、正しい場所に入れているのか確認しなさい。
MSDNもインストールしなさい。

クリックする前やランダムで入れる前に
すでに○か×があるかどうか調べないの？

>>274
とりあえず、コントロール配列にしたほうがいいよ。
それじゃループが使えない。

グレープシティーの vs-view を使って帳票を作っているのですが
縮小印刷ができなくて困っています。
また使っているバージョンが古くて問い合わせできないので
御存知の方がいらっしゃいましたらアドバイスよろしくお願いします。

B4 横で作成した帳票がありプレビューをしています。
このプレビューを出力する時は A4 に縮小して出力したいのです。
B4->A4縮小する方法がわかりません。

よろしくお願いします。

>>277
コントロール配列にするとクリックしたときに○が入るというのをうまく出来ないんです。
追記ですがランダムに×を入れるというのはSelect Caseを使ってます。

VB云々じゃなくて、論理的に物事を考えることが出来ないだけじゃん。

>>280
そうなのかもしれません。では三目並べのゲームをVBで作る場合どういうコーディングをするのが論理的か
例えをあげて指導してくれませんか？

>>281
升目を内部的にどう管理するか考える･･･二元配列？
画面で起るイベントに対して、升目のリアクションを列挙する･･･新規の○×、すでに置いてある
新規に置いた後のロジック＝勝敗判定を考える

HTMLのメールを以下のように送信したのをOutlookで受信して、
その受信したメールを今度は転送しようとすると画像が崩れてしまいます。
メールのHTMLソースをみると、画像のパスが<img src="c:\test.html">って
なってて、なんか変。正常に転送できるように送りたいのですが、下のソースって
なんか、間違ってますか？

Dim cdoMessage As CDO.Message
Dim cdoConfig As CDO.Configuration
Set cdoMessage = New CDO.Message
Set cdoConfig = New CDO.Configuration

'URLの設定
　　sHTML = "c:\test.html"
sURL = "file://" & sHTML

'メール設定
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = CON_ADDR_SMTP
.Update
End With

つづき・・・


'送信
With cdoMessage
Set .Configuration = cdoConfig
.CreateMHTMLBody sURL
.From = sFrom
.To = sTo
.Cc = sCC
.Subject = sSubject
.Send
End With

Set cdoConfig = Nothing
Set cdoMessage = Nothing

配列について質問です
配列の一部のみを開放と言う事は出来るのでしょうか？

例えば
10の要素のある配列の前半4つを開放(？)し6の要素をもつ配列に変換するという感じです
やはり5つめの要素から最後まで順にセットして良くしかないのでしょうか？
ご教授願います

>>285
確かにReDim Preserve は不便で使えないもんなぁ。遅いしｗ
別新規配列に手動で要素コピーする方法はイヤだとｗ
JavaScriptやPerl風の連想配列を使ってみる？要素indexが連続する必要はないし文字列indexでもOK

Private Function Test()
Dim i As Long, s As String, d As Variant

Rem 参照dllはMicrosoft Scripting Runtime(scrrun.dll)
Dim ObjDic As Scripting.Dictionary

Set ObjDic = New Scripting.Dictionary
For i = 0 To 9
ObjDic(i) = "Value" & CStr(i): Rem 記述その1
Rem その2:ObjDic.Item(key) = item
Rem その3:Call ObjDic.Add(key,item)
Next

For i = 0 To 3
Call ObjDic.Remove(i): Rem 4つの要素削除
Next

d = ObjDic.Items 'ObjDicのままで使えるが新規の場合
For i = 0 To 5
s = s + d(i) + vbNewLine
Next

MsgBox (s)
End Function

>>285
配列をそのまま使わずにリスト構造の構造体を抱える器として使う。
そうすればとりあえず部分的に開放する場合は、Redimしないでリストの付け替えでOK。
ある程度穴だらけになったら、リストの領域を別のものにコピーしなおしてきれいにする。

>>283
画像パスにしっかり”c:\test.html”と指定しているじゃないか。
ちゃんと書いたとおり動いているし、正しいんじゃないか？

まぁ普通はインターネット上のWEBサーバーに画像を置くとか、
メールに画像を添付するとするけどな。

>>288
メールを送る前は、src="c:\aaa.gif"のように画像をしてるんだけど
送ってOutlookで受信したときは、src="cid:〜〜"に変換されてて
そのメールを転送して送ろうとするとsrc="c:\test.html"に変換（？）
されてしまうんです。

>>285
そんな面倒なことしなくても、素直にWin32APIのCopyMemoryを使うか、
配列のインデックスにオフセットを加える操作をラップしたクラスを作ったほうが
よほど簡単だと思う。

VB:6.0
OS:2000sp4

専用ワークグループを設定したMDBにDAO3.5で接続したいんだが
ワークグループの変更に失敗する。

DBEngine.SystemDB="D:\Test.mdw"　←エラーはでないが、変更されない

ためしにExcel2000のVBAで同じことをやってみたら、こっちは成功。
VBのバグなんだろうか。
誰か知ってる人いたらご教授おねがい。

>>290
CopyMemory使っても確保されているメモリは解放されんだろ、

>>292
また意味不明なことを。これだからVB（以下略
そんなもん、コピーした後オリジナルを抹殺するだけの話だと思うが。。

つうかさ、VBなんだからメモリー操作なんぞ不要にしないのが正統。
どうしてもそれしかないって言うなら使うけど、そうじゃなければ使わない。
そもそもそういうのが必要ならVBで作るな。

VB6.0 XP

〜　keypress(KeyAscii as integer)
If KeyAscii = ☆ then
　処理
end if

vbKeyReturn や vbKey1（数字）だと反応するんですが
vbKeyF1（ファンクションキー）だと反応しなくなるんですが
なぜなんでしょう．．．

なぜってmsdnにちゃんと書いてあるじゃん。。
>>295みたいな奴ってどういう精神構造してるんだろう。

初心者が馬鹿なのは不快じゃないけど、教えている方が馬鹿なのは不快だなぁ。

ビジュアルベーシックを一から勉強しようと思っています。

しかし、普通の入門書みたいのだと、あまり私が作りたいと思うジャンルで実践してくれないので、
できれば「ゲームを作りながら学べるBV」みたいな入門書があると嬉しいのです。
そういう本てありますでしょうか？

プログラムは昔、MSXでベーシックを作っていたので、多少は心得があります。

>>298
ベーシックはよく分からないんだが、
いきなりゲームを作るのは難しすぎると思うぞ
「ゲームを作りながら学べるVB」な本は基礎部分をかなり省略しているから
地味な本でも基礎をきちんと説明している本から始めたほうがいいよ

おすすめは技術評論社の「VB.NET　３００の技」といった感じのタイトルの本
もしくは「ＶＢ．ＮＥＴ　基礎編」「応用編」「コントロール関数編」の三部セット(まずは基礎から）
俺は全部持ってたりする

逆にお勧めできないのは翔泳社や日経ＢＰの本

はて、ここはドトネトのスレじゃないような気が。。
というか、いまから何もわざわざ泥舟の勉強しなくてもいい気がするんだけど。

どうでもいいけど日経BPにもいい本はあるよ。
矢沢久雄の『Visual BasicユーザーのためのWindowsプログラミング入門』なんて
かなり良書だったと思ったよ。

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

>>299
多少理解しにくくても、興味のあるところから行きたいのですよね・・・
でも、とりあえず、そのご紹介の本を・・・っておもったらVBじゃないのか(´･ω･`)

>>300
すいません、泥船ってなんのことでしょうか？

かちかち山で狸さんがウサギにそそのかされて乗った船のことですよ。

>>302
え？
すいません、それはわかるんですが、泥船を勉強しなくていいというのはどういうことなんでしょうか？

VB6 = 狸さんの乗った舟、ってことだよ。
狸さんの乗った泥舟、結局どうなった？
沈んだ。つまりそういうこと。

ほんとはわかってる癖にw

>>304
なるほど・・・いちいち解説すいません。
ただ、VBがだいたいそういう運命なのはわかってるんですが、これが一番簡単だと聞いたので、やってみようと思っています。

>>305
>これが一番簡単だと聞いたので、やってみようと思っています。

つ [HSP]

>306
ゲーム作りたいだけってならそっちのが簡単で良さそうだね

VB6・Win2000環境でゲームを作ってるのですが、質問です。
終了キーが押されたら終了フラグを立て、ゲームのメインループを抜け終了処理をし、
その後にフォームをアンロードさせているのですが、アンロードされた後も
アプリケーションタスクが残ったままになってしまって困ってます。

ただ、フルスクリーン・ウィンドウモード用に二つのフォームを用意してるのですが、
ウィンドウモードのフォームではちゃんと終了されます。
「フルスクリーンモードだったら元々の解像度に戻す」という処理を終了処理に加えただけで、
他はウィンドウモードの終了処理と全く一緒なのですが、何故かタスクが残ったままに…

アンロード時にEndステートメントを挟めばちゃんと終了されるのですが、
強制終了させるのはどうにも気持ちが悪く、修正したいと思っています。
何が原因かご推測できる方、御教示を賜りたくお願い申し上げます。
（ループ抜けてないとか、単純なミスだとは思うんですが…orz）
（解像度変更関連の処理をしないでフルスクリーンフラグを立てるとどうなるか調べてみましたが、
　こちらも同様にタスクが残ってしまうので、解像度関連のバグでは無いとは思います）

>>308
他フォームをアンロードしてから、そのプロパティや変数を参照した場合、
再ロードされてしまう。

>>308
何か表示非表示にかかわらず、フォームがロードされていると終了しない。

素直にEndステートメントを使っておけ。
Endステートメントは強制終了ではなく、きちんとフォームのアンロードや
リソースの開放などの終了処理を行ってくれる。

Endは便利だがForm_UnloadやらClass_Terminateが発生しない
まま終了しちゃうので注意。
そっちに何も書かないようにすりゃいいだけだが。

>>308
フォームのInitializeとかにDebug.Printとか入れておいて
どのタイミングでロードされているかチェックしたら？

注意
　その場合に、安易にDebug.Print フォーム名.Caption とかしないこと。
　Debug.Prntでフォームがロードされてしまいややこしいことになりかねない。
　Debug.Print "Form名_Init"のように単純な文字列にしておく方が良い。

>>310
全然素直じゃない。バグがあって終了しないのだから、
バグがあっても終了するようにするのではなく、
バグの方を終了すべき。

Endステートメントは強制終了であり、>>311さんが言っているように、
UnloadやTerminateなどの終了処理をしない。

>>293
> また意味不明なことを。これだからVB（以下略
> そんなもん、コピーした後オリジナルを抹殺するだけの話だと思うが。。
意味不明なのはお前の方だな。
オリジナルを抹殺とかなにいってんの？ｗ
CopyMemoryをしても、配列のメモリは解放されません。

treeviewのnodeでチェック出来る出来ないを制御したいんだができない。
教えておくれ。

各nodeごとにdatabase読みに行ってその判断でチェック不可にしたい。

>>313
何が言いたいの？
まあ、多分馬鹿なだけだと思うけど、
何か反論なりいいたいことがあるのならその主張を明確にしてくれ。

一応書いておくと、>>285のような処理を純粋にVBの機能だけを使って書いても、
つまり順次コピーの後Redimするようなコードを書いた場合でも、内部的には
「オリジナルの配列」は抹殺されてるんだよ。

>>282の事を参考にコーディングしようとしましたが知識不足なのか分からないところが出てできませんでしたorz
誰か助けてください。

>>309-312
ご返答ありがとうございました。ENDステートメントも便利だぞ、
ということのようで、とりあえずの応急処置として使用させて頂きました。

…と、>>312氏の助言の通りDebug.Printでひたすら確認してみると、
どうやらフルスクリーン処理の方だけSub Mainを呼んだ後に
Form_Loadを二回していることがわかり、原因を探ってみたところ、
Form.Showの前にCreateCompatibleDCのハンドルにピクチャーボックスのハンドルを指定していた為、
Formが二回Loadされてしまっていた、ということっぽいです。

というわけで無事修正と相成りました。ご助言ありがとうございましたー

(´-`).｡ｏＯ（いまどきの小学校ってVB導入されてたりするの？）

あるテーブルに対してＩＮＳＥＲＴ文を投げています。
でコミット後にまたＩＮＳＥＲＴ文を投げてコミット。

上記のようにトランザクションが複数にまたがる場合、
lock tableってどういう風にかけてあげたら良いのでしょうか？

素直に２回かけるしかないのでしょうか？

IEの操作でダイアログ「はいorいいえ」が出た時にはいを押させるにはどうすればいいのでしょうか？

>>320
はいorいいえが出た時にはいを押すようにユーザに伝えておく

>>321
自動で押してしまいたいんですが・・・

>>319
DBきちんと勉強しろよ。
そんなの他人に聞く奴がロック使うなんて早い。

>>322
自動で押させるぐらいなら、表示するな（させるな）。

ちなみに、自動でなんて心配しなくても、大抵のユーザーは半自動でクリックするから大丈夫（ぉ

>>324
どうやってIEの操作ダイアログを表示させないようにできるんですか？ｗ

>>325
普通に

ひたすらググっても.NETでのやり方しか出てこなかったのでこちらで質問させてもらいます。

mdbからDataGridに読み込ませて更にその読み込ませた内容でグラフを作りたいのですが、
DataGridで読み込ませた内容をどうやったら取得できるかわかりません。
初めはMSFlexGridで作ってグラフ作成にまでこじつけたのですが、
その場合MSFlexGridにtextでしか読み込めず、mdbで読み込ますことができなかった上
直接Grid上に書き込めないのでDataGridに切り替えました。

具体的には2×10くらいの表で上の行をＸ軸、下の行をＹ軸にしたグラフにしたいので
列ごとの情報を取得して点を割り出して原点とそれをLineで結ぶ、ということを考えてます。

>>316

>>279は解決した?これが解決しないと先に進めないよ。

それと、質問はもう少し具体的に。

string配列に入ってる文字列で、
中に重複があった場合それを取り除いて重複の無い配列にする方法ありますか？

>>329
そういうプログラムを書けばいいじゃないか

>>330
そうなんですけど
初めに全部入れておいて後からチェックしたいんですよ。
でもその方法がわからないんですよね。

strTmp=""test""
内側の " を消す方法ってありますか？？

>>331
逐次探索、2分探索、ハッシュ等。

>>327
何がわからないのか、わからない。
グラフを描いたことがあれば、迷うことはないはず。
グラフィック自体が初めてなら、少しずつ習得するしかない。

>>326
> 普通に
ワロタ。
やっぱり答えられなかったか。
お前は要らない。消えろ。死ね。

メッセージも扱えない社会の底辺はごみでも漁ってろｗｗｗｗｗｗ

だいたいどのダイアログで｢自動で"はい"を押すorダイアログを表示させない｣を
やりたいのかすら書いてないからね。
本当に｢普通に｣ダイアログを出さなく出来る物もあれば、
どうやってもダイアログを出してユーザーに判断させる必要があるものもある。
セキュリティー上、確認が必要な部分まで外部プログラムで制御したら
それはウィルスの類となんら変わらないからね。

きっと>>320もそういうヤバめな行為をやろうとしてるんでしょ
でなければ｢はいorいいえが出た時にはいを押すようにユーザに伝えておく｣で事足りる。

想像力の無い奴だな。
自分で、はいorいいえを自動でやるプログラムが欲しいだけだろ。
明らかに、はいを押すと分かっている局面でいちいち押すのが
面倒だと思わないのか？

> だいたいどのダイアログで｢自動で"はい"を押すorダイアログを表示させない｣を
> やりたいのかすら書いてないからね。

それなのに普通にできると、適当な答えを言う奴がいる。
どのダイアログかわからんのに、なぜできると答えるのか。

すいません。全くの初心者です。
ある変数aがDate型として、aがある日付範囲やある時刻範囲に
あることを調べたいのですが、どのようにすればよいでしょうか。
例えば
・日付が2005/6/1〜2005/6/30かどうか調べる
・時刻が18:00以降かどうか調べる
といったことです。

よろしくお願いします。

>>340
formatとifでいいんじゃないの？

MAPI関連でご教授願います。
OS:WIN2000(SP?)
言語:VB6

MAPI32.DLLを使用してアプリを作成していますが、
Outlook2000が実行されている環境下で起動すると
MAPISP23.EXEが複数起動してる時があります・・・。
こうなるとOUTLOOKは応答なし、作成アプリは、MAPIのログオンエラーとなってしまいます。
MAPISP32.EXEが複数起動してしまうタイミングとか
知ってる方がいましたらよろしくお願いします。

>>342
MAPIを使っているのが、そもそもの間違いなきがする。
MAPIってインストールされているMUAの種類やバージョンに、設定によって
挙動が変わるけど、本当にMAPI使いたいの？
Outlook2Kと限定できるなら、VBA(と言うかOLE Automation?)のほうが良くない？

>>343
レスありがとうございます。
説明が不足してましたが、ExchangeサーバとＭＡＰＩ接続をするアプリでして、
MAPI接続が必須となっています。
Outlook自体は無くても構わないのですが、他で使用してるらしく・・・。

やっぱりDLLバージョンやOutlook設定に問題ありですかね。
それとも複数から同時にMAPI接続するのが悪いのでしょうか。

ええとですね、ユーザーどうこうではなく自分で使うものです
ウイルスとか悪いものに使うわけじゃありません

基本的にはいろんなページを巡回させたいんですが
時々意味のないようなダイアログを出してくるサイトがあって
そういうところにぶつかると処理がストップするんですよ

なので自動的にはいをクリックしてくれないかと思ってるわけです

>>345
俺は以前同じような奴でFindWindowやその周辺のAPIで
ウインドウを見つけてIDやタイトルなどから
判断し自動クリックするツールを作ったよ。

上の方で普通にできるとか書いている奴がいるが、
ウソもしくはただの無知なので相手にしないこと。

あとセキュリティがどうこう言う
おせっかい野郎も無視して良い。
そんなことは最初っから分かって言ってる訳でしょ？

ありがとうございます
知識が浅くてどう書いていいのかさっぱりわからないので
とりあえず判別などは結構ですのでダイアログが出たら常にはいをクリックするという処理を
一番シンプルなもので教えていただければと思います

はじめまして、
インターネットや本を一通り調べたのですが見つけることが出来なかったので
どなたか是非ご教授おねがいします。
OS：XP
言語：VB6

キーコード入力の検出をしたいのですが、入力の検出とそのコードの認識は
KeyDownイベントで出来ているのですが、他プログラムを選択しているときは
そのキー入力を認識できません。
具体的に言えばこのプログラムの実行中に電卓を起動して電卓の入力ログを
残したい時に使うものです。
使用するイベントや、プログラム、参考になるサイト、VB6では無理など一部でもいいので
意見をお願いします。

使用目的はあくまで自分の記録用です・・。

>>349
グローバルフックなどを使うが、VBだけでは無理

昔、インストーラーについて比較したサイトがあったんですがご存知の方いませんか？
インストーラーによっては（DLL等）を上書きしてしまう問題があるとか書いてあったよう
な気がするのですが。（＆その他諸々の長所短所）

>>349
自分用の記録の残し方
１．ちらしの裏
２．自分で電卓作る

>>351
ttp://dobon.net/vb/installer/index.html
こんなとこか？

>>353
おおっ！これこれ、これです。助かりました。

三目並べの作り方をおしえて（はぁと

>>355
Programming The Tic Tac Toe Game
ttp://visualbasic.about.com/od/usingvbnet/l/aa093002a.htm

課題ができないからってこのスレで粘着するかね
問題を小分けにして解決しようなんて頭は無いんだね

>>349
キーロガーを使えばいいんじゃないの？

>>350
>>352
>>358
うむぅVB単独では不可能でしたか・・・。
質問に答えていただきどうもありがとうございました。

>>349
ログを録るだけならDirectInputでいけるんじゃないかな。
VB DirectInputで検索してみ。

一通り調べたのですがわからずだったので教えてください。

中国語フォント（UTF-8）で書かれた文字列が記入されているファイルを読み込んで
別ファイル（UTF-8）に追記したいのですが、特定の文字が文字化けしてしまいます。
文字化けをせずに追記する方法を知りたいのですがどうしたらよいでしょうか？

なお、ファイルはバイナリモードで開いてInputBで読み込み、Printで書き込んでいます。

>>359
正確には、VB6.0でもActiveX.DLLを作れば出来なくはないが、到底お勧めできない。

>>348
何でズバリと回答が付かないのか、まだ気づかないのか？

お前の言うダイアログとは何のことだ？
HTMLウィンドウをモーダル表示している状態のことか？
JavaScriptからAlertやMessageBoxで表示しているメッセージのことか？
ActiveXやPluginダウンロード時に表示されるセキュリティ警告の事か？
どれのことを言っているのかによって実現方法や、実現のための難易度は大きく異なる。

>一番シンプルなもので教えていただければと思います
SendKeys {ENTER}

>>363
回答はとっくについているように傍目の俺には思えるけど。。
まあ、君の書いている内容を読む限り、何もわかってない奴がなに言ってんの、
としか思えん。

しかしどうして口調が偉そうな奴は例外なく無能なんだろう。。
まあ自分の無能に気がついてない幸せモードだからだろうけど。

>>361
Stringに読み込んでるというオチは無いだろうな

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()

Dim WM_CHAR As Integer
WM_CHAR = &H102

Call SendMessage(Text1.hwnd, WM_CHAR, Asc("A"), 1)

End Sub

1文字送りたいだけなのにAAAAAAAAAAAAAAAAAAAAAと永久にAを
送ってしまいます。なぜでしょうか？

>>366
まったく同じ（だろう）フォームを作って動かしてみたが、そんな事はなかったよ。
WindowsXP / VB6.0(SP5)

後、WM_CHAR は General で Const宣言した方が良い。

Private Const WM_CHAR As Long = &H102

そんなことないっすかー
同じ環境なんですけどねー

１．本当にSendMessageを一度しか送ってないか、DebugPrintを仕掛ける。
２．受けた側が本当に複数受けているのか、Spy++で見てみる。

ちなみにPostMessegeならうまくいきます。

誰かアナログ時計のコード教えてください。なるべくシンプルなやつで。
６，７行で作れるようなやつ教えてください。自分が作るとグダグダ長くなるんですけど
誰か教えてくれますか？ちなみにVerは5.01です。私自身初心者なんで
ぜんぜん分からないんです。

長くてもいいじゃないか

>>365
やはりbyte()を使用して書き込まないとだめですかね・・・？
print #1 buf()
こんな感じにしないとだめなんですね。

どうしてStringに読み込んではいけないのでしょうか・・・？
いまいちわかっていないのでご教授ください。

>>373
VB6でUNICODEは使えないから。

>>373
VBの内部コードはUCS-2だから、
UTF-8 ⇒ UCS-2 ⇒ UTF-8 の過程で一部が化ける。

>>360
目的のプログラムが出来ました！360様ありがとうございます。

VBでWindows95程度のOSを開発しようと思うのですが、
具体的にどの辺から手を加えればいいのでしょうか？

貴兄の脳みそから、

最近VB６を使い始めました。

1.Private Sub Command1_Click()
2. damage = Int((150 - 100 + 1) * Rnd + 100)
3. enedmg = Int((100 - 50 + 1) * Rnd + 50)
4. enelife = enelife + damage
5. lblhit.Caption = damage
6. lblDamage.Caption = "チョコボに" & damage & "のダメージ！"
7. If enelife >= 500 Then
8. MsgBox ("チョコボを倒しました！")
9. Exit Sub
10. else
11.　 lblDamage.Caption = "チョコボの攻撃！主人公に" & enedmg & "のダメージ！"
12.　End Iff
13.End Sub

と、書いたんですが、「チョコボに& damage & のダメージ！」が表示された(ほとんど見えない)瞬間に
「チョコボの攻撃！主人公に" & enedmg & "のダメージ！」が出てきてしまうんですが、
処理と処理の間に間隔を入れるのはどうやってやるのですか？
いろいろサイトをまわってみたのですが、見つからなくて・・・。

>>379
いいかげんでいいならSleepでも使う
ほんとにゲーム作りたいなら本でも買ってきたほうがいい

ツールチップの文字列を改行したいのですが、
どうすればよいのでしょうか。
vbCrLfではダメでした。

よろしくお願いします。

>>381
ここのAPIを使用してツールチップコントロールを自作する
に、改行してるツールチップがある。
APIを使わないと駄目みたい。
ttp://www.mitene.or.jp/~sugisita/vb6_cmctl.html

>>382
APIを使わなくてもできる方法は間違いなくあるのですが、
その方法を忘れてしまったのです。

vbCrLf を別の書き方で書くのですが、うーん、思い出せません。

VB6.0でCol=5,Row=10のDataGridあり、
セル一つ一つに適当な数字が入っていたとき
この中から最大値と最小値のデータを取得したのですがどうすればよいでしょうか？

>>384
データを入れる時に最小と最大を記憶しておけばいいじゃないか

エクセルデータを呼び出したいんですけど、
なかなかうまくいきません。
また、＃＃＃の部分はどう呼び出せばいいのでしょうか？
どう改良すればいいのでしょうか？

Private Sub main()
Dim objExcelApp As Workbook
Dim strExcelFile As String
Dim strExcelSheet As String
Dim MyValue As Variant
Dim strMOji As String
End Sub

Private Sub Command1_Click()
Text1.Text = （＃＃＃＃＃＃）
End Sub

Private Sub Form_Load()
strExcelFile = "C:\Documents and Settings\kumamoto\デスクトップ\バス停データ.xls"
strExcelSheet = "Sheet1"
Set objExcelApp = GetObject(strExcelFile, "Excel.Sheet")
MyValue = objExcelApp.ActiveSheet.Cells(1, 2).Value
Set objExcelApp = Nothing
End Sub

まずはExcelを参照設定しろ。
話はそれからだ。というかそれで終わる。

>>386
dim を sub mainから出して、
Text1.Text=MyValue

変数のスコープが解ってないみたいだから、その辺の勉強したほうがいいよ。
あと、コードの先頭で Option Explicit した方がいい。

このスレで何度も荒らしみたいに三目並べの作り方を聞いたあほです。申し訳ありませんでした。
何とかラベルのコントロール配列で作れたのですが、コントロール配列にしても問題は解決しませんでしたorz
○□×
□○×
□□□
↑の様な状態で右下をクリックすると
○□×
□○×
□×○
とならなければいけないのですが
○□×
□××
□□○
となったり
○□×
□○×
□□○
↑のように×が既に入っているラベルに×が入ってしまったりしてしまうんです。
どうすればこの不具合を修正できるでしょうか？

>>389
おい荒らしよ、ソースどこかにアップしろ

>>389
三目並べなんてどんな初心者でも作れますがね、その質問でバグを特定できるやつは天才かエスパーだけだよ。
ソースうｐしてから再度質問しなちゃい。

ActiveX DLLを直接レジストリに書き込む場合、
レジストリのどこの位置に書き込めばいいのでしょうか・・・
今まではWindowsScriptingHostを使用して、下記のコードで
起動時に登録、終了時に解除というようにしていたのですが、

Sub R_Input(sDLLName As String, Optional bKaijo As Boolean = False)
On Error Resume Next
Dim sCommand As String, myWsh As Object, sOption As String

Select Case bKaijo
　　Case Is = True
　　　　sOption = "/u /s "
　　Case Is = False
　　　　sOption = "/s "
End Select

Set myWsh = CreateObject("Wscript.Shell")
sCommand = "REGSVR32 " & sOption & Chr(34) & App.Path & "\" & sDLLName & Chr(34)
myWsh.Run sCommand, , True
End Sub

このやり方ではWSHがインストールされていない環境だと実行できません・・・
そこでAPIを使用してレジストリに直接書き込もうとしたのですが、
自分の検索のやり方が悪いせいなのか、どこが書き込む位置なのか分からないのです・・・

>>392
レジストリに直接書かなくてもREGSVR32というプログラムにやらせれば
いいじゃないか。batファイルでもexeでも作ってさ。

>>393
すみません、とんでもなく寝ぼけた事を言ってましたね。
VBSから入ったもので、単にShellを使えばいいだけでした・・・

ただそれとは別に、プログラムで処理する方法も知りたいので、
RegisterTypeLib/UnRegisterTypeLib APIを使うことまでは分かったのですが、
何かレジストリに書き込むだけはなくて、複雑そうですね。

COMについて調べてみても
http://yokohama.cool.ne.jp/chokuto/urawaza/com/com.html
全く訳が分からないです・・・

>>392-394
RegSvr32使えばいいんだが、プログラム内で同期処理したいというなら。。。
そのファイルをLoadLibraryして"DllRegisterServer"か"DllUnregisterServer"で
GetProcAddressしたらそれを直接実行・・・・はVBだとできないから
CreateThreadしてWaitForSingleObjectしろ。
GetExitCodeThreadで成功したかどうか分かる。おわったらCloseHandleと
FreeLibraryを忘れるな。たぶんRegSvr32も同じことをしていると思われ。
うちんとこではうまくいってるぞ。
CreateThreadしたらすぐWaitForSingleObjectしてGetExitCodeThreadと
CloseHandleしろ。余計なことはするなよ。

>>395
まちがた。
CreateThreadしてWaitForSingleObjectしたら、WaitForSingleObjectの
戻りがWAIT_OBJECT_0だったら成功です。
GetExitCodeThreadしたら、そのExitCodeでExitThreadしてください。
スマソ。

>>396
サンクスです。
それにしても自分のレベルでは厳しそうですね・・・
もう少し勉強してから挑戦してみようと思います。

>>395-396
VB6ではOpenProcess()のほうがいいよ。

>>396
CreateThreadに渡せるのは DWORD (WINAPI*)(LPVOID)の関数だから危なくない？

>>398
OpenProcessで登録できるとは思えないなぁ。

>>389
単に○でも×でも無いところに×を入れるようにしたらいいんでないかい？
○×が入っているとかの判断が無いだけな気がするが？

VB初めてから3ヶ月くらいの超初心者ですが、
>>389を見て自分も三目並べに挑戦してみました。（>>389ではない！）

最終的には、勝ち負け引き分けまでの判定までは出来たのですが、
コードが雑で、アルゴリズムにまとまりも何もありません・・・

http://sakuratan.ddo.jp/uploader/source/date0723.zip
罵倒でも何でもいいので、アドバイスをお願いします。
できれば同じようにソースを見せて頂きたいです・・・

>>401
自分のと仕組み同じなのにとっても綺麗に出来ていてホレボレしますたorz
自分の家にはＶＢがなくて全部学校なのでＦＤ買って今度持ってきます。

> コードが雑で、アルゴリズムにまとまりも何もありません・・・

駆け出しの頃はしかたないよ。
それに少しでもきれいに書こうと思うなら他人に｢ソース出せ｣とか言って
頼るだけじゃなくて、自分で勉強しなくちゃダメだよ。
技術的に解らない部分があるならアドバイスはするけど、
いきなり上級者と同じレベルのコード書こうなんて奢らないほうがいい。
上達の速度に差はあれど、皆時間と努力を重ねて上達していくのだから。

>>402
いや、ちょっと待った！！それはおかしい！！
自分で作っておいてなんだが、相当雑だと思う。
それなりに考えて組んだつもりですが、全然まだまだかと・・・

>>403
確かにそうですね・・・もっと努力していきます。
それと技術的な面で一つ質問なんですが、複数の変数を比較する場合は
IFでネストするか、Andで区切るしかないのでしょうか・・・？

例えば3つの変数が同じか比較する場合は
If S(0) = S(1) = S(2) Then ではエラーがでるので
If S(0) = S(1) And S(1) = S(2) Then としたのですが、
これはもっと効率的なやり方はありますかね？

>>404
それでいい

便乗ですみませんが良ければご指導願います。
ttp://49uper.com:8080/html/img-s/64102.lzh

完全なランダムかよw
ほとんどの場合ストレート勝ち出来るな

ごめんなさい。
もっと歯ごたえのあるよう頑張ってみます。

ttp://ja.wikipedia.org/wiki/まるばつ
まあ読め。

>407,409
評価頂きありがとうございます。
今度は戦闘力うｐしました。
で自分では勝てなくなりました。宜しくお願いいたします。
ttp://49uper.com:8080/html/img-s/64127.lzh

>>410
簡単に勝てるぞ・・・
まじ端に○を置いて、真ん中の×を挟み込みようにまた○を置くと、
○　○
　×
○　×
すぐこの形になるぞ。あともうちょい

すみません間違えました。こちらです
ttp://49uper.com:8080/html/img-s/64133.lzh

三目並べ祭りなのか？
CPUはランダムのみだけど機能に凝ってみたの作ったyo-
ttp://w405nm.no-ip.org/~ken/upfiles/fm20050629032202.zip

お馬鹿な質問ですが・・・・

他人の作ったプログラムを修正しようとしたのですが
Ｆｏｒｍ上のオブジェクトが、変更できません。
但し、プロパティの変更による修正はできます。


なにか編集不可のロックのようなプロパティがあるのでしょうか？

>>414
ツールバーにカギの形をした「コントロールのロック」ってボタンがないかい
なかったら、ツールバーで右クリックして「フォームエディタ」にチェック付ければ出てくる
「書式」メニューの中にもあるよ

>>404
>複数の変数を比較する
ループって手もあるよ。
S(0)=S(1)=S(2)なら

isSame=True
for i=1 to 2
if(S(0)<>S(i))then isSame=False;Exit for
next
if(isSame)then
....

3変数なら等号をandで並べたほうが楽だし見やすいけどね。

三目ネタに首突っ込んでみる。
CPUはランダムじゃ、やはりつまらんだろ。
まあ意外性はあるかも知れんが。

ポイントは２つ。
１.最高でも9箇所の置き場所
…最高でも9箇所なんだからそれぞれに優位をどう評価するか？
２.縦3横3斜め2計8通りを走査すればいい
…8方向の評価。○がいくつあるかは判定できるだろ？

CPUに最低組み込むべき思考
全ての空きマスを走査し、
1.自分の王手があれば完成して終了。
2.敵が王手をかけていたらそこをふさぐ

さて、3目は”負けはしない”思考がある。さあどうする？

>>417
おいおい、間の抜けた事書くな

お、なんか楽しそうだなぁ

こういうのやったことないけど、俺も作って参戦してみよう　(ry

ageちまった・・・orz

スマソ

VBはトライアル版のようなものはないんですか？

5.0なら昔はダウンロードできた。
.Netなら今でもダウンロードできるだろうし。

CCEならまだ落とせない？

>>421
トライアル版と言う位置づけのものは無い。

過去に無償であったのはCCE(AcctiveXコントロールを作る専用の物)と
Embeded VisualBasic(WindowsCE用 VisualBasic)の2種類かな。
現在オープンβテスト中の、VB.NET Expressを使うと言うのも手。

>>422-424
VB.NET Expressを使ってみます
ありがとうございました

おいおい、VB6には試用版があったでしょ。
付録としてついている入門書が何冊かあったので、今でも手に入る可能性は高い。
VB6の本ってまだ流通してるからね。

「Visual Basic 6.0 日本語評価版」ってやつかな
ttp://bookweb.kinokuniya.co.jp/guest/cgi-bin/wshosea.cgi?W-NIPS=9973746902

VB6 SP6
Access2000です。

ADOの処理を書いています。
レコードセットをDataGridのDataSourceに渡しています。
DateGridでユーザーが任意のレコードを選択し、cmdDeleteボタンをクリックすると該当レコードを削除します。
削除するレコード数は不定です。（つまり、ユーザーが削除したいだけ削除できる）

Dim Withevents recTest as ADODB.Recordset
〜略〜
Private Sub cmdDelete_Cleck()
recTest.Delete
recTest.MoveNext’このままだと削除したレコードに参照が行ってるのでMoveNext
if recTest.EOF = True then recTest.MoveLast
End Sub

とこんな感じで記述してますが、MoveNextした段階で、MoveCompleteが３回も発生します。
MoveCompleteは一回発生してくれるだけでいいのですが・・・。

MoveCompleteイベントが初めて発生した段階で、引数adStatusにadStatusUnwantedEventを設定しようとも思ったのですが、
そうすると今度は、後に同じレコードセットでMoveNextしてもMoveCompleteイベントが発生してくれません。

何かよい回避方法はあるでしょうか。

○×祭りは終わってましたか(´･ω･`)

それってレコードセットで制御しててコマンドボタンで削除してるんでしょ？
だったらレコードセットを選択したKeyかなんぞをFindかフィルタかなんかでカレントに設定してDELETEメソドで消してやって・・・・
を繰り返した後にRefleshかけてやればきれいに動かないかな？
あんまVB6のDBGridは使ったことないんで勘違いだったらスマソ

すいません、上記に書きもれありました。
１回の作業で削除できるレコードは１レコードです。削除する時は１レコードづつ選択→削除です。

>>430
DeleteしたあとRefresh、試してみます。

VBで作ってるプログラムでhtmlを読んでname属性を拾いたい時に
name="[aaa]"みたいな感じで[]が入ってるものをそのまま書くと
[]の前に強制的にスペースを入れられ、しかも取得することができずエラーが出ます
同じフォームの他のname属性は取得できてるので[]が原因だと思うのですが
どう記載すればよいでしょうか？
ちなみにhtmlの方は自サイトではないのでいじることはできません

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

>>432
ダブルコーテーションは、２つ続けて書く。

""

>>433
えっとですね、こちらの勘違いだったらすみませんが
もしかすると質問を勘違いされたかもしれません

つまりname属性が[aaa]なのですがこれをVBのプログラム中に
記載したいのです　でも入力すると [aaa]とスペースが強制的に入ってしまい
それが原因でエラーが出るのです

つまり目的のフォームの名前がform、インプットのnameが[aaa]とすると

objIE.document.form.[aaa].Value = password.Text

このように入力したいのですが強制的にスペースが入りこうなります

objIE.document.form. [aaa].Value = password.Text

>>435
VB では DOM オブジェクトは直接は扱えないよ。

すみません、別のアプローチにて自力解決しました

なんで、ＶＢはVBAよりも遅いの？
というか、ＰＣ３８６よりもめちゃ遅い、理由はなに？

円周率を計算するプログラムを独自に組んで最初ＶＢＡで遣ってたけど
あまりに遅いので、ＶＢ２０００５βとかいうのがあったので、苦労して
移植しなおしました。しかし、遅過ぎです。何かを止めないといけないのではと
類推するのですが。

(´-`).｡ｏＯ（さすがに14歳は越えていないよね）

>>438
VB 2005 Express Edition Beta2 のことか？
それなら.NETだから遅いんだろ。

それからスレ違いなんで以後はVB.NETのスレで質問するように。

>>435 ん？ HTMLはこうなってるって事？
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML><HEAD><TITLE>test</TITLE></HEAD>
<BODY>
<FORM name="form">
<INPUT type="text" name="[aaa]">
</FORM>
</BODY></HTML>
コードで扱う場合は参照名付けを考えないとなぁ
先頭に[というかｗ　[ ]　自体どうよ？ formってのも名前ガチンコ危なげｗ

VB6でDHTML、DOMのオブジェクトモデルを扱うには
Microsoft HTML Object Library(mshtml.tlb)を参照設定する。
VBのFormにWebbrowser Contorolを使っていると仮定すると…

Option Explicit

Private Sub Form_Load()
Call ObjIE.Navigate2("test.htm")
End Sub

Private Sub ObjIE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim ObjDocument As MSHTML.HTMLDocument
Dim ObjFORM As MSHTML.HTMLFormElement
Dim ObjINPUT As MSHTML.HTMLInputElement

Set ObjDocument = ObjIE.Document
Set ObjFORM = ObjDocument.Forms("form")
Set ObjINPUT = ObjFORM.elements("[aaa]")
REM 参照例
ObjIE.Document.getElementsByName("form")(0).All("[aaa]").Value = "test"
End Sub

あ、自己解決したのか。バイバイｗ

プログラム板が荒れているため、IDを導入するか検討中です。
賛成の方も反対の方も、このスレで自分は賛成か反対かをお書きください。

プログラム技術板に強制ID制を導入すべきか否か
http://etc4.2ch.net/test/read.cgi/vote/1118144381/

理由などの記入は別に構いません。
<<賛成>>か<<反対>>かだけ御記入頂ければ結構です。
ちなみに、当たり前ですが運営の方にIPが見えているので、1日ごとにIDが変わるからといって多重投稿しないでください。

VBに限った話しではないのだが、
変数名（関数名や定数名やいろいろ）を英語で付けるのが
主流になったのは何故だが知っている人いる？

日本人なんだから、変数名くらい日本語使いたくないか？
別に半角ｶﾅの変数名でもいいと思うのだが・・・

>>444
変数名を日本語で付けるのが主流だった時期なんてあったか?
それに、関数名や変数名で使う英語で難しいものなんて少ないだろ。
ライブラリ類が英語なのに、自分の部分だけ日本語なんて違和感あって嫌。
趣味でやってるなら止めはせんが。

>>444
ﾓｼとかｶｹとか使いたい？

>>444
純国産コンパイラなんて数えるほどしかないので、
予期しないエラーが出る可能性がある。

VBAは日本語変数が多いけど。

>>445
N88日本語BASIC(86)

>>447
マイコン少年だったけど、88ベーシックで日本語変数なんて使わなかった。
ぴゅうたベーシックぐらいじゃないのか？日本語ネイティブ。

>>448
業務用ソフトではけっこう多かったよ。

まあ>444はひまわりでも使っとけってこった。

VBからC++に変数をポインターで渡して計算したものをVBにまた返すプログラムなんだけど
プログラムをvisual basic 6.0のGUI上で実行すると「オーバーフロー」っていわれてエラーがでる
プログラムをコンパイルしてexeを作り、exeを実行するとエラーがなにもでない
C++上でデバッグしてもエラーが出ない

こんなことありえるの？プログラムをさらしたいんだけど
長くてどの部分をさらせばいいのかﾜｶﾝﾈ('A`)

ごめん言葉が抜けてた
エラーが出るのはC++から帰ってきた後にC++で計算させた変数をmsgboxに出力させるとエラーがでます

>>451

○VB
・Declare文
・C++側を呼んでいる行
・エラーが出る msgbox の行
○C++
・関数のプロトタイプ

の４行ぐらい晒せるでしょ？

あるないでいったらある。
デバッカはあくまでVB6.exe上での実行で、実EXEの実行と若干異なる動作をする。
で、原因は多分だがメモリー操作ミスをどっかでやってるんだよ。

でも、普通多いのは逆パターンなような。
デバッカOK、実行どっかーん。

変数名が日本語でも問題ないだろーが！！
だったらコメント欄も英語で書きやがれよ

>>455
本気で言ってるなら、日曜プログラマーでいてくれ。
仕事でそういうことを言う奴いたら本当に痛い。

昔納品されたソースを読んでたら
sain とか pai とか ensyu とか書いてあった。
C言語なのに引数使わないで全部グローバル変数で値渡してるし…

>>455
プリフィクスはどうするんだよ？

まあ>455はひまわりでも使っとけってこった。

>>458
キハ クモハ

>>453-454
いろいろやってみたら宣言文は問題なしでした
C++のプログラムにミスがあるようです
ポインターをどこかでαβοοη..._〆(ﾟ▽ﾟ*)しているようです
これのバグ探すの・・・('A`)

バグ発見したよ
sqrtをマイナスの数で計算してた・・・
512回回るforループの最後らへんのループでそうなってたから気がつかなかった＿|￣|○
VBのmsgboxがsqrtでマイナスがでちゃったやつを参照してないのに止まるとはなかなか(・∀・)ｲｲ!!

>>451
楽しい奴だな。ガンガレ！

VBからIEを起動してページの移動をさせている時に
ある特定のページ(error.htmlとします)にたどり着いた時に
top.htmlに戻るという処理はどのようにすればよいのでしょうか？

>>455
昔はコメントも英語で書いていたよー。
いや、単に日本語を表示できない環境だっただけだが。

VB6 SP5です。
ハンドルからオブジェクトを得るにはどうしたらよいでしょう？

Form1のオブジェクトgroundのハンドルが111555Lだとして、
ground.show の代わりに
<111555>.show としたいのです。

ちょっと教えてください。

開発用パソコンの画面解像度は1280*1024にしているのですが、そこでデザイ
ン・開発したプログラムを、画面解像度が1024*768の動作用パソコン上で
動作させると、文字の大きさやボタン等コントロールの大きさが微妙に違い
ます。そのため、開発環境ではきっちりデザインしたつもりが、コマンドボ
タンから文字がはみ出て欠けたりします。まだ実験はしていませんが、もしか
すると画面解像度は同じでも画面サイズが違うパソコンで動作させると、デザ
インの崩れはないかもしれませんが文字の大きさが違うかもしれません。

というわけで、画面解像度や画面サイズが違うパソコンで動作させても、
開発時にデザインしたウィンドウの大きさや文字の大きさをそのまま保って
表示させるにはどのようにしたらよいのでしょうか。

>>467
それぞれのOSとDPI設定値は同じ？

>>466
ハンドルとは何で取得したハンドルの事ですか？
「ハンドル」と一口に言っても色々種類があるのでそれだけではアドバイスし様が在りません。

>>467
フォームのフォントプロパティウィンドウを開く→OKで閉じる→保存
これで.frmの内部でフォントが明示的に指定されたはず。
（解像度の違うPCでの動作確認はしていない）
前提としては開発環境のフォントと実行環境のフォントが一致している必要があるけど。

ScaleMode を vbTwips [ 1 - Twip ] から vbPixels [ 3 - ピクセル ] にする。

Resize イベントで配置を変更する場合は Left、Top、Width、Height ではなく、
ScaleLeft、Scale・・・ を基準にする。

考えつくのはこんなところかな？
実際に解像度の違うPCで動かす様な事がないので太鼓判は押せませんが。

>>469
ウィンドウハンドル、hWndプロパティの値です。

データベースのテーブルがすでにあるか調べる関数はありますか？
エラーをチェックしてやるしかないのでしょうか。

>>470
諦めてAPIを使え。
つ「ShowWindow」

>471
あるがｽﾚ違い(VB自体の関数にはない)
それ以前にDAOなのかADOなのかoo4oなのか、
どういうｱｸｾｽ方法かを書かないと誰も答えられん。

>>471、>>473
プログラムとかミドルウェアよりDBMSが何かが大事じゃないのか？
まあ、スレというか板違いだね、DBに行きなさい。

パネルやピクチャボックスに追加したテキストボックスコントロールを削除すると
なぜかアプリケーションが閉じられなくなってしまいます。
Closeメソッドは効かないのですがApplication.Exitならば終了できます。
何が原因で起きているのでしょうか？

>>475
そもそも、コントロールをどのような手段で動的に削除してるんでしょうか？
それと、閉じるのはフォームですよね、アプリを閉じるならEndステートメントでも何でもですよ。
ついでにVB6の話か？Applicationオブジェクトって？

>>476
すいません、.NETの話でした。
書き込むスレ間違えてしまいました。
スレ汚してすいません。

キーボードから整数を入力し、逆に並べて表示するプログラム、入力された
整数を並べじゃ得て最大値・最小値を表示するプログラムがわかりません。
おしえてください。おねがいします。

>>478
課題は自分で達成しなさいね。

Text1.Text = 整数 & " " Text1.Text
最大値 = Max(最大値,整数)
最小値 = Min(最小値,整数)
Text2.Text = 最大値
Text3.Text = 最小値

tabIndex=5のテキストボックスにカーソルをsetFocusであわせることって出来ますか？

For Each ctlObj In Form1.Controls
　　If ctlObj.TabIndex = 5 Then
　　　　ctlObj.SetFocus
　　　　Exit For
　　End If
Next

>>468
いえ、OSもいろいろだし、DPIもいろいろです。
できれば、動作用PCのそれらの違いを乗り越えて(無視して)、開発時の
デザイン通りに表示してくれればと思います。

(´-`).｡ｏＯ（TwipやPointで指定してもデザインが大幅に崩れるんだっけ？
　　　　　　　Dr.GUIが解説してた記事がMSDNにあったｷｶﾞｽ）

>>482
秘密主義者は勝手にやってくれ。

順位付けを教えてください

どなたかぁ〜!!!

なんか回答者が超能力を試されるｽﾚになってきたなw

ダメですか???

>>485
一番最初のものに一位、次に二位、その次に三位、・・・
って付けていきます。
こういうのはMSDNとかには載っていない大変高度な話ですが、
小学校の教科書ぐらいの難しい本にはたぶん載ってます。

そのうち前世で××の戦士だったひと連絡待ってます、
みたいなノリのレスだらけになったりしてw

VB6.0使用です。
数値がピラミッド型に並んでいるデータ構造があって、そこから数値を指定すると
２つ下階層の４つの数値が取得できるようなプログラムを作りたいと思っています
。数値の並びは１階層とばして２階層から次の値が開始するような形式です（下の
数値の数は4つになる）。
1を指定すると2,3,4,5が取得できて、3を指定すると10,11,12,13、9を指定すれば
34,35,36,37です。
この考え方で、どの数値が指定されても4つの値を取得できるような関数を作りた
いのですが、どうにもわかりませんでした。是非アドバイスお願いします。

ぐーぐる様で、データ構造　ツリー構造　VB　で検索してみる。

>>491
Public Function f(ByVal n As Integer) As Integer()
Dim r() As Integer
ReDim r(4)
r(0) = n * 4 - 2
r(1) = n * 4 - 1
r(2) = n * 4 + 0
r(3) = n * 4 + 1
f = r
End Function

Private Sub Form_Load()
Dim r() As Integer
r = f(1)
Debug.Print r(0)
Debug.Print r(1)
Debug.Print r(2)
Debug.Print r(3)
End Sub

>>493
ありがとうございました。無事に値を取得する関数ができました。
自分の頭の回転の悪さがなんとも、、、

ttp://vbnet-iku2.hp.infoseek.co.jp/cgi-bin/treecrsdx01/index.cgi?m=read&bnum=1495&num=1501

VB6でフレームやSSTabの中のコントロールを外に出したり、
逆に外のコントロールを中に入れたりするにはどうすれば良いのですか?
D&Dだと外に出そうとしても出せないし、中に入れようとしても位置的に重なるだけだし。

>>496
フォームデザイン時の話であれば、切り取り＆貼り付け

VB6で要素数が不定な三次元配列の内容をファイルに保存し、
起動時にそれを読み込みたいのですが、なにか良い方法は無いですか?
今は、たとえばhoge(3,1,2)という配列の場合tsvに区切り入れて
0-0-0　1-0-0　2-0-0　2-0-0
0-1-0　1-1-0　2-1-0　2-2-0
区切り
0-0-1　1-0-1　2-0-1　2-0-1
0-1-1　1-1-1　2-1-1　2-2-1
区切り
0-0-2　1-0-2　2-0-2　2-0-2
0-1-2　1-1-2　2-1-2　2-2-2
のようにちまちまと保存したり読み込んだりしてるのですが、
実際には要素数が多いのでかなり時間が掛かります。
とにかく高速に前回終了時の配列を再現したいのですが
良い方法をご存じの方、どうか教えてください。

>>498
そのままBinaryでPut&Get

>>499
もうしらばらくVB使ってないんで自信はないけど、多次元配列の場合は
バイナリモードだと書くときはよくても読み出すとき困る気がした。

バイナリモード使うなら配列を構造体で包んでやる必要があったと思う。

me.controls.addとかでtextBoxを追加していきたいのですが
addする際にデザイン時にしか設定できない値を変更することってできますか？
scrollbarsとかの

>>501
それはできなかった気がするけど、一つ雛形でテキストボックスを作っといて、
プロパティも設定して、それを複製するのはできたはず。

ActiveX コントロール作ってるんですけど、自コントロールにフォーカスが無いとキーアップ・キーダウンイベントが受け取れなくて困っています。
例えば、あるキーが押されたら、そのキーが押されたことが分かればＯＫなんですが。

>>503
用途は？

>>503
グローバルフック

>>499
回答ありがとうございます。
しかし500さんの言うように読み込みがうまくいきません。
構造体使うのは避けたいので、他になにか方法をご存じの方、
又は多次元配列をGetステートメントで読み込む方法を具体的に知ってる方
引き続き宜しく御願いします。

>>498
こんな風にすれば問題ないと思うのだが。

Dim r() As Integer
'ReDim r(a, b, c)
Public Function r_Save()
Open "C:\VB.dat" For Binary Access Write As #1
Put #1, , LBound(r, 1)
Put #1, , UBound(r, 1)
Put #1, , LBound(r, 2)
Put #1, , UBound(r, 2)
Put #1, , LBound(r, 3)
Put #1, , UBound(r, 3)
Put #1, , r
Close #1
End Function
Public Function r_Load()
Dim LB1 As Long, UB1 As Long
Dim LB2 As Long, UB2 As Long
Dim LB3 As Long, UB3 As Long
Open "C:\VB.dat" For Binary Access Read As #1
Get #1, , LB1
Get #1, , UB1
Get #1, , LB2
Get #1, , UB2
Get #1, , LB3
Get #1, , UB3
ReDim r(LB1 To UB1, LB2 To UB2, LB3 To UB3)
Get #1, , r
Close #1
End Function

>>506
うまく行かないと言うだけじゃ通じない。
構造体を避ける理由も明記するべき。

>>504
内緒。

>>505
ありがとう。できた。

おしえてくださいませ

1234@4567755@3425323@5235235
各数字の桁が不定な数値を＠記号区切りで持っているデータファイルがあります。
一番最後の＠記号意向の値を取得したいです。
よろしくお願いします。
＠記号も数が不定です。

instrrev

>>511
当方VBが５なのですが、認識されない関数でしょうか？

VB3.0と6.0にあるのは確認している。

>>512
ttp://www5b.biglobe.ne.jp/~yone-ken/VB/Func/vbTips009.txt

APIだったのですね。標準関数かと思い込んでおりました。
感謝いたします
こちらのAPIでいけそうです。ありがとうございました。

ああAPIではないですね。すみません。

>510
instrrev
split

お好きな方をどうぞ

>>517
>>512

VB5でSplitが無いっていうのが判った段階で、普通に関数作れば５分で終わるような･･･。

>518
>142

今回は余計というか、単なる無駄だったな

コンボボックスへの値の設定ってどうすればいいのですか?
Textプロパティだと取得は出来るけど設定はできないってエラーが出る。
コンボボックスに表示されてる値って、追加したアイテムの中から
インデックス番号でしか設定できないのですか?

>>522
スタイルを何にしてるの？
多分そこを理解してないからそういう疑問になるんだと思うんだけど。
そのあたりのヘルプ見て、コンボなのかドロップダウンなのか、貴方が望む形式を選択してからもう一度。

.ItemData

VB6のMSHFlexGridコントロールで、列や行に対して
文字割付(上寄せとか左寄せとか)や、修飾(文字色とか太字とか)を
設定するにはどうすればよいですか?

今は列や行に対してではなく、セルに対する設定をForで回してますが非効率的なので。
Spreadsheetコントロールならそういうことも出来るのですが、
MSHFlexGridコントロールを使いたいので、どうかご教授お願いします。

>>525
Spreadsheet使え

>526
よく読め

>>527
読んだ上で言ってるんだよ

m9(^Д^)ﾌﾟｷﾞｬー

既存のアプリケーションに手を加えずに、
ActiveXなどのコントロールをアドインして、
機能拡張する事は可能でしょうか？

アプリ自体にアドオンが考慮されていないとダメそうですが。

>>530
可能。

ヒント
Class、Implements。

VBのアドインもVBで作成することが可能だしな。

>>531
それは既存アプリがClass化されている事が前提で、
そのClassをインプリメントして作成する？ってこと

EXEの内部にファイルを埋め込むことってできるのでしょうか？

例えば単にWAVファイルを再生するソフトを作ったとして、
外にあるファイルを再生するのではなく、実行ファイルの内部に埋め込んだ
WAVを再生するようなことをしたいのですが・・・

出来るよ

>>533
サイズが小さければリソースとして埋め込める
でかければデータとして工夫すれば埋め込める
めんどくさい事すればEXEの後にくっつけて埋め込める

>>535
容量は大きいので、データとして工夫して埋め込む方法か、
EXEの後にくっつけて埋め込め方法はどうすればいいのでしょうか・・・？

自分の検索の仕方が悪いのか、「VB EXE ファイル 埋め込み」などで検索してるのですが、
全然関係のないページばっかりで、目的の方法が見つかりません・・・

>>536
PEフォーマットを調べLHAのような自己解凍ソフトのように
EXEの後にくっつけるか
ソースコードとしてbinaryの配列にconstでつっこむか
小分けにしてリソースとして登録するか(これは上限あったかな？)

>>537
有り難うございます。
PEフォーマットについては難しそうなので、
リソースとして登録する方法でやろうと思います。

>ソースコードとしてbinaryの配列にconstでつっこむか
これが個人的に詳しく聞きたいのですが・・・
でも、もうちょっと自分で調べて勉強してみます・・・

おおっ！！リソースとして登録する方法は、すんなりといきました！！
上限がなければこれで充分そうです。

これから大学でVBを必要とするのですが自主的に勉強って感じなんですよ
でまずどんな本を使って勉強すればいいですか？？

>>540
VB.NETじゃなくて6.0もしくはそれ以下なのか？
やる価値も無いし、本も手に入りづらいぞ

>>541
.NETの方がやる価値がなくないか？

>>542
くだらない冗談言わないでくれ。

だな。
未だにVB6以前使ってる奴 >>> 今からVB6始める奴 >>>壁>>> VB.NET使ってる奴
VB.NETなんてやるくらいなら他言語使えよって感じだ。

VB以外使えないやつ、を忘れてるぜブラザー？

未だにVB6以前使ってる奴 >>> 今からVB6始める奴 >>> VB以外使えないやつ >>>壁>>> VB.NET使ってる奴

そいつは使い物にならないので会社から去っていった。
忘れさせてくれ。

.netをやる価値ないとか言ってる奴、じゃあ次の自分のメイン技術を何にしようとしてるか言ってくれよ。
Windowsクライアント・サーバ両面において、.netは十分使えるし、シェアを考えた場合Windows専用ってのもありだ。

>>548
お前・・・

>>549
で？やっぱ批判だけで中身ないんだけ。全く具体的な反論ができない。

> じゃあ次の自分のメイン技術を何にしようとしてるか言ってくれよ。
> じゃあ次の自分のメイン技術を何にしようとしてるか言ってくれよ。
> じゃあ次の自分のメイン技術を何にしようとしてるか言ってくれよ。

なんだよ、単なる基地外か。
まあ、マイクロソフト製品を批判してればなんとなくかっこいいもんね。ｗ

VB.NETを新規に始めるなら、C#とかのほうがいいんじゃねーの？って話に見えるんだが違う？ｗ

なにこの可哀相な子。
きっと自分が使ってるものを批判されたからキレちゃったんだね。
マとして以前に人間としてレベルが低すぎてかなわない。

>>553
.netフレームワークでは別に言語選択それほどこだわらないけどね。
好みとしてはC#のほうがすきだけど。どっちでもできるからいいやって感じで。
で、話題にしてたのは.netフレームワークそのもののつもりだけど、まあVB.netスレだから言語限定に取られたか？

それに対抗しうるフレームワークって中々ないよね。
Javaはクライアントサイドが致命的にダメだし。

まぁ.netフレームワークそのものが糞だけどな。

>>556
まあとりあえず理由も示さずに、MS製品非難しとけばなんとなくかっこいいもんね。
反体制的だし、技術者みたいに見えるし。

>>553
もう頭に血が上ってそれどころじゃないようなかんじだな、彼は。

暑くなるとこういう熱いのが湧くのは仕方ないこと

で、具体的な代替は示せないわけだ。言語もフレームワークも。
まあ、基地外って言われたのは当ったんだろうね。
無意味な書き込み繰り返して。

>>549 >>551 >>554 >>556 >>558 >>559

.Net Frameworkは死滅する運命にありますからね。
もってあと数年かな？

一人だけ自分が基地外だってことに気付いてない奴が居る件

(´-`).｡ｏＯ（どんなに熱くなっても技術的な話は一切しないのな）

｢しない｣じゃなくて｢できない｣んでしょ。
周りを無意味な書き込みと罵る割には、
自分も無意味な書き込みばかり繰り返してる。

理由無くVBやM$批判する奴は結局大衆の真似してるだけだろ
みんなが糞って言ってるから使ったこと無くても糞と言う

どうでもいいけど、糞と黄って似てるよな。

OS XP　VB6.0SP5

OSがNT系のサービスはVBStationやらのサイトとかで見つかったけど
スタートアップ(msconfig)のソースまたはサンプルがググっても見つからない。
知っている人いたら教えてくださし

>>567
質問の内容がまったく理解不能なんだが、とりあえず理解できた部分だけでも答えてやろう。

msconfigのソースコードはMicrosoftとNDA契約を結ばないと公開してもらえないはず。
ググルだけ無駄。

WinXP + VB6.0 + MS ADO6.0 + MySQL4.0 + ODBC
adoのコントロール名が adoAlbum

普通に検索するようなプログラムを作ろうと、
以下のプログラムを書いてみたところ、
MySQLの方からSyntaxエラーが帰ってきました…

ちなみに、RecordSorceを初期値のまま全件表示はうまくいってます。
また、Debug.Printした結果を mysql> へコピペした場合は意図どおりに検索してくれます。

adoAlbum.RecordSource = "select * from albumList where artist_id=" & artistID & ";"
Debug.Print adoAlbum.RecordSource
adoAlbum.Refresh

adoコントロールのプロパティ。
レコードソース -> コマンドタイプを
「1 - adCmdText」 に変更したらうまくいきました。
お騒がせしました。

超初心者ですいません。VB6.0です。

フォーム上にある３つのTextを１つのデータとして
これらを配列を使ってsave.txtに保存したいのですが、
１つ目のデータは保存することが出来るのですが
２つ目のデータを保存すると１行目のデータが
上書きされてしまいます。
Ｃ言語のファイルポインタみたいなものがあれば良いのですが…
お願いします。

・追加モードで開く
・テキストを結合して書き込む

なんでC言語が出てくるんだ

>>572
アペンドモードでやったら解決しました。
簡単な問題だったのねorz
Ｃ言語は…
きにしないで下さいｗ

>>567
ソースもサンプルもないけど、参考にはなるかな。

Windows NT系OS起動時の、自動実行（レジストリ、Startupフォルダ）
http://tef-room.net/tips/startup.html

現在、NT4.0Serverで、VB6で作成したﾊﾞｯﾁAPLを稼動させてます。
このVB6で作成したﾊﾞｯﾁAPLを、Windows2003Serverで稼動させる場合、
Windows2003Server上でリコンパイルする必要があるのでしょうか？！。
動く動かないでいうと、そのままのExeで動くのですが、PCServerの
H/Wｽﾍﾟｯｸがあがってるにも関わらず、ﾊﾞｯﾁAPLのﾚｽﾎﾟﾝｽが遅くなって
しまっています。
これって、Windows2003Server上でリコンパイルすれば解決することで、
知ってる人にしてみれば、当たり前のことなのでしょうか？！？！？！。

>>575
動いてるなら動くんでしょ？
リコンパイルは基本的に不要。
バッチが何やってるかわからないのに、なぜ遅くなったか判ったらエスパーです。
デバックコードを埋め込んで遅延理由を探るのがプログラマの仕事じゃないのか？

すいません、、、プログラマとも呼ばれない類のもので。。。
単純に、同一のWindows2003Server上で、NT4.0上で作成したVB6のexeを実行
した場合と、そのソースをそのWindows2003Server上でVB6でリコンパイル
して実行した場合を比較すると、実行結果はともに正しいのですが、
リコンパイルしたexeのレスポンスが、単純にもってきたexeより、
２〜３倍よいのです。
コンパイルしたServerOS環境でレスポンスが異なるってことは、
ServerOSのシステムファイルやらによって、動くけど、効率の差
が発生するものなのかしら。。。？！、、と思っての質問です。
愚問なのでしょうが、アドバイスいただきたくお願いします。

>>577
・4.0と2003で作成されたEXEをバイナリで比べて違いがあるか
・コンパイルのオプション(最適化等)は同じか
・VB自体のバージョンとサービスパックは同じか

>・4.0と2003で作成されたEXEをバイナリで比べて違いがあるか
　exeのサイズを見ると、4.0上で作成したexeより、2003上で作成したexe
　のほうが、小さいです。
>・コンパイルのオプション(最適化等)は同じか
　4.0上でのコンパイルオプションについては、これから確認してみます。
　2003上でのコンパイルオプションは、V何も指定等していません。
　言い換えれば、VB6のデフォルト値のままとなります。
>・VB自体のバージョンとサービスパックは同じか
　VB自体のバージョンは、6.0で同じです。
　サービスパックについては、4.0上はこれから確認してみます。
　2003上では、適用していません。

いかがなものでしょう。。。。

>>577
君がプログラマでないんなら金だしてプログラマに頼みな。
って、とりあえず煽っておいとく。（先の質問の答えになってねーべ）

実は俺も経験がある。
俺の場合使ってる外部OCXのバージョンが違っていたというorz系の理由だったが。
とにかく何をやっているのかぐらい示してくれんと助言もできんと思うぞ。
あとコンパイルオプションでP-CODEにしてるってことはないか？

　アドバイスいただき、ありがとうございます。

> って、とりあえず煽っておいとく。（先の質問の答えになってねーべ）
　言われるとおりで、、、。

> とにかく何をやっているのかぐらい示してくれんと助言もできんと思うぞ。
　処理概要は、MS-SQLserverDBに、一括更新処理をしています。
　GUI等はつかっていません。
　ソースを見てみると、IF条件とSQLばかりのものです。
> あとコンパイルオプションでP-CODEにしてるってことはないか？
　2003上では何ら指定をしていないデフォルトでコンパイルしているの
　ですが、NT4.0上での作成時については確認してみないと不明です。
　早速確認してみます。
　ちなみに、、、P-CODEか否か？！、exeから確認する方法はあるので
　しょうか？！。
　

>　ちなみに、、、P-CODEか否か？！、exeから確認する方法はあるので
>　しょうか？！。
Dependency Walkerで見たら、
使用しているMSVBVM60.DLLのエクスポート関数の数に
違いが有ったので、これで判断できるのでは？

長さの異なる複数の文章を改行で区切って格納したテキストファイルを
シーケンシャルアクセス（For Input）で開いている状態で、
次に Line Input# で読み込むレコード位置が
ファイルの先頭から何バイト目かを知る方法はありますか？

次に読み込む位置=現在の位置だろ

>>583
＞長さの異なる複数の文章を改行で区切って格納したテキストファイル
つーことは、今から読み込む位置が
　[いくつ目のデータか] * [データのバイト数]
じゃ算出できないってことか。
先頭からいちいち加算すれば、って話でもないようだな。

loc()じゃだめ?

iniなどのファイルを作らず、レジストリも使わずに
設定を保存する方法って無いですか?
実行ファイルに毎回設定情報を埋め込むとか。

もし可能なら具体的な方法か、解説サイトの紹介をお願いします。

>>587
ウイルス対策ソフトが反応しそうな予感。
それに自分自身のファイルには書き込めないんじゃない？

なぜにそげなことする必要があるのでごわすか？

全く環境を汚さずに設定を保存するってのは基本的に無理でしょ。
DBとかに接続してるなら、そこに全部保存すればまあローカルは汚れないけど。

そもそもVB6 アプリ入れてる段階で、そういう環境変更を嫌う人の要件を満たしてないと思うけど。
VCなどの完全スタティックリンクなEXEか、.netのノータッチデプロイとか、Webアプリじゃないと。

実行ファイルに別のEXEをリソースとして埋め込んで、
自分自身のコピーに設定情報をバイナリの最後に埋め込んでから、
終了時にリソースからEXEを呼び出して元の実行ファイルのプロセスが終了したら
オリジナルを削除し、コピーをオリジナルのファイル名に戻す。

浅いな

ちょっと間違えた。

>終了時にリソースからEXEを呼び出して元の実行ファイルのプロセスが終了したら
>オリジナルを削除し、コピーをオリジナルのファイル名に戻す。

これちょっと考えたら無理だな。
終了時にリソースからEXEを適当な場所に復元して、shellで実行。
元の実行ファイルのプロセスが終了したら、オリジナルを削除し、
コピーをオリジナルのファイル名に戻す。

つまりはリソースに埋め込む実行ファイルを先に作る。
これは単純に元の実行ファイルのプロセスが終了しているのを確認し、
オリジナルを削除して、コピーを元に戻すだけの処理。
ファイル名などは引数で渡せばいいだけ。

元の実行ファイルにも、終了時に自分自身のコピーを作成し、
設定情報をバイナリの最後に埋め込む処理を追加。
その後にリソースからEXEファイルを適当な場所に復元してShellで実行。

もっといい方法あるなら俺にも教えてくれ。。。

>>592じゃないが、明らかに浅いよ。
それが言ってるように簡単に動的に出来れば、誰も（それこそウィルス作成者もｗ）苦労しないって。

これもよく考えたら、リソースから復元したEXEがゴミとして残るな・・・
俺全然だめぽ・・・

VB.NETから誘導されてきました。
VB6.0なんですが、コンボボックスのIMEモードを全角ひらがなにしておくと、
コンボボックスから次ぎのコントロールにフォーカスが移ってもIMEのモードが
そのまま引き継がれてしまいます。(次ぎのコントロールのIMEモードを半角にしていても)
これって仕様ですか？バグですか？
でもって解決策はないでしょうか？

>>597

Private Sub xxx_GotFocus()
xxx.IMEMode = vbIMEModeOff
End Sub

>>587
設定ファイルじゃなんでダメなんだろ。
解析されたくなかったら、それなりの対策すればいいんだし。

まあなんていうか、能力がない奴に限って
その乏しい能力をどうでもいいようなことに注ごうとするのはなんでだろうな。
自分探しの一種みたいなもんだろうか？

こんなことができるのは俺だけだ、って。
じっさいなそんな下らないことをするのはアンタだけだよ

このスレって回答できそうもない質問がくると
理由聞き出して罵倒する方向に持っていこうとする可哀相な奴が多いよな。
知ってるなら答える、知らないならスルーでいいのに
初心者ほど自分に答える義務があるとでも勘違いしているかのように全ての質問に喰っていく。

>>601
うむ、激しく同意。
>>600みたいな奴が典型的だな。

まあなんと言おうと馬鹿なものは馬鹿だし、
無意味なものは無意味だとしか言いようがない。

と、決めつけていれば
己の無知を認めないことで自尊心を守ることが出来る

というわけだなw

>>603
この世に意味のないことなんてないぞ？
あえて言えばお前が生まれてきたことぐらいか…

あるページのソースを取得し、その中から文字列を取得したいのですが、
変数の中にソースを代入するのと、テキストファイルを作ってそこにソースを書き出すのでは、どちらが効率が良いでしょうか？
また、どうすればできますか？

>>606
普通の使い方なら、変数の中に文字列を代入してからのほうが扱いやすい。（ていうかここは必ず通るでしょ）
ファイル経由で解析を行うライブラリがあって、それが強力なものであるならファイルで管理も考えるかな。

検索関係はRegex,InStr,InStrRevなんかでググルといい。
ファイル関連はFileSystemObjectなんかでググルといい。

「ページ」が何なのかによって回答も違ってくるよ。

>>583
遅ﾚｽだが。
シーケンシャルでのloc()は128で割った値を返すってあるね。
大きなテキストを扱うことを考えると、やっぱり地道に加算？

VBスクリプトで、非アクティブウィンドウでボタン連打の自動操作
しながら、アクティブウィンドウで普通の作業ってできますか？
難しくなければ、ご教授してください。お願いします。

無理

>>525も宜しく御願いします。
最初にも書きましたが、SpreadsheetではなくMSHFlexGridを使いたい為、質問に来ています。

>>611
FlexGridでは無理。
2行増えるだけだから、効率悪いとは思えないし。

効率悪いかどうかは使う奴が決めること

正直、そこにある鋸を使えば簡単に切断できるものを、わざわざカッターナイフで
切りたいって奴は頭がおかしいとしか思えない。

しかも、どうしてもカッター使いたいなら、それは頑張って手を動かすしかないわけだが、
その頑張って手を動かすのがイヤなんだと。
完全に狂ってる。

例えが間違ってるな。
言うならチェーンソーと鋸だ。
チェーンソーの方が効率がよいのは誰が見ても明らかだが、
でかくて重い、ガソリンやバッテリーなどの動力源が必要、扱いによっては死に至るケガをする場合もある
などのデメリットもある。

プログラムでも全面的にどちらかが劣ってるって場合もあるが、
大抵はどちらにも何らかのメリットがある場合が多い。
そういうのが読めない奴は知識だけあってもいい物は作れないだろうな。

自分が知らない質問されるのが気に入らないんでしょ
自分が知らないことは無駄なことだと思いこんで安心したいんだよ

>>616は物理的に不可能なことと能力的に出来ないことの区別がつかないと思われる。
いわく、「思ったことはかなえられることなり」

こういうのは言霊主義、あるいは念力主義という。

明らかに無理ならソース出せばいい
無理だと思うだけなら無視すればいい
知ってるなら答えればいい

何でこれだけのことが出来ないんだろう??

>>618は無意味な「それ」をせず別の行動を選択することと、「それ」が能力的に出来ないことの
区別がつかないと思われる。

「〜すればいい」ってそう思うのは君であって俺ではないのだが。
>>618のような症例を自己中心性、あるいはジャイアニズムという。

なんか必死な子がいる
板杉

VBって非アクティブ操作できないのかよ。マクロできたとしても
スクリプト書かなくても、フリーのマクロで事足りるじゃん。

必死で「必死だな」という、その滑稽で必死な自分棚上げぶりは自己中心性の派生物と思われる。
そもそも、必死だったらなんだというのだろう。

622

>>621
は？

VBスクリプトとVBの区別もつかないのかｗ
もう一回>>609読んでからしね。

>>607
返答ありがとうございます。

SamurizeというソフトのスクリプトをVBSで製作したいと思い最近VBを始めました。
インターネットのページの中から文字列を取得したいという意味です。

連レスすいません。
× VBS
○ VB

VB6でWinampのプラグインを使用して音楽を鳴らす方法って
どうやればいいんでしょうか？
Winamp向けのdllを使って音楽データを鳴らしたいんですけど、
ぐぐっても「それらしき」説明がされているサイトが見つかりません・・・

>>627
ちゃんと英語でググってる?

VB6で、二次元配列の一部を削除して詰める方法って無いでしょうか?
例えば
A, B, C
D, E, F
G, H, I
J, K, L
M, N, O
という3*5の要素を持つ配列の
A, B, C


J, K, L
M, N, O
の部分を削除して
A, B, C
J, K, L
M, N, O
という3*3要素の配列にする方法です。
今はひとつずつ書き換えてReDim Preserveをしてますが
もっと効率の良い方法をご存じでしたら教えてください。

>>629
その例だと「詰める」必要なんて本当にあるのか疑問な気もするけど、
どうしてもそんな風にしたのなら、一次元配列をラップして二次元配列みたいに
使えるクラスを作るのが一番簡単だと思う。

インデックスをあらわす引数を二つとるプロパティをデフォルトプロパティにするわけね。
「詰める」メソッド実装するのもそんなに難しくないでしょ？

Win32 API
mgsWaitforMultipleObjects にて、複数のプロセスを指定したいのですが、
引数である、hProcess が 配列というか、 Handle(long?)のポインタ指定になっています。
Countが1つの場合は単純にvbからhProcessをlongとして渡せばよいですが、
複数のハンドルをVBから呼び出しに使う事はできるのでしょうか?

>>627
Winamp SDK見たほうが早い希ｶﾞｽ
やるにしてもC/C++の方が相性良いと思う。
VBから直接使えるかは知らん(__stdcallじゃなけりゃそれだけでアウト）

Winamp VBで検索すると
一番初めに・・・。
vbAccelerator - Using WinAmp In Plugins From VB

>>631
そんな高度な質問はこのスレで回答はえられないよ

>>631
その引数をByRef Handles As Longとして
呼ぶときには引数をHandles(0)のように配列の先頭要素を指定するとできる。

>>634
残念だったなぁ。

ＶＢ４で変数のポインタを取得するにはどうすればいいでしょうか？

>>637
Declare Function VarPtr Lib "vb40032.dll" (variable As Any) As Long

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

>>598
解答ありがとうございます。でも、その方法は既にためしているのですが、
IMEmodeプロパティのないもの(チェックボックス等)でも、IMEモードがONになってしまって
そのせいでスペースキーを押してもチェックできなくなってしまうのです。
なんでだろう。

☆沖川君の憂鬱について☆
http://yasushikondo.no-ip.info/prog/all/non-job/okikawa/index.html
☆沖川君の憂鬱について☆感想文掲示板
http://yasushikondo.no-ip.info/prog/all/non-job/okikawa_bbs/aska.cgi

VB6.0でexcelのファイルを開き、そのファイルのsheet1を読み込ませてセルA1が空白
でなければテキストを吐き出させるようにしたいのですが、どうすれば良いのでしょうか？
またできればexcelのファイルは非表示で開きたいと思っています。

excelのVBAだと下記のような感じになるのですが、VB6.0だとどこを修正してやれば良い
のでしょうか？ちなみに下記ではexcelを非表示で開く事はできません

　　Dim TEST As String
Workbooks.Open Filename:="C:\test.xls"

TEST = ActiveWorkbook.Path & "\test.txt"
Worksheets("sheet1").Activate

Open TEST For Output As #1

If Range("A1").Value <> "" Then
Print #1, "A1"
End If

>>642
Set Application = CreateObject("Excel.Application")
hoge = Application.ExecuteExcel4Macro("'パス\[ブック名.xls]Sheet1'!R1C1")

Excelのブックを開かずSheet1のA1を取得する方法.
但し、注意点として空セルではNull("")ではなく 0 が返ってくる。
コレは仕様でExecuteExcel4Macroでは0と空の区別は出来ないらしい。
なのであとは返ってきた値が0じゃなかったらテキストに書き出せばよし。

でもこの程度ならvbsからやった方が良くないか?
FSO使えばテキスト書き出しも出来るし、セルの値の取得部分は上記をそのまま使える。

>>643
レス有難うございます。早速試してみます。
他にも幾つか行いたい事があって、フォームを使用してクリック一つで誰でもできる
ようにしたかったんです。それと折角あるvb6を私の周りでは現状では誰も使って
ないので勿体無いので取り敢えず使うかって感じです。

有難うございました

VB6で作ったプログラムの対応OSは何ですか。
9x系は95から対応していると思うのですが、NT系はどこからですか。
お願いします。

>>645
全て(NT3以降)

あとはあなたが各OSで動くコードを書けば良いだけ。

ありがとうございます

>>640
そういう場合は、IMEmodeプロパティのあるコントロールの LostForcusイベント でOFFにしてやれば良い。

質問です
VB6で(標準コントロールだけで) 作ったEXEを頒布したいのですが、
添付すべきランタイムは何でしょうか。

>>649
対象OSによって違う。

>>650
それはOSによっては最初から入っている、という意味ですか？

Msvbvm60.dllとVb6jp.dllだけあれば大丈夫ですか？

>>652
Yes

ありがとうございます

>>652
何をもって標準コントロールって言っているのかによる。
VB6.0に付属のコモンダイアログやリストビュー、WinSock等は別のDLLが必要。

VB6です。
日付、時間、件名を配列を使ってCSVファイルに保存しています。
このファイルをテキスト上にソートさせて読み込みたいのですが､
ソートの仕方がわかりません…。
教えてください。お願いします。

>>656
外部コマンドsort.exeを使用する。

>>657
ぐぐってみたんですが良く分かりませんでした…
良いサイトまたは別な方法があったらお願いします。

>>656
Excelで読み込んでソートすればいいじゃん。

・・・なんてね。
「テキスト上にソートさせて」ってのがよくわからないけど、
CSVをADOで読み込んでSortプロパティを使うといいと思うよ。

>>656
テキスト上ってテクストボックスのこと？
キーソートのコードがわからない？
それともソートのコード自体がわからない？

>>660
>テキスト上ってテクストボックスのこと？
そうです。

>キーソートのコードがわからない？
>それともソートのコード自体がわからない？
初心者なのでコード自体全くわからないです。

他の言語ならソート関数が用意されているから
バカでもソートできるのになぁｗ

>>661
ttp://www.ne.jp/asahi/protech/hiroaki/programing/vb.html#Q23

本当に申し訳ないのですが>>663のものをサブルーチンとして
用いた後はどうすればよいでしょうか…
お願いしますorz

> 初心者なので
ではなく、｢調べる気がないので｣だったわけか。
ま、あとはウンチク好きの先生達にでも任すかw

調べる気がないのではく調べても意味ﾜｶﾝﾈ

わからないところがあればまたそれを調べればいいのさ。

ある英単語の意味を知りたい→英和辞書で調べる
英和辞書の解説にわからない漢字があった→漢字辞書で調べる
漢字辞書の説明で意味の分からない語句があった→国語辞書で調べる

>>664
丸投げする気なら、学生バイトでも雇えばいい。

>>656
俺はいつもはろくに調べもせず甘ちゃんな質問をする奴を煽ってるけれども、
君の質問に関しては多分煽るレスをしている奴は単に答えられないだけだと思うから気にすることない。

手順としては、

(1) レコード（ = 一件のデータ = CSVの行）をあらわす構造体（またはクラス）を定義して、
(2) そのレコードのコレクションのクラスを作り、(3) そのコレクションのクラスに
レコードの各フィールドでソートするメソッド（関数）を書く。

こんな流れだと思う。
VBには日付や文字列の大小比較する関数があったはずだから、これらを利用して
クイックソートをするメソッドを書くのはそんなに難しくないと思う。
まあクイックソードのアルゴリズムを解説しているサイトを読んで半日考えれば
自分で書けるよ。

クラスがわからないなら無理にコレクションのクラスを作らずに、モジュールレベルで
レコードの構造体の配列とそれをソートする関数を書けばいい。

構造体（Vbだとユーザー定義型だっけか）がわからないとさすがにちょっと厳しい。

俺ならコレクションのクラスにソートを持たせずに
C言語のqsort見たいに汎用のソート関数を作るけどな。
関数の引数に比較関数を渡してソート。

といっても、VBは関数を引数にして呼び出せないから、
正確には、比較関数オブジェクトを渡すことになるけど。

難点はクラスモジュールのファイルがいっぱいになることか。

未だにクラスモジュールが使いこなせない・・・
覚えると便利なのは分かるんだが・・・

>>670
構造体の配列をソートするんだよ。単なる数値の配列のソートじゃないよ。
汎用化なんてできるか？多態もつかえないVBで。

仮に多態使えてもそんな使いやすい関数がかけるとは思えん。
だったら汎用化の意味なんてないでしょ。

>>671
他の言語をやってみるといい。Javaとか。
VBプログラムの腕も上がるぞ。

テキストファイルをデーターベースとして接続して、
SQL文でソートするってやり方もある。
ttp://support.microsoft.com/default.aspx?scid=kb;ja;408179
Set mcn = New ADODB.Connection
mcn.ConnectionString = _
"Provider=MSDASQL.1;" & _
"Extended Properties=""" & _
"DRIVER=" & _
"{Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & App.path & "\" & """"

mcn.Open
Set mrs = New ADODB.Recordset
mrs.CursorType = adOpenDynamic

SQL_STR = "Select * From " & "sort_zyunbi.csv" & " ORDER BY field28 ASC,field35 ASC,field02 ASC"

mrs.Open SQL_STR, mcn

Do Until mrs.EOF
FilOb2.writeline (mrs.Fields(0) & "," & mrs.Fields(1) & "," & mrs.Fields(2) _
& "," & mrs.Fields(3) & "," & mrs.Fields(4) & "," & mrs.Fields(5)

mrs.MoveNext
Loop

答えてくれた皆さんありがとうございます。
明日試してみたいと思います。

>>672
データの並び替えは難しいけど、並び替え済みのインデックスを作るというのなら簡単だと思う。
対象はデータがクラスのやつに限定されるけど。構造体はObject(IDispatch)のインターフェースを
持たないから駄目。

関数
Function Sort( Input As Collection , CompareFunc As ICompare ) As Collection

ICompareインターフェース
比較関数作る時は Implements ICompare なんてやる
Public Function Compare( Object1 As Object , Object2 As Object ) As Long

こんなやつ。

(´-`).｡ｏＯ（あー、わざわざコピー作ってやらなくてもいいか。まあ、どっちでもいいや）

MSFlexGridでやればソートは勝手にやってくれる。

おいらは、ソートはリストボックスにお願いしてる。
３万レコード超えそうな作業にはファイル作ってsortを呼び出してるかな。

誰か、お馬鹿な自分を助けてください…

>>680
これだけ回答もらっていて、何が問題なんだ？
試して何がだめだったかとか進めないと会話にならんぞ。

>>680
あきらめてExcel使ったら？
Excelのどこが不満なの？

VBの本でデジタルピアノを作るのが載っていて作ってみました。それで、自分が演奏したのを録音する機能を付けたいんですけど、できるでしょうか？　教えてくださいませ。

>>683
みんなエスパーでもマギーでもないんだから、どんな本読んで何つかってどのようにプログラムしたか。
そういう情報を出さないと誰もわかりませんよ。

>>684
すいません、初心者なもので^^;
使った本は「はじめてのvisual basic 6」という本です。
　http://www.gihyo.co.jp/books/syoseki-contents.php/4-7741-0733-6
API関数というものを使って作りました。　MIDI音源を使って音を鳴らすようにしてます。　

とりあえず、結果をMIDIファイルに保存するのはとても高度だと思うよ。
Cマガジンの2002/12とかにCだけどサンプルはある。

VBっぽく作るのであれば、イベントの発生順、タイミング自体をテキストファイルに書き込んで、それをなぞる方法かな？
今たぶん鍵盤とかをボタンで配置して、それぞれで音色をMIDIで再生してると思うけど。
そのボタンをおされた時分秒（それ以下の単位まで）をマクロのように記録して、それを再生するみたいに。

>>686
ありがとうございます。m(_ _)m　調べてみます。　

>>682
VBの勉強中なんじゃないの

>>671
MSDNライブラリのチュートリアルを読んで実際に試すだけで結構違うぞよ
Visual Basicの使用方法＞プログラミング ガイド＞Visual Basicを使ってできること＞オブジェクト
あたりとか。

Dim hoge As Collection
Set hoge = New Collection
hoge.Add "foo", "aaa"
hoge.Add "bar", "bbb"
hoge.Add "baz", "ccc"

という感じでコレクションを作った場合。
hoge(2)、hoge("bbb")で要素の"bar"を返せますが、
逆に指定したインデックス位置の添字を返すにはどうすれば良いのでしょうか?
つまり2を指定して"bbb"を返したいのですが。

Dictionary?ly?オブジェクトのKeysあたりで
取得できそうな希ｶﾞｽ

>>691
DictionaryオブジェクトのKeysは
｢Dictionary オブジェクト内のすべての既存キーを格納した配列を返します。｣
とのことで、目的のものとは違うようです。
他のメソッドも調べてみましたが目的を達成できそうなものはありませんでした。
というか、Collectionを使う方法でお願いします。

画像の一部をイメージコントロールに表示するにはどうすれば良いのでしょうか?
具体的に言うと500*500の画像があったとして、
その画像のY100,X200*Y200,X300の位置を
指定したイメージコントロールを表示するような方法です。
図で書くと　 ＿
□□□□□ ↑
□□■□□
□□□□□ 500
□□□□□
□□□□□ ↓
|←　500 →| ￣
の■部分が表示したい位置です。
｢〜で出来るかも｣とかではなく
具体的な方法の紹介をお願いします。

APIで”出来る”

コントロールを入れ子にして、全体表示のPictureから部分を窓のようにして切り出したように見せることも”出来る”

なんてレベルの低い回答。。。
まあ、質問もアレだけど

>>695
いや、ナチュラルになんとなくムカつく質問の仕方だし。ｗ
つうかさ、ぐーぐる様にAPI、画像、切り出し、でお伺いを立てろ。

ググらず質問する奴もアレだが、
回答はヘボいのに文句は一人前な疑似回答者もアレw

まあここで回答してるのは、VBしか使えない"マもどき"がほとんどだからね。
"出来るかも"や"出来そうな気がする"とか、"APIで出来る"とかの回答しかできないっしょ。
他言語のスレじゃ上級者がサッとコードで回答したりするけど、
ここじゃ丸投げするなとか言って追い返すのが精一杯。
そして漏れはそんな奴らをニヤニヤ見ながら、偶にちょっかい出したりすると。

そのちょっかいがかなり的はずれで笑える。

おまえら餅つけ
負け惜しみなんて言っても始まらないぞ

>>693
ImageコントロールではなくPictureBoxコントロールなら
PaintPictureで出来ると思いますよ。
.PaintPicture 元画像,0,0,100,100,200,100,100,100,vbSrcCopy
って感じで。どうしてもImageコントロールがいいってなら無視してくれ。


>>690もよろしくです。

VB6.0で時間になったらmp3ファイルを開くというプログラムを
作っているんですがmp3ファイルの開き方がわかりません。
ShellExecuteというのがキーワードっぽいんですが記述の仕方も
わからないののでいろいろと教えてください。

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long _
) As Long
Const SW_SHOW = 5
Const SW_SHOWNORMAL = 1
・
・
・
ShellExecute(vbNull, "open", "C:\hoge.mp3", vbNull, vbNull, SW_SHOW)

↑訂正
Ret = ShellExecute(...

>>690
ForEachで列挙して調べるしかないんでないの？

知らないなら黙ってればいいのに


と、黙ってられずに言ってしまう漏れ。

すみませんチェックボックスの使い方で教えていただきたいことがあるのですが
現在チェックボックスにチェックを入れるとメッセージボックス１の内容を
メッセージボックス２、３に適応させるようにしてるのですが
一度チェックを入れてからチェックをはずしたときにはその適応をはずす
（メッセージボックス２、３が何も入力されていない状態）ようにしたいのですが
コードがわかりません(/＿；)
どなたか教えていただけませんでしょうか　よろしくお願いします<(_ _)>

バージョン書き忘れました
バージョンは6.0です。
よろしくお願いします<(_ _)>

> メッセージボックス１
って何よ?
テキストボックス?ラベル?
普通メッセージボックスと言ったら
ポップアップダイアログを表示させるMsgBox関数のことなんだが。

>>709
言われたとおりです＞＜
テキストボックスでしたごめんなさい　<(_ _)>

.text = ""
でいいじゃん

チェックボックスの使い方を間違ってたみたいでどうしてもうまくいかないと今理解しました＾＾；
チェックされてるかされてないかをIf文で分岐させて
チェックされてるなら
Text2.Text = Text1.Text
Text3.Text = Text1.Text
チェックされていないなら
Text2.Text = ""
Text3.Text = ""
にすればいいんですね＾＾；

チェックされてるかされてないかの判別のコードの書き方勉強してきます＾＾；

常時入力モードのspreadにコンボボックスの列を設定してます
使用中、そのコンボボックスの列にカーソルがあるときに、
矢印キーの下↓や上↑を押して、上下の行に移動させたいのですが、
コンボ内のアイテムが上下するのみで、keydownイベントも動きません

矢印キーで上下の行移動を実現するには、どうしたらいいのでしょうか

>>713
無理

Private Sub vaSpread1_KeyDown(KeyCode As Integer, Shift As Integer)
　　Dim lngRow As Long
　　With vaSpread1
　　　　Select Case .ActiveCol
　　　　Case コンボボックスの列番号
　　　　　　Select Case KeyCode
　　　　　　Case vbKeyUp
　　　　　　　　lngRow = .ActiveRow - 1
　　　　　　　　If lngRow < 1 Then
　　　　　　　　　　lngRow = 1
　　　　　　　　End If
　　　　　　Case vbKeyDown
　　　　　　　　lngRow = .ActiveRow + 1
　　　　　　　　If lngRow > .MaxRows Then
　　　　　　　　　　lngRow = .MaxRows
　　　　　　　　End If
　　　　　　End Select
　　　　　　.Row = lngRow
　　　　　　.Col = .ActiveCol
　　　　　　.Action = ActionActiveCell
　　　　End Select
　　End With
End Sub

変数(配列)名を変数の値で指定する方法を教えてください。
コントロール名を
dim i as long
i = 1
controls("text" & i).text = "hoge"
といった感じで指定できるように、
VB6でも変数名を文字列や変数の値を使って指定できるということを
以前どこかで聞いたのですが、やり方がわかりません。
実際には一次元配列を連番で複数使いたいのです。例としてはこんなかんじで
dim hoge1(10) as string, hoge2(20) as string
dim i as long
i = 1
???("hoge" & i)(5) = "hoge"
i = 2
???("hoge" & i)(7) = "hogehoge"
処理の都合上、二次元配列や構造体配列では代用できない部分があるので。
ご存じの方は、どうかご教示願います。

そもそも考え方を間違っているような。
変数の場合は基本的に名前で呼べることはないはず。

二次元配列や構造体で代用できないなんてことはありえんし。

>717
それじゃ質問変えます。
以下の方法を二次元配列、構造体配列でやる方法を教えてください。

dim hoge1() as string, hoge2() as string, hoge3() as string
dim i as long
i = ?
[hoge&i] = split("a,b,c,d,e", ",")

i = ?
dim buf() as string
buf = filter([hoge&i], "huga")

dim temp as string, j as long
i = ?
j = ?
ReDim Preserve [hoge&i](2)
ReDim Preserve [hoge&j](3)
temp = join([hoge&i], "_") & "_" & join([hoge&j], "_")

※変数i,jの値は可変です。数が多いのでSelect Caseも実用出来ません。
※ループでの処理、一次元配列に書き出し後の処理は
　 要素数が多い場合非常に遅いので不可です。

>>717
責任もって答えてやれよ

>>718
悪いけど何やりたいか全く意味不明。

処理の内容を他人に伝達できないのは、表現能力の問題も他人の立場に立つ
想像力の欠如ももちろんあるが、それ以上に伝えようとしている本人が
その内容について把握・分析ができていないからと思われる。

そしてそのことは、プログラムが書けないことと恐らく無関係ではない。

>720
実際の処理をそのまま書いたのではなく、
処理の例として書いたので、意味不明で当然です。
これで何がやりたいかわかる方が変ですから。

やりたいことを文で書くと、
1 split関数で空配列への値の代入
2 フィルター関数による検索
3 ReDim Preserveによる内容を保持したままの要素数変更
4 join関数による配列内容の結合

を、二次元配列でいう第二要素番号にあたるものを変数で指定し
これらを二次元配列や構造体配列に対して行う方法を教えていただきたいです。
これらは基本的に一次元配列、又は配列の最終要素数にしか出来ないことですが
二次元配列や構造体で代用できないなんてことはあり得ないとのことなので。
構造体配列に対しては処理自体は掛けられますが、変数で位置を指定する方法がわかりません。

まだよく理解できないけどこういうことかな？
たぶんVB5では正しく動かない。

'====================
' Class1
'====================
Private mRows(6) As Variant

Private Sub Class_Initialize()
Dim Row() As String
Dim i As Integer

For i = 0 To UBound(mRows)
Row = Split("Sun Mon Tue Wed Thu Fri Sat", " ")
mRows(i) = Row
Next
End Sub

Public Property Let Row(Idx As Integer, StrArray() As String)
mRows(Idx) = StrArray
End Property

Public Property Get Row(Idx As Integer) As String()
Row = mRows(Idx)
End Property

'====================
' Form1
'====================
Private mHoge As New Class1

Private Sub Form_Load()
Dim i As Integer
Dim StrArray() As String

For i = 0 To 6
StrArray = mHoge.Row(i)
ReDim Preserve StrArray(i)
mHoge.Row(i) = StrArray

Dim str As String
str = Join(mHoge.Row(i))
Debug.Print (str)
Next
End Sub

>722
違います。
というかループまわせばどうにでもなるけど、
>718でも書いたようにパフォーマンスが久しく劣るようでは代用とは言えませんので。

例えば以下のようにhogeという二次元配列のようなものがあったとして、
　　0　　　1　　 2　　 3　　　4　　 5　　 6
7　Sun　Mon　Tue　Wed　Thu　Fri　Sat
8　日　　月　　火　　水　　木　　金　　土
9
joinなら、hoge(7)の要素数を3まで削り、join(hoge(7))で"Sun Mon Tue Wed"
hoge(8)の要素数を5まで削り、join(hoge(8))で"日 月 火 水 木 金"を返すような方法、
filterなら、filter(hoge(7), "n")で"Sun, Mon"という配列を、
filter(hoge(7), "n")で空配列を返す方法、
splitなら、hoge(9) = solip("10,20,30,40,50,60,70", ",")で
　　0　　　1　　 2　　 3　　　4　　 5　　 6
7　Sun　Mon　Tue　Wed　Thu　Fri　Sat
8　日　　月　　火　　水　　木　　金　　土
9　10　　20　　30　　40　　50　　60　　70
というように値を代入する方法です。

これらは一次元配列には簡単に出来る物ですが、同じことを二次元配列や構造体配列にやる方法がわかりません。
一応仕様上は二次元配列には出来ないことになってると思うのですが、
｢二次元配列や構造体で代用できないなんてことはあり得ない｣ならこれらの処理も可能なはずですが。

あくまでも｢代用｣なので、処理時間においては数十%程度の増加は許容しますが、
一次元配列に対してjoin、filter、splitを使って処理した場合に比べ、ループを回して処理した場合では
3〜5倍の処理時間が掛かるので、ループ処理ではとても代用なんて言えた代物ではありません。
因みに実際は7,8,9に当たる要素数は約4000、0,1,2,3,4,5,6に当たる要素数は数万〜数百万です。
それと後出しになってしまいましたがこちらはVB6SP5です。

>>722で書いたことはあなたの「やりたいこと」と違わないと思うよ。

ちゃんと分析して意味を把握してる？
「実現したい処理」と「>>722のコード」の両方に関して。

要は『「文字列配列」の配列』が欲しいんでしょ、簡単に言えば。
そういうデータ構造をVBで実現するヒントに>>722はなっているよ。

つうか１つ言っていいかな？
そこまで性能求める文字解析、ループならばVBは不向きだよ。

>>726
ろくにわかってない癖に偉そうにw
「文字解析、ループならばVBは不向き」って意味がわからないし、
だいいち今のスレの話題と話がかみ合ってない。

確かにメモリ操作（ポインタ）が使えないVBではループで文字列を連結していくような処理を書くと、
同じ処理をCで書いたときよりパフォーマンスが大幅に落ちるわけだが、
その理由がわかって書いているとは思えない。

>>727
御講釈ありがとう。
そういうこと書いたつもりなんだけど、思えないんじゃ言葉足りずだったね。

元質問者の場合、そこまで性能を求めるならば、そもそも高級言語を使うほうが間違いと思うわけで。
C使うにしてもMFCとか使わないで、普通にChar配列等でメモリーを直接的に見ていく感じで。

データ構造で詰められる性能と、そもそもの言語特性で詰められない部分で気になったので。

なんか微妙に険悪な流れになっているが >>718 よ、以下の構造体を使う方法じゃダメかい？

' (General) コード

Public Type THOGE
St() As String
End Type

' モジュール コード

' > dim hoge1() as string, hoge2() as string, hoge3() as string
Dim hoge(1 To 3) As THOGE
' もしくは
' Dim hoge() As THOGE
' ReDim hoge(1 To 3)

' > i = ?
' > [hoge&i] = split("a,b,c,d,e", ",")
hoge(i).St() = Split("a,b,c,d,e", ",")

' > i = ?
' > buf = filter([hoge&i], "huga")
buf = Filter(hoge(i).St(), "huga")

' > i = ?
' > j = ?
' > ReDim Preserve [hoge&i](2)
' > ReDim Preserve [hoge&j](3)
' > temp = join([hoge&i], "_") & "_" & join([hoge&j], "_")
ReDim Preserve hoge(i).St(2)
ReDim Preserve hoge(j).St(3)
temp = Join(hoge(i).St(), "_") & "_" & Join(hoge(j).St(), "_")

構造体じゃ個別の要素にアクセスしたいとき綺麗にかけないでしょ。
そんなんなら最初から裸のVariant型の配列を使うのと何も変わらないじゃん。

あ、いや俺の勘違いか。
そんなことはないね。

Exchange Serverにアクセスして、メールの送信時刻を
ピックアップするようなことはどのようにすれば
実現可能でしょうか。

>>732
MAPIだっけ？

>>733
どうもです。ちなみにこれってOutlookのローカルの送信済みアイテムではなく、
メールサーバ上の送信時刻も拾えますか？

ExchangeServerにはサーバのメール送信時刻なんてのがあるのか

>>735
あるんじゃねーの？なきゃメールサーバの管理者が
困るだろ。

>>736
拾いかた教えてください。

VB6.0でvs-view3.0を使用して印刷プログラムを作成しています。
印刷の表示プログラムの作成はスムーズにいったのですが、ページ枚数が大変多く
１０００枚を超えています。すると１０００枚目以降から表示がされなくなってし
まったのですが原因がよくわかりません。もしご存知の方がいましたら、是非教え
てください。

>738
まずﾃﾝｷｰNum Lock　　
メモ帳で
Altを押しながらテンキーで220(Alt離す)
同様に
Altを押しながらテンキーで219(Alt離す)
Altを押しながらテンキーで189(Alt離す)
Altを押しながらテンキーで33431(Alt離す)

>>738
リソース不足

>>739
めんどくさいから、さっさとオチ教えて。

Microsoftが提唱するVB6のコーディング規約はどこにあるでしょうか。

>>742
MSDN ライブラリ Visual Studio 6.0
＞Visual Basic ドキュメント
　＞Visual Basic の使用方法
　　＞プログラミングガイド
　　　＞Visual Basic のコーディング規則

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

配列に値を入れる方法っていくつかありますよね。

�@　Dim Temp As Variant
　 　Temp = Array("a", "b", "c")

�A Dim Temp() As String
　 　Temp = Split("a b c")

�B　Dim Temp() As String, Buf As Variant, i As Long
　 　Buf = Array("a", "b", "c")
　 　ReDim Temp(UBound(Buf))
　 　For i = 0 To UBound(Buf)
　 　　Temp(i) = Buf(i)
　 　Next i
　 　(Variant型配列をString型配列に書き出し)

で、これらの値を入れる処理の速度を比べると｢�A > �@ >>>>>>>>>> �B｣なんですが、
そのあとの処理では変数の型にVariantを使ってる�@が遅く
｢�A = �B >>> �@｣となります。それならどちらも速い�Aを使えばいいかとも思うのですが
Splitでの区切り文字には値に絶対に使われていないものを指定しなくてはならないので
汎用的ではありません。値には記号文字はもちろんのこと
改行やタブが含まれる場合もあるのでvbCrLfやvbTabも汎用的な区切りとして使えませんし、
通常の文字以外を区切りに指定すると極端に引数が長くなります。

今は配列値のセットは1回又は少数回で、そのあとの処理が多い場合は�B
値を何度もセットする場合は�@、�Aが使える条件なら�Aと使い分けてますが、
VB6で任意の型の空配列に1引数単位で一括して値を入れる方法、又は
Variant型配列を任意の型に変換する方法をご存じの方が居ましたら教えてください。
もちろんこのために上記�B以上の処理が必要になるようでは本末転倒ですが。

>>745
なにこの文章。
中学生でももっと読む人間の立場にたった、読みやすいまともな文章書くよ。
意味不明にも程があるでしょ。

まあこういう人はこうやって忠告しても、「荒らしのイチャモン」という風に
やり過ごすんだろうけど。

>>745
条件が曖昧。
通常テキストファイルには使われないような制御コードを使えば？

>>745
速さを望むならそれ以上は無理でしょう。
その使い分けが最善だと思います。

InputManPro6.0JのVB6での使用方法の質問はここでよかですか？
小数点以下２桁まで入力できるように設定したimNumberコントロールを使用し
ています。しかし実行すると１桁目を入力するとカーソルが小数点の位置まで
戻ってしまい、連続して２桁目まで入力することができずに困っています。
何か解決策はありますでしょうか？

>>749
まずはユーザーサポートへどうぞ。

VB6.0にて
txtファイルなどの最終更新日を書き換えるプログラムを組むことは可能ですか？
ファイルの最終更新日だけをさくっと書き換え可能なプログラムが欲しくて
自分で作成してみようと思っているのですが・・・

>>751
API使わないとダメだったような。
かなり面倒。

>>752
かなりめんどくさいのですか＾＾；

VBはじめたばかりの自分には敷居が高そうだな・・・
色々調べながら格闘してみます＞＜

>>753
ググッったら一発でサンプル見つかったけど。。
10秒もかからなかったよマジで。
http://www31.ocn.ne.jp/~heropa/vbdefts.htm

タイムスタンプを書き換える部分のソース見てみたけど、
本当にかなり複雑だねこりゃ。

>>753
ググッったら一発でサンプル見つかったけど。。
10秒もかからなかったよマジで。
http://www31.ocn.ne.jp/~heropa/vbdefts.htm

タイムスタンプを書き換える部分のソース見てみたけど、
本当にかなり複雑だねこりゃ。

>>753
ググッったら一発でサンプル見つかったけど。。
10秒もかからなかったよマジで。
http://www31.ocn.ne.jp/~heropa/vbdefts.htm

タイムスタンプを書き換える部分のソース見てみたけど、
本当にかなり複雑だねこりゃ。

>>753
ググッったら一発でサンプル見つかったけど。。
10秒もかからなかったよマジで。
http://www31.ocn.ne.jp/~heropa/vbdefts.htm

タイムスタンプを書き換える部分のソース見てみたけど、
本当にかなり複雑だねこりゃ。

>>753
ググッったら一発でサンプル見つかったけど。。
10秒もかからなかったよマジで。
http://www31.ocn.ne.jp/~heropa/vbdefts.htm

タイムスタンプを書き換える部分のソース見てみたけど、
本当にかなり複雑だねこりゃ。

>>753
ググッったら一発でサンプル見つかったけど。。
10秒もかからなかったよマジで。
http://www31.ocn.ne.jp/~heropa/vbdefts.htm

タイムスタンプを書き換える部分のソース見てみたけど、
本当にかなり複雑だねこりゃ。

イヤミったらしい奴だ

連投申し訳ない。。なんか厨房のやる嫌味みたいだけどそんな意図はないよ。
サーバが調子わるかったみたいだね。

昨夜はPC8鯖が不調で、書き込み遅延が約10分。

簡単なのがあった。でも、C#やVB.NETだと1行で出来るのか。
ttp://jeanne.wankuma.com/tips/file/09-settimestamp.html

コンボコントロールの全アイテムを、
速く切り替える方法はないでしょうか？

アイテムは全部で５０００件くらい。
しかし別のコントロールでアイテム一覧を切り替えたいのです。

具体的には、５０００件のうち、Text1.textプロパティの値(文字列)を含むコンボアイテムのみにしたいんですが…。

.Clearの後、５０００件をループしつつInstrで判定、
合致したら.AddItem などとしていたら日が暮れてしまいます…

>>764
とりあえずInstr関数なんか使ってないでFilter関数使え

何がやりたいのか読み取れない俺がいる。

元データが５０００件あって、なんかの条件で切り替えたいってことか？
それともコンボに５０００件セットするの？

前者ならそんなに時間かからないべ。何件だかしらんが。

後者なら、そんな件数突っ込むのがいけない。
選ぶ側の身になれ。

ありがとうございます。
５０００件の固まりＡ, Ｂ, Ｃ…の入れ替えではなく、
５０００件中の、いわゆる絞り込み処理をやりたかったのです。
表現が悪くてすみませんでした。

>>768
Addするときに Enabled は止めてある？

5000件程度でそんなに時間かかる？
コンボじゃ再描画はないと思うからまあそこは気にしないとして。

Addが遅いのか、文字検索が遅いのかぐらい切り分けてみれば？
（Addをコメントアウトすれば文字検索のみの時間がわかるから）

通常使うプリンタを変更したいのですが
上手く出来ないのでおしえてください

Set objPrinter = CreateObject("WScript.Network")
objPrinter.SetDefaultPrinter "プリンタ名称"
と処理を行うと通常使うプリンタが変更されるのですが
VBの暗黙オブジェクトであるPrinterは変更前のままとなっています
変更を反映させてやるにはどうすればよいのでしょうか？
ご教授願います

VB6で変数hogeの値が、A,C,F,J,O,Uのどれかの場合に実行という条件分岐を作る場合、

If hoge = "A" Or hoge = "C" Or hoge = "F" Or hoge = "J" Or hoge = "O" Or hoge = "U" Then 処理

Select Case hoge
　Case "A", "C", F"", "J", "O", "U"
　　処理
End Select

等の方法がありますが、IFでそのまま等価式の論理和を条件にすると
1行が極端に長くなるし、書くのも面倒。
逆にSelect Caseだと分岐先は1つなのに4行のコードが必要になってしまう。
行継続や：は知ってますがIfやSelect Caseではあまり使いたくないし。

こういう場合Ifで(正規表現を使わず)もっと手軽に書く方法はありませんか?
因みに実際の条件は上記例のように1文字ではないのでLikeは使えません。

IfやSelect Caseで処理できない訳ではないし、正規表現の使い方も知ってるので
それほど困ってるわけではありませんが、何か良い方法があるなら知りたいのでよろしくお願いします。

言語仕様レベルでは無いと思う。
コードメンテナンス性の向上を考えるならば、その条件式だけで関数化して隠蔽する。
その中はIFでやろうが、Selecｔでやろうが隠蔽してあるから、呼び出し側は綺麗に見える。

>>771
>因みに実際の条件は上記例のように1文字ではないのでLikeは使えません。
使えるよ要確認。
ちなみに正規表現を避ける理由ってなにかあるんですか？

> このスレって回答できそうもない質問がくると
> 理由聞き出して罵倒する方向に持っていこうとする可哀相な奴が多いよな。
> 知ってるなら答える、知らないならスルーでいいのに
> 初心者ほど自分に答える義務があるとでも勘違いしているかのように全ての質問に喰っていく。

幼稚なアホの子をいちいち相手すんなよ、頼むから。。

ゴメン．．．

byte型の連結で一番楽な方法は？（A=B&C)
やっぱ回したりString型に一度変換しなきゃダメなんですかねぇ・・・

>>778
バイトを文字として扱ってるか、１バイト数値として扱ってるかで違うし。
連結ってことは文字として認識ですよね。
Chrで文字変換して連結でしょうね、やっぱり。

そーですかorz
すんごい過去ログも見てみたけど、
１．chrかcstrで変換して結合
２．配列ループで回してケツに結合。
しか無かったですからねぇ。CopyMemoryも複写だし。残念。。。
thxえにうえい ﾉｼ

もしそのByte型が配列なら、
StrConv(配列名, vbUnicode)で行けるんだけども…
各個独立した変数なら南無。

ん？全然って訳じゃないんだけど、StrConvは関係ないんじゃ？
>>778 混乱招くから簡単なソース書いてよ

WinXP & VB6.0 & Winsockコントロール 使って簡易HTTPサーバーを作ろうとしてます。
DataArrival()イベントで受信データを受けるのはいいんですが、
データが全部揃ったかどうか？ってどうやって判断したらいいのでしょうか・・・
HTTP/1.0です。

簡単なの作ってみますた

Private Sub Command1_Click()
Dim tgA() As Byte
Dim tgB() As Byte
Dim tgC() As Byte

tgA = ChrB(&HB1) & ChrB(&HB2)
tgB = ChrB(&HB3) & ChrB(&HB4)

'ここでtgC()にA+Bでコピーしたいつーかまんこ

Debug.Print StrConv(tgC, vbUnicode)'一応StrConv使ってみた

End Sub

こんな感じで・・・

tgC = CStr(tgA) & CStr(tgB)

じゃダメ？"ｱｲｳｴ"って帰ってくるけど・・。
あ、CStrは書いてるか・・・・。byte型のまま操作？

>>783 です
というのもWinsockコンとロールを使ったサンプルを見ると、
DataArrival イベントが発生した時点で、
全てのデータが揃っている前提で組まれているものばかりだからです。
（GetData を 1回行うのみ）

それでいいのであればいいのですが・・・

試してみたの？
あと、ＨＴＴＰ 入門 でぐぐれば、ＨＴＴＰプロトコル入門がすぐ見つかるから、
心配であれば１バイト読みしてヘッダを読み込んでから、バイト数見て後を読んでいけば？

Winsockコントロール自体は、HTTPの全ての読み込みなんて意識しないと思いますよ。
レイヤーとしてHTTPのほうが上位だから。

>>787
返信ありがとうございます。

ひとまず、テストでは1発のGetDataで全部読んでくれるので問題はないのですが、
ネットワークにトラフィックかかったらどうなんだろ？とか心配になりまして。

VBで立ち上げたサーバにtelnetで繋いで手打ちすると、
1文字打つ毎に DataArrival イベントが発生しますので、
なんらかの対策は打つべきかとは思うのですが…。

アドバイス通り、ヘッダの区切りとか、Content-Lengthとか意識してみようかと思います。

>>771
Dim ObjPrinter As Printer
For Each ObjPrinter In Printers
If ObjPrinter.DeviceName = "プリンタ名称" Then
Set Printer = ObjPrinter
Exit For
End If
Next

>>788
ソケット通信自体、上位レイヤーであるHTTPであることを認識してるわけじゃない。
あくまで、なんかTCP/IPで通信してるデータが来たことを伝えてるだけ。
中のHTTP電文が完結してるなんて意識してないですよ。

WinsockコントロールのDataArrivalイベントの説明を見ても、データの完了なんて一言も無い。
読む限りでは受信して溜まったデータ長が０から１になったときに発生すると言ってるよね。

HTTPはデータ伝送が完了したらコネクションを半分切る（shutdown）。
それ検出すればいいっしょ。

Keep Aliveできないな

>>778
つーかまんこﾜﾛｽｗｗｗｗｗｗｗｗｗｗｗｗ

フォームがフォーカスを失った時と
フォーカスを得た時に処理を実行したいのですが、どうすれば良いですか?

Private Sub Form_LostFocus()
Private Sub Form_GotFocus()
Private Sub Form_Activate()

ではそれぞれ1回しか処理されませんでした。
コントロールのLostFocus、GotFocusイベントでは
フォーカスを失った時と得た時に毎回イベントが実行されるんですが、
APIを使わず、Formでもそれと同じような処理をさせるにはどうすれば良いでしょうか?

>>794
？

>>794
フォーム内のコントロールのフォーカス遷移ごとに、フォームでイベントが欲しいのか？
複数のフォームがそれぞれフォーカスを得たときにイベントがほしいのか？

後者ならば普通にイベント発生する。

おそらくフォーカスの移動ではなく
アプリがアクティブになったときと非アクティブになったときとで
処理を行いたいんじゃないかと

すみません。
797さんの言うとおり、アプリ内でのフォーカスの移動ではなく
Windows内で他のアプリにフォーカスが移ったとき(他のアプリがアクティブになったとき)と、
逆に戻ってきたときに処理を実行したいのです。

CallWindowProc、SetWindowLongを使えば出来ますが、
APIを使わずに実現する方法をご存じの方が居ましたら教えてください。

FormのBorderStyleを
｢4 固定ツールウィンドウ｣にした場合、
ScaleHeightを0にする方法がわかりません。
Form1.Height = Form1.Height - Form1.ScaleHeight
としてもScaleHeightが0にならないんですが、どうすれば0に出来ますか?

>>798
そんなの簡単にできるだろ......と思って調べてみたんですが、
どうもVBネイティブの機能では不可能っぽいですね。
このかゆい所に手が届かない感じがVBテイストか。。。

言いたい事はそれだけ？
じゃーね。さよなら。

VB6 のPrint命令を使って
図を作成しています
DrawWidthに値を設定し線の太さをきめているのですが
プリンタよって
ことなる太さで出力されます
具体的には
PDFプリンタとレーザープリンタです
これは
プリンタ側のせっていなのでしょうか？

>>802
何のせいといえばプリンタのせい。
Windows上の論理単位を物理単位に出すときの誤差。

>>802
質問する前にMSDNのPrintメソッドの項とDrawWidthの項は読んだ？
読んでまだそういう疑問が湧くなら頭が悪いし、読まずに質問してるのならただの馬鹿だ。

（VB6.0 DBはAccessでMDB接続です）
初めまして。プログラム初心者です。
今VB6.0でお小遣い帳のようなものを作成しているのですがその中でSPREAD（オリエント社）を使用しております。
そのSPREADにDBに保存してあるデータを表示するとデータ分（3件なら3行）しか表示されずそれ以降行を増やすことができません。つまりDBのデータしか表示できず画面にデータを追加できない状態なのですがどうすればよいでしょうか？

>>805
ヘルプの行と列の挿入見れ。

すいません…ヘルプを見てもできなかったから相談してみたのですが…。

VB6で、80000ぐらいのファイルを外付けのＨＤにコピーする
プログラムを作ったんだけど、WinMEのときは１時間ぐらいで
終わってたのが、WinXPでは倍の２時間ぐらいかかるんです。
検索しながらファイルをコピーしてるんですが、
SHFileOperationでもCopyFileを使っても変わらずで
なんでMEとXPで速度が変わったか教えてください。

>>808
釣りの匂いがプンプンするんですが。。

VB初心者でFTPのこともよく分かてないんで質問させてください。
inetを使ってサーバーにあるファイルをダウロードするのにGETを使うのはわかるのですが、
ディレクトリごとダウンロードするにはどうしたらいいんでしょうか

すいません、
別の方法でなんとか目的の処理をするようにしました

VB 6.0 SP6

DataGridにチェックボックスを表示させたいのですが、
どうすれば出来ますか？

>>812
ttp://homepage1.nifty.com/MADIA/vb/vb_bbs2/200402_04020017.html

>>774
> 使えるよ要確認。
どうやるんですか?
Like "[東京,横浜,千葉]*"
みたいな方法を紹介してるところもあったけど、
これは｢東京〜｣｢横浜〜｣｢千葉〜｣にマッチするのではなく
｢東〜｣｢京〜｣｢横〜｣｢浜〜｣｢千〜｣｢葉〜｣｢,〜｣にマッチしてしまいます。

MSDNやVBAヘルプのLikeの項目を見ても、複数の単語(2文字以上)のみに
マッチさせる方法は載ってませんでした。
例として"abc"、"def"、"ghi"の3つのみにマッチするLike演算式を教えてください。

>>814
Likeよか正規表現げググッたほうがいいね。
ていうかググらなかったんだね。
[]は文字クラス定義してんだから1文字単位でマッチするの当たり前だよ。

"東京横浜" Like "*東京*" 'True
"東京横浜" Like "*東浜*" 'False
"東京横浜" Like "*東*浜*" 'True
"東京横浜" Like "横浜東京" 'False

>>815
名前欄にレス番入れなかった自分も悪いのですが。
>>772でも書いたとおり正規表現を使う方法は知っています。
[]で囲った場合の例についても、知ってるからこそ
｢こういう方法を紹介してるサイトもあるけど、これでは出来ませんよ｣という意味で書きました。
正規表現を避けたい理由については、Likeでの演算式を教えて貰う上で
必要な情報ではないと思うので明言しませんが、
>>774で>>772(レス番ひとつズレてますが)の条件に対してLikeが使えるとのことなので
その方法をお伺いしたいのですが。

774さん、よろしく御願いします。

すみません。
Acrobat6.0をインストールしたら使える
Adobe Acrobat 6.0 Type Library
のAPIドキュメントみたいなのって、どこで拾えますか？
ヘルプには載ってないみたいだし、オブジェクトブラウザじゃいまいち意味が
よくわからないから、ちゃんとした仕様書が読みたいんですが…。
アドビのサイト探してもよくわからんです＞＜