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

ここは 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.NETの話題はできるだけひかえる。
七．質問は第三者にもわかりやすいよう簡潔かつ具体的に。

前スレ Part42 http://pc8.2ch.net/test/read.cgi/tech/1116924129/

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


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

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質問箱 Build34
http://pc8.2ch.net/test/read.cgi/tech/1122723009/

○過去ログ 1〜20
　　Part 1 http://piza2.2ch.net/tech/kako/968/968328471.html
　　Part 2 http://piza2.2ch.net/tech/kako/990/990793224.html
　　Part 3 http://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
　　Part 4 http://pc.2ch.net/tech/kako/1006/10069/1006922992.html
　　Part 5 http://pc.2ch.net/tech/kako/1010/10106/1010624646.html
　　Part 6 http://pc.2ch.net/tech/kako/1013/10138/1013844542.html
　　Part 7 http://pc.2ch.net/tech/kako/1015/10158/1015836357.html
　　Part 8 http://pc.2ch.net/tech/kako/1018/10187/1018794901.html
　　Part 9 http://pc.2ch.net/tech/kako/1020/10208/1020830472.html
　　Part10 http://pc.2ch.net/tech/kako/1022/10221/1022127528.html
　　Part11 http://pc.2ch.net/tech/kako/1024/10243/1024380249.html
　　Part12 http://pc3.2ch.net/tech/kako/1026/10266/1026642565.html
　　Part13 http://pc3.2ch.net/tech/kako/1029/10292/1029241786.html
　　Part14 http://pc3.2ch.net/tech/kako/1030/10309/1030947162.html
　　Part15 http://pc3.2ch.net/tech/kako/1032/10327/1032706491.html
　　Part16 http://pc3.2ch.net/tech/kako/1034/10343/1034302532.html
　　Part17 http://pc3.2ch.net/tech/kako/1036/10361/1036154952.html
　　Part18 http://pc3.2ch.net/tech/kako/1038/10381/1038103769.html
　　Part19 http://pc3.2ch.net/tech/kako/1039/10398/1039859691.html
　　Part20 http://pc2.2ch.net/tech/kako/1041/10418/1041879465.html

○過去ログ 21〜42
　　Part21 http://pc2.2ch.net/tech/kako/1044/10440/1044028945.html
　　Part22 http://pc2.2ch.net/tech/kako/1046/10463/1046354784.html
　　Part23 http://pc2.2ch.net/tech/kako/1047/10477/1047743187.html
　　Part24 http://pc2.2ch.net/tech/kako/1050/10501/1050151126.html
　　Part25 http://pc2.2ch.net/tech/kako/1052/10526/1052627913.html
　　Part26 http://pc2.2ch.net/tech/kako/1055/10551/1055145106.html
　　Part27 http://pc2.2ch.net/tech/kako/1058/10586/1058674927.html
　　Part28 http://pc2.2ch.net/tech/kako/1061/10612/1061296197.html
　　Part29 http://pc2.2ch.net/tech/kako/1065/10654/1065446334.html
　　Part30 http://pc2.2ch.net/tech/kako/1069/10691/1069160036.html
　　Part31 http://pc2.2ch.net/tech/kako/1073/10737/1073732636.html
　　Part33 http://pc5.2ch.net/tech/kako/1077/10772/1077216109.html
　　Part33 http://pc5.2ch.net/tech/kako/1080/10806/1080606445.html
　　Part34 http://pc5.2ch.net/tech/kako/1084/10845/1084544243.html
　　Part35 http://pc5.2ch.net/tech/kako/1087/10875/1087519251.html
　　Part36 http://pc5.2ch.net/tech/kako/1090/10902/1090286450.html
　　Part37 http://pc5.2ch.net/tech/kako/1092/10929/1092906058.html
　　Part38 http://pc5.2ch.net/tech/kako/1095/10956/1095673000.html
　　Part39 http://pc5.2ch.net/tech/kako/1099/10997/1099737063.html
　　Part39 http://pc5.2ch.net/tech/kako/1103/11030/1103026199.html
　　Part40 http://pc8.2ch.net/tech/kako/1106/11067/1106748775.html
　　Part41 http://pc8.2ch.net/tech/kako/1112/11124/1112414085.html
　　Part42 http://pc8.2ch.net/test/read.cgi/tech/1116924129/

○過去ログ 43〜65
　　Part43 http://pc2.2ch.net/tech/kako/1044/10440/1044028945.html
　　Part44 http://pc2.2ch.net/tech/kako/1046/10463/1046354784.html
　　Part45 http://pc2.2ch.net/tech/kako/1047/10477/1047743187.html
　　Part46 http://pc2.2ch.net/tech/kako/1050/10501/1050151126.html
　　Part47 http://pc2.2ch.net/tech/kako/1052/10526/1052627913.html
　　Part48 http://pc2.2ch.net/tech/kako/1055/10551/1055145106.html
　　Part49 http://pc2.2ch.net/tech/kako/1058/10586/1058674927.html
　　Part50 http://pc2.2ch.net/tech/kako/1061/10612/1061296197.html
　　Part51 http://pc2.2ch.net/tech/kako/1065/10654/1065446334.html
　　Part52 http://pc2.2ch.net/tech/kako/1069/10691/1069160036.html
　　Part53 http://pc2.2ch.net/tech/kako/1073/10737/1073732636.html
　　Part54 http://pc5.2ch.net/tech/kako/1077/10772/1077216109.html
　　Part55 http://pc5.2ch.net/tech/kako/1080/10806/1080606445.html
　　Parｔ56 http://pc5.2ch.net/tech/kako/1084/10845/1084544243.html
　　Part57 ttp://pc5.2ch.net/tech/kako/1087/10875/1087519251.html
　　Part58 ttp://pc5.2ch.net/tech/kako/1090/10902/1090286450.html
　　Part59 ttp://pc5.2ch.net/tech/kako/1092/10929/1092906058.html
　　Part60 ttp://pc5.2ch.net/tech/kako/1095/10956/1095673000.html
　　Part61 ttp://pc5.2ch.net/tech/kako/1099/10997/1099737063.html
　　Part62 ttp://pc5.2ch.net/tech/kako/1103/11030/1103026199.html
　　Part63 ttp://pc8.2ch.net/tech/kako/1106/11067/1106748775.html
　　Part64 ttp://pc8.2ch.net/tech/kako/1112/11124/1112414085.html

Win2000 SP4 + VB6.0 SP6です。

デスクトップ右クリックメニューの「等間隔に整列」を
ロジックで実現する方法を教えてください。
よろしくお願いいたします。

ListViewコントロールについてなんですが、各行の横幅でなく、
たて幅を設定できないものでしょうか？
(セルのたて幅とも言えるかもしれません)

ListView内の一行を選択する形で作ると、
どうしても各行が細いのが気になってしまって……。

VB6.0-TextBoxオブジェクト付随のScrollBarをプログラム側から移動させる方法を教えてください･･･

9get

>>8

たぶん
SetScrollInfoとGetScrollInfoを使えばできると思います。

>>7
「リストビュー メッセージ 高さ」でヤフるんだ。
1件目に出てくるぞ。
・・・望みの高さのイメージリストを付けてやれとさ。

あるいは、単なる一覧としてならMSFlexGridで代わりにすれば？

ウィンドウハンドルにコントロールを入れてみたりとやってみたのですが、
動作させることができませんでした。

教えて君で申し訳ないんですがコントロールの場合どうやるのか教えていただけませぬか？

>>8
確かＶＢのTextBoxはｽｸﾛｰﾙに対してＶＢ自身が独自の描画をしているから
SetScrollInfo・GetScrollInfoでｽｸﾛｰﾙﾊﾞｰのつまみは動くけど
文章自体はｽｸﾛｰﾙ出来ないんだよな…

質問ですが、

最適化オプションの『Pentium Proへの最適化』という項目は、Pentium Proへの対応であってPentium 4とかには
意味なしオプションなんですか？

そもそもなんであんなマイナーなCPUへ最適化しようとしたのかの背景も知りたいのですが・・・。

それ以前に、P-Codeでコンパイルした方が速い箇所もあるのは俺の作り方がへたくそという事なのでしょうか。
ちなみに、自分のソフトはAPIを使った方が速い部分については、結構な頻度でAPI使ってて、VBらしさという点ではVBらしくないです。

ご回答よろしくお願いします。

>>8
SelStartである程度は動かせるべ？
SendKeysもあるし。

>>8
作ってみました。
これでスクロールバーを縦に動かすことはできますが
>>13さんが言うようにテキストを再描画できません。

SendMessageでやればできたような気もしなくも無い。
ちょっと考えて見ます。

-------------ソース---------------
フォームにtxtっていうテキストボックスとボタンを一つ貼り付けてね。

Option Explicit

Private Declare Function SetScrollInfo Lib "user32" _
(ByVal hWnd As Long, ByVal n As Long, lpcScrollInfo As SCROLLINFO, ByVal bool As Boolean) As Long
Private Declare Function GetScrollInfo Lib "user32" _
(ByVal hWnd As Long, ByVal n As Long, lpScrollInfo As SCROLLINFO) As Long
Private Type SCROLLINFO
cbSize As Long
fMask As Long
nMin As Long
nMax As Long
nPage As Long
nPos As Long
nTrackPos As Long
End Type

Private Const SB_HORZ As Long = 0
Private Const SB_VERT As Long = 1
Private Const SB_CTL As Long = 2
Private Const SB_BOTH As Long = 3

Private Const SIF_RANGE As Long = &H1
Private Const SIF_PAGE As Long = &H2
Private Const SIF_POS As Long = &H4
Private Const SIF_DISABLENOSCROLL As Long = &H8
Private Const SIF_TRACKPOS As Long = &H10
Private Const SIF_ALL As Long = (SIF_RANGE Or SIF_PAGE Or SIF_POS Or SIF_TRACKPOS)

Private Sub Command1_Click()
Dim tScrl As SCROLLINFO
With tScrl
.cbSize = Len(tScrl)
.fMask = SIF_POS
End With

Call GetScrollInfo(txt.hWnd, SB_VERT, tScrl)

With tScrl
.cbSize = Len(tScrl)
.fMask = SIF_POS
.nMax = 100
.nMin = 0
.nPage = 0
.nPos = .nPos + 10
.nTrackPos = 0
End With
Call SetScrollInfo(txt.hWnd, SB_VERT, tScrl, True)
End Sub

Private Sub Form_Load()
Dim i As Integer

For i = 0 To 100
txt.Text = txt.Text & Chr(50 + i) & vbCrLf
Next
End Sub
'参考
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/jpwinui/html/_win32_setscrollinfo.asp
連投すまん。入らなかった。

>>15氏
本当にありがとうございます。
やっと意味が理解できましたorzフォームのハンドルずっと返してた･･･

>>10
出来ました！どうもありがとうございます。助かりました。
……自分はもっと検索方法を工夫しないといけないようですorz
　
MSFlexGridも初めて知りましたが、こっちの方が使いやすそうですね……

>>13
VBの標準関数(特に文字関係)呼びまくってたり "AAAA" & "BBBB" みたいに文字結合しまくってるとP-Codeの方が速くなるらしい。
逆に数値演算やWIN32APIが多いとネイティブの方が速いらしい。
まぁあくまでも目安で

>>20
回答ありがとうございます。
やっぱり、P-Codeの方が早くなる場合もあるんですね。

timeGetTimeで計測したんですが、IDEが一番早くて、次にP-Codeのexe、ネイティブの『実行速度最適化』のexe
という順序でスピードが出てたんで、最初錯覚かと思ったんですよね〜。

VC++なんかだと、モジュールごとに最適化が掛けられるのに、VBはなんでフォームごとに最適化できないかなー？同じ会社の製品なのにー、
とか考えてしまいますた。

>>13
PentiumProに最適化したら、PentiumIIもIIIもP6アーキテクチャ
なんだから有効だと思われ。以前PenIIマシンで最適化オンにしたら
文字列処理が若干速くなった。
NetBurstはどうだろうね。たぶん効果あると思うけど。

超初心者的質問ですが、

str$()とstr()

のような$あり、なしではどう違うんですか？

$の意味がわからないんですが。

すみません。間違えました。
初心者スレ逝きます。

>>23
いいよ、ここで。戻り値の型が$ありだとStringでなしだとVariant。

>>22
なるほど。
うちはAMDだから？効果が実感できなかったんですよ。
今後参考にしてみますね。

ワードなんかにあるFontを選択するプルダウンメニューのようなものを作りたいのですが
プルダウンのリストに含まれるFontの種類などは、どこから持ってくるのでしょうか？

>>27
MSDN読めば一発でわかるよ

>>28
では読んだ結果を教えてください。

ことわる

>>27
ヘルプ開いたら「フォント 一覧 取得」で検索しろ。
Fonts プロパティというトピックがあるから嫁。
「使用例」「対象」も読め。
ついでにStr()にNullを渡すとNullが返ってくるが
Str$()にNullを渡すとエラーになる。
あと質問を出汁にして罵りあって遊ぶな。

>>23
型宣言文字っていうものだよ。

>>30
もしかして分からないんじゃ？

OCXとDLLはどう違うのでしょうか。

>>34
DLLは一般的な名称、だいなみっくりんくらいぶらりー。
文字通り動的結合可能なライブラリ。

OCXはMSの固有名詞、OLEカスタムコントロールのこと。

27です。分かりました。皆さん、ありがとうございました。

ちなみに、>>29は私ではありません。

>>35
どう使い分けるものなのでしょうか。

>>37
使い分けじゃない。概念としてはDLLっていう大きな括りに、OCXは内包される。
そもそも、説明したDLLとOCXの意味って自分で調べた？

他の方の意見もお聞きしたいです。よろしくお願いします。

>>39
使い分けじゃない。概念としてはDLLっていう大きな括りに、OCXは内包される。
そもそも、説明したDLLとOCXの意味って自分で調べた？

>>38
俺はよく知らないけど、使い分けじゃないならなんで別々にあるの？

>>40
き、きも・・・プログラム板にもこういう人いるんだ。

OCXはコントロールに貼り付けて使う。
DLLはコードで宣言して使う。
VB6.0ならこう覚えておけば問題ない。

OCXはActiveXとか呼ばれてる(旧名はOLEカスタムコントロール)。
ActiveXはCOMを元に生成されている。COMとはオブジェクトに特定のインタフェースを持たせて仕事をさせる
(VBのクラスみたいな感じ。実際VBのクラスもCOMに基づいて生成されるって聞いたことがある)。
ActiveXはEXEの外部から割り込んでくるオブジェクト。

DLLはEXEがロードされた時、同じ空間上に関数が置かれるからEXEの一部として動く。

DLLとOCXを使い分ける意味は ActiveX について調べてね。


って氏んだじーちゃんが言ってた

>>43
コントロール「に」？

>>39
とりあえず、>>３８ <> >>４０だから。

で、OCXってのはDLLの一形態ってのは理解したんかい？

>>46
はいはい

違う話題いいですか？

数十万Rowのデータを高速に参照できるようにするために、
仮想ListViewを使いたいのですが、Googleで死ぬほど検索しても
VB6でできる方法を解説したサイトが見つかりませんでした。
MFCならサンプルコードもたくさんあり凄く簡単にできそうなんですが、
VB6で開発中のプロジェクトなので。。。

一応ヒントらしいことが書いてあるサイトは見つけたのですが、
ListViewコントロールのWM_CREATEをフックして、それのwindowスタイルを
差し替えてやるとしか書かれておらず、具体的にどうやるのか見当も付きません。
http://www.mvps.org/vbvision/Sample_Projects.htm#Virtual_ListView_Demo

知っている方は教えてくださいませ。

GetWindowLong
SetWindowLong
WM_NOTIFYフック

>>49
ありがとうございます。しかし、ヒントが難しいです。。

GetWindowLongでウインドウスタイルの現在値を取得して、
LVS_OWNERDATAとORしたものをSetWindowLongで設定するんですよね？
これはListViewを貼り付けたFormのForm_Loadのタイミングでいいんでしょうか？

またWM_NOTIFYをフックするのはLVN_GETDISPINFOのメッセージを
捉えるためだと思いますが、どのように値を設定してやればいいか
解説していただけるとありがたいです。
サイトの紹介でも助かります。

＞どのように値を設定してやればいいか
Cで組む場合と同じように設定してやればいい。
※ListViewのサブクラス化を忘れないように

>>51
あ、そうですね。MSDNのCのサンプルソースを調べてみます。
サブクラス化した中でWM_NOTIFYをキャッチするんですね。
分かりました。ご親切にありがとうございました。

>>48
バカか。人に質問するのに無礼すぎ。

Declare宣言で使用するDLLが
・exeと同一ディレクトリ
・%windir%\system32
の２つ存在する場合に、どちらを使用するのでしょうか。
また、２つのファイルに日付・製品バージョン等の違いがある場合に、
使用したDLLの情報を取得する手段はありますでしょうか。

よろしくお願いします。

>>54
いくらでもある。

以上。

>>54
つうか、その手の微妙な仕様の確認は絶対自分で試せよ。
仕様がどうっていうのを知ったところで、試さないでその状態を信じる人は信じられない。
DLLをつくって、ちょこっと変えて試せば１０分作業だと思うが。

TextBoxやRichTextBoxを透明にする方法ってありますか？
つまりPictureBoxの上に、直接テキストを入力したように見せたいのですが・・

>>56
言えてる。

>>56
10分で試した結果を報告してください。

>>57
その質問に対しては「あります」という回答しかない。

あと「・・」で終わる質問は無礼なのでやめるように。

すみません。ちょっと質問させてください。
VB6から、Excelを開いて、CSVファイルを読み込みたいのですが、
以下のように記述してもうまく読み込んでくれません。
何か、問題があるのでしょうか？

Set XlsBook = CreateObject("Excel.Sheet")
Set XlsWork = XlsBook.Application.Worksheets("Sheet1")
XlsBook.Application.Visible = False

With XlsWork.QueryTables.Add(Connection:="TEXT;C:\test.csv", _
Destination:=Range("A1"))

.Name = "テスト"

End With

ちなみに、With 〜 から、エラー処理へ飛んでしまい、その段階で「Range」にマウスポインタをあわせると、
「'Range' メソッドは失敗しました: '_Global' オブジェクト」と出ています。
なんか非常に基本的な事なんだと思いますが、VB触って3日目なもので………どなたかご指導をお願いします。

>>61
それを基本と侮るんじゃない！

とりあえず>>53とか>>55とか>>60がウザイ。

>>60
　↑
こういう役所の万年係長みたいな口の利き方する奴ってどこにでもいるよな(　^Д^)

>>63-64
なぜ自演を？

自演？
53=55=60=63=64って事？

>>54
DLLは
・exeと同一ディレクトリ
・%windir%\system32
・ﾙｰﾄディレクトリ
・パスが通ったディレクトリ

の順に検索して一番最初に見つかったDLLを選択すんの　わかった？
MSDNの載ってるよ。

>>66
違いますよ。

>>67
50点

VB6.0からコールしているDLLでメモリリークしていた場合、
DLLを直す、DLLを使わない以外に回避策はありますか？

一応ギャグ抜きでお願いします。

・ばれないことを神様に御祈りする。
・そのままつかっちまう。

>>71
>>72は面白くないからギャグではないのだと思うけど、
これは許す？

>>72
この手の書き込みをいくらでもされてしまうと思ったので>>71を
書いたのですが・・・

はぁ、どっと疲れが出ました。他の方はいかがでしょうか。

>>70
ヘルパプロセスを起動してそこでDLLを使う

>>75
まあ1つのアイディアとしては

>>70
・メモリ解放ソフトを常駐させておく。
・定期的にOSをリブートする。
・メモリリークしな様なDLLを自分で作る。

メモリリークしなざまなDLLって何だ？

PictureBoxにImageのStretchみたいな機能をつけるにはどうしたらいいのでしょうか？
うまいアイディアが浮かばないよ(´･ω･`)

>>79
APIでやる、BitBltだっけ？StretchBltだったかそんな奴。

Image使えばええやん

> ・メモリ解放ソフトを常駐させておく。
無意味。

>>80
bitbltですか
調べてみます

>>81
pictureboxのlineメソッドを使いたかったんでImageだとﾀﾞﾒﾎﾟ

解決しますた
結局、resizeイベントが起こったときにもう一度描写する関数を呼び出させて何とかさせますた
( ´ー｀)y-~~

\1,000 を 1000 に変換する様な
関数があれば教えてください。 お願いします。

>>85
CIntとか？

CLng("\1,000")

"\1,000" * 1

Dim hoge As Long
hoge ="\1,000"

数値(整数･実数)型に変換、数値型変数に代入、算術演算
どれをやっても1000になる。
これがVBの便利さであり、遅さの原因でもある。

>>86,87
即レスありがとうございます。
いろいろあるんですね〜。

>>82
理由は？

>>87
\1,000だと変換できて\10,000だと変換できない方法を
混ぜるなんて意地悪だねぇ。

>>89
メモリ解放ソフトは、メモリリークを解決する物じゃない。

あれは単に物理メモリのキャッシュを強制的にスワップファイルに
追い出すことしかしない。
メモリが極端に少ない場合を除いてパフォーマンスの低下につながる。

そもそも、逆になんでメモリ解放ソフトが
メモリリークを解決できると思うのか、
その根拠を述べて欲しい物だけどな。

名前に騙されているだけ。

グローバルフックでメモリを強制開放するソフトなら作れるぞ
使用後にどうなっても知らんが

よーし、それなら俺は、
セクタに直接書き込んでディスクを強制解放するソフトを作ってやるぞ。
使用後にどうなっても知らんがｗ

アホばっかり

>>95 お前が一番

>>96
何も言ってないのに。

リソースファイル内のwavまたはmp3ファイルを、
そのまま複数個同時に再生する方法はないでしょうか。

>>91-95
このレベルの低さが２ちゃんなんだよな。なんか安心するよ。

>>98
ある。


回答終わり

↑ﾂﾏﾝﾈ( -д-) ､ﾍﾟｯ

53=55=60=100
　　↑
このスレに常駐しているｱﾗｼ

>>102
2つしか合っていない・・・

>>55 >>60 >>100 こいつ日常会話でもこんな調子なのかね。
「俺のメガネどこに行ったか知らない？」
「知ってる」みたいな。だったらすごいどころか面白いな。

>>104
なに粘着してるの？よそのスレにでも行ってほしんだけど。

>>104
＞こいつ日常会話でもこんな調子なのかね。
２ちゃんの書き込みから日常を想像できるところがすごすぎる。

＞だったらすごいどころか面白いな。
全然面白くないことを面白いと堂々と書き込めてしまうところがすごすぎる。

そう言われて行くような人なら荒らしとはよばれない

>>107
まぁそれはそうだが。早くやめてほしいよね。

＞２ちゃんの書き込みから日常を想像できるところがすごすぎる。

本当のボクは違うと言いたいの？(　^Д^)

ネット上に出る人格って、その人の本質を純化・先鋭化したものだからね。
本人は日常生活と違うと思ってるかもしれないが、周りは気付いてるよ。そういう奴だって。

>>110
誰か同意してくれるといいですね。
得意の自演をされてはいかがですか？

formにbuttonがあってbuttonを押すたびにcountが1づつあがって行くみたいなプログラムを作るときに
このcountの値を保持するためにはformのグローバル関数にするしか方法は無いんでしょうか？

Static i As Long

>>112
formのグローバル関数？

>>100
助かりましたm(_ _)m

>>101-
あるかどうかだけ聞いてんのに、いろいろべらべらと語りだす奴もｷﾓｽ&ｳｻﾞｽな罠。

答える気がないならｽﾚ覗くなよ・・・
段々過疎って来たし。

フォームの大きさを大きくするのはokだけど
ある大きさより小さくするのは認めないってことはできるのかな？
フォームの大きさを変えさせないってのはあったんだけどな〜

>>118
最小値より小さくなったら、最小値に戻すだけ。
ただし、ちらちらするのが弱点。
高度なやり方は知らん。

>>118
ttp://vbvbvb.com/jp/gtips/0801/gSetWindowLongGwlWndProcWmGetMinMaxInfoPtMinTrackSizePtMaxTrackSize.html

なにそのジュゲムみたいなファイル名は・・・

>>119-120
うほっ
素早いレスThanks
さっそくやってみるよ！

バイトの配列をバイナリデータとしてファイルに書き出したいんですけど
以下のようだと書き出されたファイルの頭数バイトに余分な00データまで書き込まれてしまうんですけど
なぜでしょうか？どなたかお願いします。

Open FileName For Binary As #1
Put #1, UBound(ByteArray), ByteArray
Close #1

>>123
UBoundをMSDNで調べればすぐ分かると思いますよ。

>>123
PutをMSDNで調べればすぐ分かると思いますよ。

>>124
>>125
ありがとうございました解決しました。
Putの使い方を理解できていませんでした…

ふ、はずしたか・・・

複数行に渡ってソースを書く方法について教えてください。
段々横に長くなってしまったので解決したいです。

>>128
Debug.Print _
"あいうえお" & _
"かきくけこ"

通常は　_ で、
文字列の場合は二つのテキストに分けて & _ と繋げればいいんですね。
どうもありがとうございます。

>>90
ん？俺の環境だと"\10,000"に変えて試しても>>85が期待した結果が
得られるみたいだけど。
俺勘違いしてる？

>>131
多分ね、そのあたりの挙動って、コンパネの地域設定の指定とOSのバージョンに関わると思う。
依存するような暗黙変換をするならば、その辺りのことって国際化対応に書いてあるかな？

フォーム(Public Class WebForm1)にラベルがあります。
Public WithEvents Label1 As System.Web.UI.WebControls.Label

別モジュール(Module1)に関数(sub kan1)を作りました。その中で
Dim refForm1 As New プロジェクト名.WebForm1
というインスタンスを作りました。
で、refForm1.Label1.Text = "1"
とやると「オブジェクト参照がオブジェクトインスタンスに設定されていません」
と出ます。refForm1.Label1　←　ここでNothingになります。
なぜですか？

>>133
スレ違いだよ。

VB.NET質問ｽﾚ (Part12)
http://pc8.2ch.net/test/read.cgi/tech/1121600038/

失礼しますた。向こうで聞いてきます。

ExcelオブジェクトのGetPhoneticメソッドを使って
漢字のフリガナを取得してるのですが、
そのフリガナを元の文字単位で分割するにはどうすれば良いでしょうか?

例えば"質問者の心得"だと"シツモンシャノココロエ"を返しますが
これを｢シツ, モン, シャ, ノ, ココロ, エ｣と分割したいのです。
1文字ずつGetPhoneticメソッドに掛けると、文として読んだ場合のフリガナが
候補の中に出ない物もあるので、1文字単位で変換して、
文で返したフリガナと一致させる方法は無理でした。

詳しい方、どうかお知恵を貸してください。

ListViewに関する質問です
環境はXP Pro SP2/VB6.0 SP6です
MultiSelect（アイテムの複数選択）をTrueにした状態で
アイテムが無い空白部分を始点にドラッグして、点線の枠で囲ってアイテムを囲んでマウスボタンを離すと
枠に囲まれていたアイテムと関係のないフォーカスの当っていたアイテムが選択されてしまいます
これを、ドラッグで囲ったアイテムだけが選択されるようにするには、どうすれば良いのでしょうか？
よろしくお願いします

あれから調べていたら根本的な原因が別にあることが分かったので質問を変えます
ListViewのアイテムが無い空白部分でクリック/ダブルクリックすると
フォーカスのあるアイテムが選択されたり解除されたりするのですが
空白をダブルクリックされても、フォーカスの当ったアイテムが選択されないようにするには、どうすればよいでしょうか？
よろしくお願いします

Thumbs.db を削除したいのだが、誰が方法を教えてくれまいか。
kill ステートメントだと、ファイルがあってもファイルが見つからないって言われてしまうぞ。
おかしいぞ。

>>139
Set/GetAttr

>>140
ｽﾏｿ

香具師

>>131-132
関係ないと思うよ。ただの釣りだから。

>>138
Common Control 5を使う・・・って言うんじゃだめか。だめだな。

VB6.0SP5です

2つのexe、[A.exe]と[B.exe]があって、AからBを起動させます。

・Bが起動したときはAの画面は表示されたまましかし触れず
・Bを閉じたとき、Bで選択した値をAの画面に反映させる

こういう動作を実現したいのですが、何かいい方法はありますでしょうか
(exeをひとつのプロジェクトに纏めることは、都合上できません)


一番簡単なのは、B起動時にAの表示を諦めて非表示にして
値はtmpファイルでも作って受け渡す方法だと思いますが、
これは最終手段にしたいです

検索すると、CreateProcessやSetWindowLongを使った方法などが散見されましたが、
試してみるもいまいち理解がついていかず、まだ正常に動かせていません
良い参考になるページなどありましたら、紹介していただけませんでしょうか

よろしくお願いします

>>145
DDE使うのが一番簡単だろ。
具体的な方法は自分で調べろ。

>>145
Ｂ起動中はＡ触れず。。。だけなら
"Windows Script Host Object Model"を参照設定して
WshShellクラスのRun()メソッドでできるけど、値の受け渡しはなあ。

ＢをActiveX EXEにするのがよいと思われ。同期しながら
データのやり取り自由自在。作り方は調べろ。

自分のレベルに合わせて作ることも大事だよ。

プロセス間の情報共有は色々あるけど、死に様を残すだけならファイルでよいと思うけどね。

AがBを起動する前に、遺書は削除。
Bは自分が死ぬときに遺書をしたためる。
AはBの終了待機をしていて、死亡を確認したら遺書を見る。
それほどおかしい処理じゃないよ。

終了待機はShellの戻り値を監視する方法のサンプルが死ぬほど落ちてるからそれを参照。

>>144
バージョン古いのは望みどおりの挙動してたんですね
自分では思いもよらぬ解決法で目からウロコでした
現状、すでにサブクラス化してサブアイテム編集などをつけたりしてコードが満載なので
Common Control 5でも機能を満たせるか、コード書き換えてみないと分からないですけど
もしかすると、うまく行くかもしれないです
結果は後日報告します、ありがとうございました

>>146 DDE
>>147 ActiveX EXE

DDEを調べていたら、OLEオートメーションという方法も出てきました
これからひととおり調べて試して、一番理想的なやり方を検証しようと思います
Web上にTipsも多そうなので、とても助かります

>>148
それが最終手段でした
今回、こういう機能の開発を初めて手掛けることになったので、
レベルアップも兼ねてやってみたいと思っています

ありがとうございました

プログラマー思考的には新しい技術の習得も重要だから勉強はいいと思う。
ただ、その渡す情報の量、重要度などは考えて使う技術を決めたほうが良いよ。

リアルタイム性不要であれば、わざわざプロセス間通信なんて不要には思える。
リスキーな割にはやりたいことは文字を数文字渡すだけってのでは。

あと、DDEは死に行く技術、ActiveXEXEはレジストリ登録が確か必要だったと思う。
その他、メモリーマップドファイルなど、共有メモリでのアクセスや、数値程度だったらSendMessageなどありますよ。

先ほどCommon Control 5を教えてもらった者ですが
また分からないことがあるので質問させてください
先ほどのクリックで選択されたり解除されたりする問題に関しては
Common Control 5のListViewを使用することで解決したのですが
代わりに、それまで指定していた ListView の拡張スタイルのうちグリッドの表示が出来ません
拡張スタイルの1行選択は次のようなコードでセットできたのですが
Call SendMessage(ListView1.hWnd, LVM_SETEXTENDEDLISTVIEWSTYLE, LVS_EX_FULLROWSELECT, LVS_EX_FULLROWSELECT)
グリッドも同じように LVS_EX_GRIDLINES = &H1 を使ってメッセージを投げてみたのですが、一向にグリッドが表示されません
Common Control 5のListViewでグリッドを表示する方法をご教授ください
よろしくお願いします

皆さん、力を貸してください。
今、Inetを使用したファイルのアップロードを作っているのですが

'ファイルのアップロード
.Execute , "PUT c:\TEST\test.tif test.tif"
Do While .StillExecuting = True
DoEvents
Loop

.Execute , "　SIZE　test.tif"
Do While .StillExecuting
DoEvents
Loop

と、処理を流すとファイルサイズが正常に取得できません。

現状としては

・PUT等をせず、SIZEだけを実行した場合は正常に取得。
・PUTに限らずCDでもDIRでも別の.Executeを実行した後は
　ファイルサイズが取得できない。
・何回か実行していると取得できる。
　ただし、その次からまたしばらく取得できず
　そのまま何回か実行していると取得できる（原因不明

やりたい事は、ファイルをアップロードし
アップロードしたファイルのサイズとローカルファイルのサイズを比較して
正常チェックを行いたいのです。

どなたかお力添えの程、よろしくお願いします。

なんで無能な奴に限って口調が偉そうなんだろうね。
>>146-147とかw
ここまでアレだと、もう怒りとか呆れよりもある種の微笑ましさを感じるよ。
ああ職場で窓際にされてストレスたまってるんだろうな、とか思ってw

ところで、>>145は
＞exeをひとつのプロジェクトに纏めることは、都合上できません
これは単一の実行ファイルのからビューAとビューBを表示するという訳にはいかない、
という意味だろうけど、それはいったいどんな都合なんだろう。。
その方が気になる。これなら何もOSの仕組みに依存するような高度な操作は必要ないわけで。

というと、「質問者の目的に疑問を挿むな」という例の馬鹿が湧いてくること必定w
こういう馬鹿が、戦争目的を問わずに鬼畜米英の蛮勇に浮かれたり、
尊師の目的を問わずに地下鉄にサリンを撒いたり、大作様の推挙する
候補に投票したりするんだろう。

>>154
ようこそ無能さん

なんだかすごいの(>>154)が沸いて出てるな。

ツリービューについてふたつほど教えて欲しいことがあるのですが、

(1) 縦スクロールバーのみ表示させる

(2) 横方向に表示しきれなかったアイテムをツールチップで表示しないようにする

について、コンテナ化や別コントロールでの代用ではなく、
ツリービュー単体で出来る方法をご存じの方、教えてください。

VB6で作ったアプリのCommandButtonをクリックすると(アクティブになると)
ボタンの内側に破線の枠が表示されますが、これを表示しないようにするにはどうすれば良いのですか?
Tabキーでのコントロール移動には不可欠ですがTabStopはFalseにしてるし、
小さいボタンでコレが表示されると見栄えが悪いので。

>>158
コマンドクリックのイベント内で
Command1.Enabled = False
Command1.Enabled = True
を記述してはいかがでしょうか？
ただ、クリックしている最中は破線枠は表示されます。
別にいい方法があるかも。

>>159
回答ありがとうございます。
しかし、ボタン1をクリックすると破線枠がボタン2に、ボタン2をクリックすると破線枠がボタン1に移動するだけでした。
逆にボタンがひとつの時は意味無しです。Falseで一端枠は消えますがTrueの瞬間に枠が戻ってくるので。

引き続き回答をお待ちしています。

上にもういっこﾎﾞﾀﾝ重ねて、visibleとenabledでなんとかならない？

>>161
回答ありがとうございます。
その方法をヒントに、クリックイベントで下層のボタンにSetFocusすれば、
一応クリック後の枠は残らないようになりました。

アクティブなボタンに破線枠を表示しないようにすることは出来ないのかな?

>>162
「アクティブなボタンには破線枠を表示する｣というのが
Windowsでのルールなので、標準のコントロールでは強制的に
そうなるように作ってあるのです。
ついでに「クリックしたらアクティブになる｣というのも
ルールなので。
>>158はToolbarのボタンみたいな、マウスでしか触れないボタンが
ほしいということ？TabStop=FalseだけどTabキーは利かせたい（クリック→Tabで次のボタンに行きたい）のか？
Toolbar風ボタンなら、DelphiにはSpeedButtonてのがあるけど、VBにはないね。
俺は昔、UserControlとDrawFrameControlでシコシコ自作したことがある。

>>152
うーん、そうでしょ。だから「だめだな」って逃げておいたんだがｗ

Common Control の5は、ComCtl32.DLLって共通のDLLのAPIを
コールしてるから、>>137で悩んだような変なバグは出ないし
XPの視覚スタイルにも対応させられる。
6はというと、全部独自で処理しているらしいので、ComCtl32の
バージョン違い地獄に引っかからない反面、今回のような
悲しい事態もあるという諸刃の剣。

５でのグリッド表示だけど、>>152の書き方がちょっと変。

Dim ExStyle As Long
ExStyle = SendMessage(ListView1.hWnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0, ByVal 0) 'スタイル取得
ExStyle = ExStyle Or LVS_EX_GRIDLINES Or LVS_EX_FULLROWSELECT 'スタイル追加
Debug.Print SendMessage(ListView1.hWnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, ByVal ExStyle) 'スタイル更新

こんな風にかいてみ。1行選択も。うちではできたよ。

>>164
>こんな風にかいてみ。1行選択も。うちではできたよ。
できました！おかげさまで希望通りの動作になりました
ありがとうございます
躓いてた原因は、スタイル取得のときの wParam、lParamの値で
どちらも LVS_EX_GRIDLINES Or LVS_EX_FULLROWSELECT を指定していたので
結局ゼロが帰ってきておかしなことになってたみたいです

イメージリストもVer5でないと連動して使えないようだったので、
この際、ランタイム減らす意味も込めてTreeViewなども含めてすべてVer5にしました
大量のデータ表示が、僅かですけど軽くなったような気がします
何度も助けていただき、本当にありがとうございました

MSDNのVB6用の関数のヘルプってどこですか?
探したのですが、見つからないです・・Orz

>>166
CDに入ってますよ。

発見しました!!
でも印刷に関する物が見当たらなかったですO..... rz

>>168
MSDN ライブラリ Visual Studio 6.0
+Visual Basic ドキュメント
+Visual Basic の使用方法
+プログラミング ガイド
+Visual Basic を使ってできること
+テキストおよびグラフィックの操作
+印刷

これのことかね？

>>136
そりゃ無理でしょ。熟語になったら単漢字としての読み方を
しない言葉はたくさんあるし。
たとえば「十八番」を「おはこ」と読ませているときは
どうするかとか、「やし」なんて漢字で書いたら「香具師」
なのに１文字ずつどう対応させるんだ、とか。
つまり「香具師の十八番は百舌鳥の真似」なんてのになると、
（こんな例は極端ですが）熟語、単文節以上には分解
できないわけです。
原理的に無理なので、仕組み自体が搭載されていないと思われ。

VBのソースコード（フォームとかは除く）を、
UNIXで使えるソースコード（C++など）に
変換するようなツールは売られてるでしょうか？

>>171
中途半端でいいならREALBasicというものがある
VBのソースをWindowsでもMACでもLinuxでも動かせる優れものだぞう


使い物にはならないが。

>>172
ありがとうございます。
ぐぐったら出てきましたので試してみます。

解決しました。
いた汚し失礼＞＜

VBについてないツール（SPYとかDDESPYとか）使いたいときは
どうしたらいいですか？

>>175
1.Googleで代替のツールを探してくる
2.ヨドバシカメラでVisual Studioを眺めていると紳士が現れて買ってくれる
3.どうにもならない。現実は非常である

>>175
VC買えばいいじゃん。

>>175
フリーのSPYツール使えばいいじゃん。

"1+2*3"という文字列を計算して7が返ってくるような
関数のサンプルはありませんか？

>>179
宿題は７月中に終わらせておけよ。
それに宿題は宿題スレへ。

text1.enabled = trueにしたときに
色がグレーになるのだが、
他の色にした場合どうすればいい？

>>181です
trueじゃなくてfalseだ・・・
間違えた

>>181
フレームにテキストボックス置いてフレームのEnabled=False

SetSysColors APIをCOLOR_GRAYTEXTで。
ってことを言いたいんじゃないんだよな。言ってみただけだよ。

ddespyと同等の機能のあるフリーソフト教えてください。

>>180
宿題スレってどこ？

さすがはVBスレ
わかる人がいないとは

>179
仕方ないなぁ。今回だけだよ？

Public Function GetAnswer() As Long
　　GetAnswer = 1 + 2 * 3
End Function

文字列式からの整数の四則演算なんて、
厨房が練習で作るレベルの内容だろ。
サンプルなんて必要になるレベルじゃない。

>>189
じゃあ、教えてくれよ

>>190
自分でやれ。これはお前のためだ。

RPN

逆ポーランドとかいうのが必要なとこまではわかったんだけど・・・

>>193
別に必要ではない

わかりやすそうなサイトがありました。
http://www.ne.jp/asahi/nagoya/ahomaro/builder/cpb-022.html

Function GetAnswer(ByVal strQuestion As String) As Long
　Dim Ope As Variant, foo() As String, bThr As Boolean, bar As Long
　Dim i As Long, j As Long
　For Each Ope In Array("+", "-", "*", "/")
　　strQuestion = Replace(strQuestion, Ope, " " & Ope & " ")
　Next Ope
　foo = Split(strQuestion)
　For i = 1 To UBound(foo)
　　If bThr Then
　　　bThr = False
　　ElseIf foo(i) = "*" Then
　　　foo(j) = foo(j) * foo(i + 1): bThr = True
　　ElseIf foo(i) = "/" Then
　　　foo(j) = foo(j) / foo(i + 1): bThr = True
　　Else
　　　j = j + 1: foo(j) = foo(i)
　　End If
　Next i
　bar = foo(0)
　For i = 1 To j
　　Select Case foo(i)
　　　Case "+": bar = bar + foo(i + 1)
　　　Case "-": bar = bar - foo(i + 1)
　　End Select
　Next i
　GetAnswer = bar
End Function

この夏からVB始めたリアル厨房ですが、練習がてら文字列操作のみで算出してみました
勉強になるので批判も歓迎、やっぱ数値ではなく数字を演算する時って
Clngとかで数値に直してから演算した方がいいんですかね？
+以外は数字同士でも勝手に数値として演算してくれるみたいなんですが

Dim sc
Set sc = CreateObject("ScriptControl")
sc.Language = "VBScript"
MsgBox sc.Eval("1 + 2 * 3")

すいません。前ｽﾚでも質問したのですが、

ピクチャーボックス上にテキストボックス・リッチテキストボックスを置いて、
文字だけを表示する方法が分かりません。

前ｽﾚでは、「ある」とだけお答えいただいたので、色々試したのですが
上手くいきません（ToT

どのような方法があるのでしょうか？

>>198
pictureboxに直接じゃだめなの？

>>198
それかラベルコントロール

>>199->>200

返事、ありがとうございます。
WORDのシェィプのテキストボックスみたいなかんじで
ある程度、簡単な編集をさせたいと思っていたので、
TextBoxやRichTextBoxを考えていたのですが、ラベルも検討してみます。

>>196
>Clngとかで数値に直してから演算した方がいいんですかね？
適切な型に変換して演算するほうがお行儀は良いと思う。

ざっくり見ただけだが、考え方はあってると思う。
でも、"(1+2)*3"とか対応していないよね？
あとスペースで置き換えてるみたいだけど、
初めからスペースが混じってたらどうなる？
たぶん、実行時エラーかなんか出るようなきがする。
実は大丈夫なのかな。そうだったらごめん。

（´-`）.｡oO（ 179の何処に( )があるんだろう… ）
（´-`）.｡oO（ 179の何処にスペースがあるんだろう… ）

>>203
アホ？

歩き方教えるのはいいとしても、行き先指示するのは余計なお世話なｷｶﾞｽ。
機能不足な箇所や実装は自分でなんとかするでしょ。

>>205
死ねば？って普通に思った。

まあ別にいいけど。
目標が不透明なまま周りがあーだこーだ騒いでも、あんたら何話してるの？ってなるだけだと思ったんだが。

>>207
別にいいなら死ねば？

質問者の知りたかったことは解決しているのだから、別に
それをネタにして話が広がって何の問題もないと思います
けど。

frameの上にtextをコントロール配列でたくさん配置した後に
frameごと別の場所にコピペしたらコントロール配列の並び方がバラバラ・・・
せっかく配列が1234...って綺麗に上から並んでいたのにコピペしたら下からコントロール配列ができちゃうよ
手で直せばいいんだけど、めんどくさい('A`)
何とかならないんでしょうか？

アドインでそういうのあったような気がするけど
VB6のデフォルトの機能じゃどうしようもないでしょ

frmをメモ帳で開いてコピペで修正する手もありかな。

>>211-212
ありがと
どうしようもないのね・・・(´･ω･`)ｼｮﾎﾞｰﾝ
メモ帳見てみたけどこれもめんどくさそうだヽ(`Д´)ﾉｳﾜｧｧｧﾝ

変数を演算子として利用することって方法ってありますか？

質問は日本語で

変数を演算子として利用する方法ってありますか？

b = a plus c
ってことかな？

>>217
はい、そうです。

それはできないねー

orz

テキストボックスが複数あるフォームで、
それぞれに対する各イベント(GotFocusやChange、KeyDown等)の処理の
記述内容がほぼ重複する場合は、テキストボックスを配列化するのが一般的なんでしょうか？
(例え、各テキストボックスに入力されるテキストの種類がコード・名前など様々だとしても)

コーディングルールみたいな、暗黙の規定みたいなものってあります？

>>221
.netならテキストボックスを継承してコンポーネントが
カンタンに作れるんだけどねー

>>221
配列化しないならこんなのは？
・クラスモジュールを1個用意する。
・Private WithEvents でTextBox型変数を作る。
・その変数へアクセスするプロパティ プロシージャを作る。
・このクラスでイベントを拾えるようになるから、イベントプロシージャに何か書く。
　　たとえばGotFocus()にSelLengthを使った全選択処理を書く。
・Form_Loadでこのクラスのインスタンスをテキストボックスの数だけ作って、それぞれテキストボックスを割り当てる。
・割り当てられたテキストボックスは、何も書かなくても全選択になる。
・何か追加の情報が必要なら、クラスのプロパティを増やす。

Class使ったことなくて、全然わかりませんorz
精進します・・・

>>224
ttp://www.gj.il24.net/~nakasima/vb/tech/excontrol/index.htm

>>225
ありがとうです
なんとかクラス作って動かすことができました

なんか全然理解度足りないけど、後学のためにもっと使ってみようと思います

質問です。
ＶＢで作ったプログラムのなかの変数の値を
ブラウザのフォームに送りたいのですが、
どのようにしたら可能なのでしょうか？

例としては、ＶＢで作ったソフトにテキストを入力すると、
2ｃｈの書き込みフォームの中にそのテキストが入力されるとか、
検索ワードをいれてプログラムを実行したら、
googleの検索ワードを入力するフォームに、
その言葉が入力された状態になるというように、
ＶＢアプリからブラウザに値を渡したいのです。

INETコントロールでFTP通信をされたことがある方に質問があります。
現在、INETコントロールを使用してFTPによりサーバーからファイル
を取得するプログラムを作成しています。
当初開発していたPCで正常にファイルが取得できるのを確認後、実運用する他の
PCにて動作確認をとったところ、Executeメソッドの実行時にResponseCode=12
163(ネットワークから切断されています。)といったエラーが発生していまし
た。
いろいろと試行したところ、さっきまでエクスプローのアドレスバーに"ftp:/
/xxx.xxx.xxx.xxx/"と入力すると、サーバーの
フォルダの内容が見えていたのが、見えないのに気がつき、入力内容を消した
後に再度"ftp://xxx.xxx.xxx.xxx/"と入力したところフォルダの内容が見える
ようになりました。
この状態でプログラムをランさせると、今度はエラーは発生せずにに正常動作
しました。
VBというよりネットワークにつての質問になるかもしれませんが、この現象について
説明できる方いらっしゃいましたら教えて下さい。よろしくお願いします。
開発環境はWinXP(SP2)+VB6(SP5)です。

すいません。自己解決しました。

>>227
自己解決したっていう報告だけじゃなくて、
どういう方法で解決したのか、情報提供もすると喜ばれるよ。

>>230
別に喜ばせたくもないです。

上の>>221です、もうひとつお願いします

テキストボックス4つ
その他コントロールいくつか

こんなフォームがあります
テキストボックスは、4つでひとつのコードとして扱います
（01020304というコードを、[01][02][03][04]というように入力する、部分空白もあり得る）

コードを入力して、他のコントロールにフォーカスが移ったらコードチェックをします
しかし、4つのテキストボックスのLostFocusイベントでそれをやると、
テキストボックスからテキストボックスにフォーカスが移ったときにも、
いちいちコードチェックが動いてしまいます
あくまで、4つのテキストボックスを入力し終わった時点で、コードチェックをしたいんです

他のコントロールのGotFocusで、あるいは上で教えていただいたClassで、という以外に、
何か良い方法はないものでしょうか

問題ねえだろ

>>232
普通にやればいいんでないかい?

>228
気のせいか同じ質問が・・マルチポスト
一応はっときますね
ttp://www7.big.or.jp/~pinball/discus/vb/59468.html

どういうやり方が普通なんでしょか・・・（´・ω:;.:...

>>232
ユーザーコントロール作ってExitFocusとかValidateとか

>>237
はじめて作ってみました
こんなことができるんですね
ちょっと勉強してみます
ありがとう〜

文字列を数値データに変換って出来ませんか？
（例）AAA111とかを数値に

>>239
その文字をどういう数値にしたいの?

16進数の｢AAA111｣を10進数に直せばいいの?
それとも｢111｣だけを取り出したいの?

後者の場合でAAA111BBB222のときは
｢111｣｢222｣｢111222｣のどれを返せばいいの?

数字を含む文字列から数値を返すのはわけないが
条件はきちんと指定してくれないと何も教えられない。

いや、きっと連想配列を実装したいんだろう。
それなら素直にCollectionを使えと。

VB6.0でOracleのOO4Oを使用しています。
存在しないフィールドを指定したかどうかチェックする方法は無いでしょうか。

For i = 0 to rs.fields.count - 1
exl.worksheets(1).cells(k, i + 1).value = rs(i).name
Next

>>242
　Oracleのエラーコード拾ってくるのは？

　

>>235
マルチポストが迷惑な理由と全く同じ理由でお前の書き込みも迷惑。
まぁ俺のもそうだが。

ある計算式 (120*(A-30)/5)+15 をテキストファイルから読み込んで
Ａを代入した結果を求めたいのですが、読み込んだ計算式を簡単に
解析する方法とかないでしょうか？

これ、どっかの中学校の宿題?

いい加減飽きたよ。

>>227
で、どうやったの？
聞きたい
俺も、その手のアプリを作りたいと思っています。

簡単じゃん
これくらい自分で作れないならおとなしくフリーの使ってろ

>>249

簡単でも、やり方分からないから聞いてんだよ

>>250
がんばれ

>>250
おちつけ、つられるなｗ
とりあえずヒントを出そう
http://www.ken3.org/vba/backno/vba156.html
これで起動中のIEが取れるよ
あとはウォッチで眺めてみれば分かるっしょ
それと下の２つを参照設定に入れとくと、結構幸せになれる気がするな
Microsoft Internet Controls
Microsoft HTML Object Library
ただ、この方法には制限があって、フレームを使ったページで
フレーム内のドメインがトップフレームと違う場合は、
フレーム内のドキュメントには一切アクセスできないよ
Google検索だけなら、単純にURL変数でいいと思うけどね

>>246
逆ボーランドに変換してから計算する
変換時、”（”は無条件で積み上げて、”）”が来たら”（”まで追い出して（　）は相殺

ScriptControl使えば3行で終わるのに。

>>254
おまえ、バカだろ。

>>253
ihpleD とか？

>>246
Microsoft Script Controlを参照すればEvalが使えるよ。

>>255
なんで？

>>252　ありがとうございます
とても参考になりました。

しかし・・・
分からない点が出てきました。
YAHOOの自動ログインをVB6で作成しようと思っています。

---------------サンプルソース---------------
Sub ie_test_click()
Dim objIE As Object 'ＩＥオブジェクト参照用
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://mail.yahoo.co.jp/"
Do While objIE.Busy = True
DoEvents
Loop
objIE.document.all.userid.Value = "***" 'ユーザー名
objIE.document.all.pass.Value = "***" 'パスワード
objIE.document.all..save.Click 'クリックメソッドを実行
End Sub
---------------------------------------------------------------

クリックメソッドの部分ですが、
YAHOOログインページのログインボタン部分のソースは、
　<input name=".save" type="submit" value="ログイン" class=loginsubbutton>
になっています・・・

VBのコードで
　objIE.document.all..save.Click
と指定すると当然エラーが出ます。
どのようにすればコマンドボタンを自動で押せるのでしょうか？
すいませんがご教授お願いいたします。

VBでエクセルのシートが存在するかどうかチェックする方法ってないですか？
無かったらメッセージを出したいです。

>>258
名前が.saveの場合
Set pHoge = objIE.document.getElementsByName(".save")

IDが.saveの場合
Set pHoge = objIE.document.All(".save")

名前もIDもないINPUTタグの場合
Set pHoge = objIE.document.getElementsByTagName("INPUT")

ただし、取得条件に合致するもの（名前/ID/タグ）が複数あった場合は
配列になって返ってくるからLengthを見たほうがいいかもしれんよと

>>260　ありがとうございます。
コンパイルエラーは出なくなりました。
Set pHoge = objIE.document.getElementsByName(".save")
をどのように使用して、コマンドボタンをクリックするのでしょうか？
pHogeには[object]が返ってきています。
質問ばかりで申し訳ございません。

もうほとんど｢教えてください｣じゃなくて｢おまえら俺のためにコード書け｣って感じだな

>>261
さっき言ったようにキチンと参照設定して
Dim pHoge As MSHTML.HTMLInputButtonElement
と宣言した変数にぶち込んでみろ
インテリセンスが効くからアホでも分かる

>>262
あれ？気に障った？コード書いてみ？

>>259
ある名前のワークシートがワークブックの中にあるかどうか
調べたいってことか?
じゃあ For か For Each でWorkBook.WorkSheetsを順番に
調べるか、WorkSheets("シートの名前")がエラーになるかどうか
調べる。

ファイルの話だったらDir$とかいくらでもあるべ。

>>264

初めまして、ＶＢ初心者ですが質問させてください。
フォントダイアログ？のようなものを自力で作らなければならなくなったのですが、
現在選択されているフォントで有効なサイズを全て取得するには
どの様にすればよろしいでしょうか？

現在の文字サイズは取得できるのですが、わかりませんでした。
教えてください。

宿題なら自分でやってください

だけどたしかにどうやるんだ？
フォントサイズのコンボボックスの中身は選択したフォントに
よって変わるということは、なにか判断する基準があるんだよな。
たとえ、特定の名前に対してハードコーディングしているんだとしても。
だいたいのTrueTypeやOpenTypeは同じ候補が出てくるけど、
たとえばFixedSYSは14だけ、Courierは10,12,15だけとか、
ビットマップフォントは候補の数が少ないようだ。

秀○なんかではプロパティで文字の設定ができるから
方法はあるんでしょうけどね。

Open "c:\damepo.txt" For Output As #1
Write #1, "damepo"
Close #1
これを行うとtxtに
"damepo"のように""に囲まれたものが出力されてしまいます
""をなくす方法ってないんでしょうか？

>>271
Write以外を使えば？

>>271
printじゃ駄目なのか？

>>272-273
printで普通に大丈夫でした・・・
THX

MSCOMMがきちんと受信してくれません。
何かいい方法は無いでしょうか？
　
ロジック
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = 2 Then
strMoji = Form2.MSComm1.Input
Form1.txtTab1Com1.Text = Form1.txtTab1Com1.Text + strMoji
strMojiretu = strMojiretu + strMoji
Else
MsgBox MSComm1.CommEvent
End If
　 〜
受信したデータがvbCrなら、ＤＢに出力する処理
　〜

（MSComm1のパラメータInBufferSize:1024、Inputlen:1)の場合
4823ﾊﾞｲﾄまでは、きちんと受信してくれるのですが、
それから入ってくるデータの文字が、
送信元とは、違っています。

（MSComm1のパラメータInBufferSize:1024、Inputlen:0)の場合
9534ﾊﾞｲﾄまでは、きちんとテキストに表示されるのですが、
それからはデータがテキストに表示されません。
MsgBox MSComm1.CommEventも実行されません。
　
セットするtxtTab1Com1のマックスレングスは０です。

また、受信テスト用に、送信するプログラムもＶＢで作成しています。
（MSComm1のパラメータoutBufferSize:1024、Inputlen:0)、
（MSComm1のパラメータoutBufferSize:1024、Inputlen:1)
ともに試しましたが、うまくいきませんでした。
Settingsは送受信ともに、19200,n,8,1です。

ネットを調べて、OnComm()時に、
MSComm1.RThreshold = 0
を実行し、終了したら、
MSComm1.RThreshold = 1
などをしたのですが駄目でした。

>>275
＞MSCOMMがきちんと受信してくれません。
それは君の判断でしょ。起こっている何らかの事実を観察して、
「君自身が」そのように判断したわけだ。

人に質問してるんだから、「君の判断」じゃなく、
君をそのように判断せしめた「事実」を端的に書かなきゃ。

なんで読む人間の立場にたって文章かけないの？
それじゃ「サポセン」に出てくるアホなPCユーザーと一緒だよ。

動きません、どうしてでしょう？
―― そんなこと知るかよボケ

レスありがとうございます。
書き込みに不備があり申し訳ありません。
きちんと、受信してくれないと判断した理由は、
　
（MSComm1のパラメータInBufferSize:1024、Inputlen:1)の場合
4823ﾊﾞｲﾄまでは、
きちんと受信したデータがテキストに表示されるのですが、
そこから１０文字程度は、送信元のプログラムで入力したテキストとは
違うデータは表示され、テキスト表示はそれで止まりました。
strMoji = MScomm1.inputの後、
MSComm1.InBufferCount = 0を実行した場合は
最初から、送信元とは違うデータが表示されました。（それはそうですよね）
　
（MSComm1のパラメータInBufferSize:1024、Inputlen:0)の場合
9534ﾊﾞｲﾄまでは、きちんとテキストに表示されるのですが、
それからはデータがテキストに表示されません。
MsgBox MSComm1.CommEventも実行されません。
上記は、
strMoji = MSComm1.Inputの後に、
MSComm1.InBufferCount = 0を実行した場合です。
　
strMoji = Form2.MSComm1.Inputの後に、
MSComm1.InBufferCount = 0
を実行しない場合は、
MSComm1.CommEventに、comEventRxOverが帰ってきて、
受信バッファ オーバーフローが発生します。
InBufferSizeを2048にしたのですが、
結果は同じでオーバーフローしました。

>>277は>>278にはレスしない（できない）と予想。

>>279
>>277さんがこれからレスをくれなかったとしても、>>277さんのレスに感謝します。
私の書き込みに不備があったのも事実ですし。
今回の書き込みにもあるかもしれませんが、
どうぞ、よろしくお願いします。

きもいからどっか行ってくれる？
>>275と>>277

>>278
それだけの情報じゃ言えることは限られていると思う。
送信側、あるいは受信処理をしているPCのハードウェアに問題がないなら、
OnCommイベントの処理がなにか間違っているのだろう、としかいえない。

OnCommの処理を全部晒すわけにはいかないんですか？
それが一番話が早いと思いますが。

とりあえず現段階で他にいえることは、

● MSComm1.InBufferCount = 0みたいな「おまじない」は不要。

● Inputlen = 1はナンセンスだと思う。

● 特に理由がないなら、OnCommで受信バッファを読むのではなく、タイマを使って
バッファをポーリングするようにした方が安全かつ効率的。（当然RThreshold = 0)

● 4823ﾊﾞｲﾄ、9534ﾊﾞｲﾄといった数字には再現性はあるの？

● 受信バッファの文字列の長さが常に1、なんて前提でコードかいてませんか？

● 送信側で2バイト文字を送信しているとか、InputModeがバイナリモードになっている
なんてオチはないですよね？

>>282
レスありがとうございます。
現在、晒す用に、プログラムの無駄なコメントを編集中です。
　
＞● MSComm1.InBufferCount = 0みたいな「おまじない」は不要。
そうなのですね。

＞● Inputlen = 1はナンセンスだと思う。
　 なるほど。

＞● 特に理由がないなら、OnCommで受信バッファを読むのではなく、タイマを使って
＞バッファをポーリングするようにした方が安全かつ効率的。（当然RThreshold = 0)
　 タイマを使った処理は思いつきませんでした。
　 ネットで、調べて見ようと思います。
　
＞● 4823ﾊﾞｲﾄ、9534ﾊﾞｲﾄといった数字には再現性はあるの？
　昨日と文字数が違うので、再現性はありません。
　
＞● 受信バッファの文字列の長さが常に1、なんて前提でコードかいてませんか？
Inputlenが、０のときは、
strMojibufr = Form2.MSComm1.Input
For i = 1 To Len(strMojibufr)
strMoji = Mid(strMojibufr, i, 1)
　　 として、この後、strMojiをテキストに追加しています。
　
＞● 送信側で2バイト文字を送信しているとか、InputModeがバイナリモードになっている
＞なんてオチはないですよね？
　調べましたが無いです。

Private Sub MSComm1_OnComm()
On Error GoTo ERRSEQ
Dim t() As Byte
Dim strMoji As String
Dim Buffer As String
Dim strMojibufr As String
Dim i As Integer
Dim EventNo As Integer

L_intTab1Recv = 1
If L_intTab1Recfurstf = 1 Then 'レコード最初フラグ

Form1.lblTab1Recp.Caption = "受信中" '受信中表示項目
Form1.lblTab1Recp.Refresh
L_intTab1commedmsgf = 1 '受信終了メッセージ出力フラグ
Form1.btnTab1Recved.Enabled = False '受信終了ボタン
Form1.btnTab1Recvsp.Enabled = True '受信停止ボタン
L_intTab1Recfurstf = 0

End If

strMojibufr = Form2.MSComm1.Input
MSComm1.InBufferCount = 0
For i = 1 To Len(strMojibufr)
strMoji = Mid(strMojibufr, i, 1)
Form1.txtTab1Com1.Text = Form1.txtTab1Com1.Text + strMoji

Select Case MSComm1.CommEvent
Case comEvReceive
Case comEvSend
Case comEvCTS
Case comEvDSR
Case comEvCD
Case comEvRing
Case comEvEOF '（18）他の通信イベントでは何もしない
Case comEventBreak
MsgBox "中断信号を受信", vbCritical
〜
その他のエラーチェック続く
〜
Case Else
MsgBox "その他の通信エラー", vbCritical
End Select

If strMoji <> vbCr And _
strMoji <> vbLf Then
L_strTab1Rec1 = L_strTab1Rec1 + strMoji '出力レコードをセット
End If

'シリアルナンバーチェック
　　〜
　　読み込んだデータの１つめの項目のシリアルナンバーチェック
　　通常の処理なので省きます。
　　〜

If strMoji = vbCr Or _
strMoji = vbLf Then
If L_strTab1Rec1 <> "" And _
L_strTab1Rec1 <> " " Then
L_strTab1Itemarray = Split(L_strTab1Rec1, ",")
RESPONSE = tab1Editrec(1)　　　　　　　　　　　　　'取得したデータを出力
If RESPONSE = False Then
If L_bolbInTran = True Then 'トランザクション開始フラグ
Call Tab1Recvend
objOraSes.Rollback
L_bolbInTran = False
Form1.SSTab1.TabEnabled(1) = True
Form1.SSTab1.TabEnabled(2) = True
End If
End If
End If
L_strTab1Rec1 = ""
L_intTab1Serialckf1 = 1
Form1.txtTab1Com1.SelStart = Len(Form1.txtTab1Com1.Text) + 1
End If

Print #L_intTab1FileNum1, strMoji;
Form1.txtTab1Com1.SelStart = Len(Form1.txtTab1Com1.Text) + 1 'テキストの一番下にカーソルセット
Form1.txtTab1Com1.Refresh

L_intTab1commendf = 1 '受信終了判定フラグ

Next i
Exit Sub
ERRSEQ:
省略します。
End Sub

なんでタチの悪い回答者しかいないの？
いつものこと？

処理の概要は、ＣＳＶ形式で、データを受信し、ワーク文字列に溜め込ます。
受信したデータに、vbCrまたは、vbLfが出てきた場合は、
溜め込んだ、ワーク文字列領域を、配列にセットし、
その配列を使用してＤＢに出力する処理です。

この手のスレって、趣味の自主サポセンみたいなもんなんじゃないの？

伝送速度　9600 InBufferSize　 １０２４　timer1.Interval １　　4824文字
伝送速度　19200 InBufferSize　２０４８　timer1.Interval １０　4992文字
伝送速度　19200 InBufferSize　１０２４　timer1.Interval １０　6336文字
伝送速度　19200 InBufferSize　１０２４　timer1.Interval １　　7296文字
　
タイマーオブジェクトを使用して、設定を変えて処理しました。
タイマーイベントが動くごとに、Call MSComm1_OnCommを実行しています。
ですが、テキストに表示される文字が途中で止まってしまいます。
また、受信できる文字数に再現性はありません。

If MSComm1.CommEvent <> comEvReceive Then
Exit Sub
End If
を入れると、送信元のデータを１文字からきちんと取得してくれないので、
コメントにしました。
再現性が無いため、何かメモリ的な問題なのかとも思うのですが。

>>275
ネタじゃなくて本気で困ってるんですよねえ？
だったらMsCommのせいにする前に、一度冒頭のOn Error GoTo を取って
実行してみたらどう？

よほどの馬鹿でなければそれで原因がわかると思うよ。
逆にいえば、それでわからなければプログラミングの適性なさ過ぎると思うわ、悪いけど。

余計なお世話かもしれないけど、物事ちゃんと理解してプログラム書いたほうが良いよ。
理解してないでしょ？
MsCommの各プロパティとかイベントの意味を。

実行したときにform1じゃなくて、
form2をまず表字させるにはどうすればいい？

>>291
On Error GoTo
のとび先で、メッセージボックスを表示しており、
メッセージボックスが表示されないため、
特に、On Error GoToをコメントにしてテストはしてませんでした。
コメントにしましたが、
テキストボックスへの表示が途中で止まることに変化は無く、
エラーメッセージ等も表示されません。
もう少し自力で調べてみようと思います。

>>292
プロジェクト プロパティにスタートアップの設定がある。

既に書かれてるが、シリアル通信をそもそも知らず、しかもラップされたコントロールも理解せずじゃ、何作るんだ？状態だろ。

まあ、シリアルの場合可能ならばモニタリングツールをPCと装置の間に挟んで見るのが一番だけどね。
とりあえず、プログラムが悪いのか他が悪いのかは切り分けがつく。

で、プログラムが怪しいなら、シリアルコマンドエクスプローラーみたいなツールで、電文見るしかないワナ。

>>295
お前に何の関係があるのかが全く読み取れん。

>>295
どもどもです。
なんか、口が悪いながらも、
適切なアドバイスありがとうございます。
このスレは、そんな人が多くてなかなかいいですね。
　
とりあえず、送信側が悪いのか、受信側が悪いのか
送信したデータと、受信したデータを
テキストファイルに出力して確認してみようと
思います。

>>297
いや、シリアル通信の場合、そのログを通信の何処の部分で誰が採取するかが問題であって。
自分のバグ疑惑プログラムじゃない、別のツールなどで採取しないと客観性がないよ。

>>298
なるほど。
ツールをＶＥＣＴＯＲで探してみようと思います。
ありがとうございます。

>>297
一気に目的のプログラムを仕上げたい気持ちはよくわかるが（俺もそうだから）、
モノを作るときの定石として、とりあえず簡単なコードを書いて
MSCommに対する理解を確認した方がいいよ。
少なくとも君の場合、一気に目的のものを仕上げるだけのスキルはないと思う。
そんなことやってると遠からずモティベーション無くすよ。

使えるPCが複数あるなら、とりあえずVBtermをもっと単純にしたようなプログラムを
書いて2台のPCに入れて、お互いに送受信がうまくいくか確認することから始めたら？

>>300
お前に何の関係があるの？

この滑稽な一連の自演大会はいつ終わりますか？

>>300
確かにそうですね。ちょっと疲れてきましたorz
ＰＣは２台あるので、一方のＰＣで送信して、
もう一方のＰＣで受信したのをテキストボックスに表示するだけのところから
試してみようと思います。
　
ネットからサンプルプログラムをダウンロードして
実行するのですが、データが大量になると、
テキスト表示すらもうまくいかないので。
ありがとうございます。

言葉遣いが悪すぎたので再投稿します。申し訳ありませんでした。

>>297
一気に目的のプログラムを仕上げたい気持ちはよく分かりますが（私もそうですから）、
モノを作るときの定石として、とりあえず簡単なコードを書いて
MSCommに対する理解を確認してみてはいかがでしょうか。
私は一気に目的のものを仕上げるだけのスキルがないのに
そんなことやったために、モチベーションを無くしてしまいました。

使えるPCが複数あるのでしたら、とりあえずVBtermをもっと単純にしたようなプログラムを
書いて2台のPCに入れて、お互いに送受信がうまくいくか確認することから始められては
いかがでしょうか。もっとも私のスキルでは試すことすらできませんが・・・

>>304
ほぼ同じ（一部違うけどｗ）内容でもこれなら何の不快感も
ないのにな。>>300みたいにわざわざ不快感を織り交ぜる
理由ってなんかあるのかね。


会社での鬱憤を晴らすとかいうありきたりの理由以外で。

でも>>300ってそんなにきつい書き込みじゃないような･･･。
ホビーPGさんならゴメンナサイだけど、仕事でやってる人に対してなら>>300程度は言っても普通に思える。
それで飯食ってるんだから、少しは勉強しろ！って。

全然悪意は感じませんでしたよ。
私が鈍いだけかも。
現在モニタリングソフトを落としてます。

>>307
落してるとのことですが、お勧めはシリアルコマンドエクスプローラーかな？
まあ、気合があればWindows添付のハイパーターミナルでもいけますけど。

シリアルに限らず、通信アプリの場合は原因の切り分けの為に、その通信の仕様などの知識は必須ですよ。
論理的に考えて何処が怪しいっていう思考が出来ないじゃないですか、知識がないと。（まあ通信に限りませんが）

>>308
ありがとうございます。
シリアルコマンドエクスプローラーを使用しようと思います。
　
>シリアルに限らず、通信アプリの場合は原因の切り分けの為に、
>その通信の仕様などの知識は必須ですよ。
　
知識は無いのですが、とりあえずできることだけはやろうと思います
（現状をできるだけ把握する等）
現状を把握しないことには、
知識のある人に質問することもできないので。
ありがとうございました。

VB6で、refreshかけるとwindows上のプロセスが増え続けます。
原因は何でしょうか。
ちなみにexe終了すれば増え続けたプロセスは一気に開放されます。

- 環境 -
w2ksp4
vb6sp6
DB:PostgreSQL8.0.3
VB歴3週間

Private Sub Command1_Click()
Adodc1.Refresh　　　　　　　　　　←このタイミングで増える。
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = _
"Provider=PostgreSQL.1;Password=postgres;User ID=postgres;" & _
"Data Source=localhost;Location=DB_name" & _
Adodc1.RecordSource = "table_name"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub

>>310
Adodc1は何？

>>310
やってみたけど俺のところでは増えなかった。
DB（ODBCドライバ）が違うせいかな。

- 環境 -
w2ksp4
vb6sp6
DB:SQL Server 2000 Personal Edition

余談だけど、PostgreSQLを使ってる理由は何？
「無料だから」位の理由ならMSDE2000を使った方がいいと思うよ。

>>311p
それを聞いてあげないと出てこないってのが痛いね。
何のプロセスが増えるかも不明だし。

>>312
＞「無料だから」位の理由ならMSDE2000を使った方がいいと思うよ。
MSDE2000はいくらですか？

全くの推測で書くが・・・。
ぽすぐれってLinuxベースだから、スレッドじゃなく子プロセスで多分処理しますよね。
だから、接続なりしてそれをきちんと片さないでさらに接続した場合、そのプロセスは増え続けると思う。
（まあスレッドが見えずに増えるのも実害上は同じだがｗ）

>>311
何？とはどういうことでしょう・・・orz
Datagridに表示させようかと思ってます。
ということでしょうか。

>>312
postgreSQL使ってる理由は無料というのもあるし
せっかくWindowsで使えるようになったから
そして、まわりにPostgreSQLの本が何冊かあったから
です。

増えるプロセスは
postgres.exe　です。

ちなみに、練習中に気づいて気になっているだけで
実際の開発を行っているわけではありません。
ただ、原因がはっきりしないと気分が悪い、ということです。

糞レス読まされるこっちのほうが気分悪いわ！

見なきゃいいじゃん

>>311
＞「無料だから」位の理由ならMSDE2000を使った方がいいと思うよ。

なぜですか？

>>316
ﾎﾟｽｸﾞﾚｽﾚで聞いたほうがいいよ

>>320
ということはpostgreSQLのせいというか仕様と言うかなんと言うか
プログラム自体に問題はなさそうですか。
>>312さんのレス的にもやっぱそうなんでしょうか。
あっちのスレでも聞いてみます。
ありがとうございました。

>>321
別にそれでいいならいいけどな。
読解力ないと大変やのう。

え。
>接続なりしてそれをきちんと片さないでさらに接続した場合、そのプロセスは増え続けると思う。
ていうところでしょうか？

できればわかりやすく教えていただければその方がよいのですが。

2chの特定スレのレス数を取得したいのですがどうしたら良いですか?
subject.txtを読んで、レス数を取得する方法、
datを取得して、行数からレス数を割り出す方法なら解るのですが
どちらも余計な情報を拾ってくる為、subject.txtやdatのDLに時間が掛かります。

Janeなどでは特定1スレ(レス数900程度)のレス数チェック(新着チェック)は、0.5秒程度で終わりますが
subject.txtやdatをそのまま取得すると、それだけで3〜5秒程度掛かってしまいます。
取得後の処理に関してはDelphi製のJaneの方が高速なのは解りますが
取得に掛かる時間は回線速度依存でどちらもたいして変わらないはずなので、
ここで差が出てるということはsubject.txtやdatをそのまま取得せずにレス数を得る方法があると思うのですが
Janeのソース(OP言語)は読めないのでどうすれば良いのかも解りません。

VBと言うよりは2chの仕様に関する部分も大きいとは思いますが
お詳しい方、何とぞ回答をお願いします。

>>324
パケットモニタでなにやってるか見たら？

Oracleを使用していましてSQLでUPDATEしたいと考えています。
その際にUPDATEしたらレコードが重複するかどうか調べる方法は無いでしょうか

>>326
UPDATEする前に、UPDATEするのと同じ条件でSELECTしてみて
複数レコードがあったら重複する

>>326
私もその方法を考えていたのですがそれしかないようですね　ありがとうございます

コマンドボタン押したときにあるURLに飛ばしたいんだけど
どうすればよいかなぁ？

>>329
知ってるが
お前の態度が
気に入らない

教えてくださいおねがいします。お代官さまー。

>>331
>>330

>>324
HTTP(HyperText Transfar Protocol)のIf-Modified-SinceヘッダとRangeヘッダ

すみません教えていただきたいのですが、
text.1からtext.5まで入力された数値の平均をlabel.1に、
入力された数値データの個数をlabel.2に表示させるにはどうすれば
よいのでしょうか？
基本的なことですみません。

Dim Count As Long
Dim Sum As Double
Count = 0
Sum = 0
If IsNumeric(Text1.Text) Then
Sum = Sum + Text1.Text
End if
中略
Label1.Caption = Sum / Count
etc,etc...

なんで教材にVB使うんだろうねぇ。
Cなら只だし勉強向きの書籍もいっぱいあるのに。

Dim Ave As Double

'合計
Cnt = 5
'へーきん
Ave = (text1.Text + text2.Text + text3.Text + text4.Text + text5.Text) / Cnt

もうコレでいいんでない？
入力されていないとか数字以外の場合も問われたら「分かりません」って答えるんだ！！

ありがとうございます。
でもcountも5で固定じゃなく、
入力されたデータ数を数えるようにしたいのですが
わかりますか？

>>337
入力されたデータ数とは？

テキストボックスは5つありますけど、
例えばテキストボックス2つしか入力されなかった場合は
count=2になるようにしたいのです。

>>339
Len(Text1.Text)<>0ならcountを増やすとか、少しは考えようよ。

>>340
なぜですか？

Text1, Text2, Text3 .......
と同種のテキストフィールドがあったとして
繰り返しのためにたとえばi=2として
Texti.text見たいな感じでText2.textの入力データ取り出すことできないの？

できる

どうやるんですか？
"Text" & i & ".text"
これだと文字列になっちゃうし．．．

コントロール配列にでもすればいいじゃないか・・・

おもっくそスルーされてる
まあいいけど

ありがとうございます
その名前がわからなかった

かぶせさせてもらいますが
"Text1.text"
と文字列化したものをまた変数として扱うにはどうすればいいのでしょうか？

どうしようもない。

そうですかありがとー
PHPとかもやってるとわけわからなくなってしまって

お前自体がわけわからん

>>340
でけた。ありがとー。

すみません。１つ教えてください。
VB6でコールバック的な処理って出来るでしょうか？

例:


sub Main()
CALL ASUB(CallBackFunc)
end sub

sub ASUB(aFunc)
return aFunc(1,2,3)
end sub


sub CallBackFunc(a,b,c)
debug.print a,b,c
end sub

よろしくお願いします。

>>348
"Text1.Text"を文字列化って、どぅやったんですか？

Dim objText As Object
objText = Text1
objText.Text …
ってのはできる。

>>353
そのメソッドをどこかのクラスモジュールに作って
クラスのインスタンス変数を渡すという手があります。
コールバック関数の数だけクラスモジュールが出来るけどな。
つまり
Sub ASUB(ByVal CallBackObject As Object)
　　CallBackObject.aFunc 1, 2, 3
とするわけです。
コールバック用クラスは任意のクラス名で
Sub aFunc(a, b, c)
　　Debug.Print a; b; c
と。

渡されたCallBackObjectオブジェクトに確実にaFuncがあるのか？
という話なら、Implementsちゅう機能を使うとよいです。

でなきゃCallByNameで出来たんだっけ?

' Text1はコントロール配列
Dim Count As Integer
Dim Sum As Double
Dim OneTextBox As TextBox
For Each OneTextBox In Text1
　　If IsNumeric(OneTextBox.Text) Then
　　　　Sum = Sum + OneTextBox.Text
　　　　Count = Count + 1
　　End If
Next

Label1.Caption = Sum / Text1.Count
'または
'If Count <> 0 Then
'　　Label1.Caption = Sum / Count
'Else
'　　Label1.Caption = "N/A"
'End if
Label2.Caption = Count

>>334よ、答えが分かれば満足なのかも知れないが
Text.1なんて変な書き方してるということは、ろくに
手を動かしたことがなくてコピペで済ませてるだろ。
説教くさくてごめんよ。

>>355

ありがとうございます。
やってみます。

また分からないことがあったら教えてください。

ファイル名に使用できない文字を置換してくれる関数か、ファイル名が妥当かチェックする関数ありますか？

すんません。自己解決しました。

質問させていただきます。

ボタンをクリックした時刻から４８時間後の時刻をＡとします。

Private A as Date

Private Sub Command1_Click()
A = DateAdd("h", 48, Now)
End Sub

タイマーイベントでＡまでの残り時間を表示する処理をしたいと考えております。

Private Sub Timer1_Timer()
dim B as Date

B = A - Now
Text1.Text = Format(B, "hh:nn:ss")
End Sub

この場合、"hh"のところに２４時間以上の表記ができるプログラムを作成したいのですが、
ご教授願います。
タイマーのインターバルは１秒(1000m秒)です。

残りのトータル秒数がわかれば時間も分も秒も計算できるべ？

Int(B) * 24 + Hour(B) & Format(B, ":nn:ss")
じゃダメなの?

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

>>362
完璧です。早速採用させていただきます。
ありがとうございます。

たいへんすいません。
エクセルのVBAで小数点の切り上げ方が（切り下げ方も）判りません。
cells（1.1）＝round（ｘｘ、0）
だと動くんですが、cells（1.1）＝roundup（ｘｘ、0）とやると
エラーになってしまいました。
どなたか教えてください。

VBAは別スレ

>>364
VBAなんて資料いっぱいあると思うんだけどなんで質問する前に自分で調べないんだろう。

ここに使い方書いてあるみたいだから、手動でやってマクロ記録してみたら？
http://support.microsoft.com/default.aspx?scid=kb;ja;880970

ごめんなさい。ＶＢＡって別スレなんですか・・・
一応、調べたんですが、ワークシート上じゃ簡単なんですが
ユーザーフォームとコマンドボタンでやると動かないんですよね。
困った〜

>>363
何様のつもりだ。

>>368
お互い様。

>>369
違うよ。

　ＶＢで、mdbにデータを保存したいんだが、どうすればいい？

>371
ADOとかDAOとか使うとか

VB <->mdbの連携なんかいっぱい本あるだろう。

With文の　制御構造外ってのがよくわからないんだが、

With Me

.Top = Left(.strTop,5) - 1000

End With

みたいにＶＢ組み込みの関数なら問題ないんだよね。

APIとか自作の関数がＮＧって事で間違いないかな。

>>374
クラス（class）なら自作でも With 〜 End With文 利用できるよ。

テキストボックスについて質問です。

TextBox でEnableプロパティを Falseにすると表示されている文字が灰色になってしまいます。
そこで文字色を灰色ではなくて黒のままにしておきたいのですが、そのようなことは可能でしょうか。
Frameの中にTextBoxをいれてFrame.Enabel=Falseにすると文字色は黒のままで文字の入
力もできなくなるのですが、なにかもうちょっとすっきりできないのかと思っています。
WindowsAPI使って実現できませんでしょうか。

よろしくお願いします。

質問です。

既存のボイスチャットソフト（TSとか）を使ってる時、
ボタン1つでwavを再生し相手に聞かせるプログラムを作りたいのですが、
その方法が見つかりません。

どのような方法があるでしょうか。よろしくお願いします。

>>374
何を聞きたいのかサッパリ理解できないし、それが俺の読解力のせいとも思えん。
「制御構造外」とは何？

しかし>>375はよく374の意図がわかるな。エスパーですかひょっとしてw

>>378
お前は話しにならん

>>376
知ってるならその方法でいいじゃん。
なぜもうちょっとすっきり出来ないか教えてあげよう。
フォームにですね、深く掘り込まれた枠で（クラシック表示のとき）、
白い背景で、黒い文字が（白とか黒は環境依存)書かれた場所は、
「何か文字を入力できる｣
ということを表す記号(表現)なのです。
逆に言うと、入力できないのにグレーでないのは、あまり
よろしくないと、つまりユーザーが混乱するよと、M$はかんがえたのです。
Windowsではそういうルール（ガイドライン)になっているので、
「ガイドラインを知らなくてもそのように作れるように」
EnabledをFalseにすると、親切でグレーにしてくれているのです。

WindowsAPIでどうにかならないか、ということだけど、
EnabledがFalseのときにグレーになるのは、VBでもたぶん
EnableWindow(hWnd, fEnable)というAPIでやってるの。

あきらめてください。
でなきゃ自作。

複数行のコメントアウトってどうやるのでしょうか？

>>381
ツールバー > ユーザー設定 > コマンド > 編集 > コメントブロック
キーに割り当てたければアドイン作れ。

>>382
ありがとうございます。
無事、登録できました。

WebBrowserコントロール上で押されたキーを得るにはどうすれば良いですか?
KeyDownイベントが見あたらないんですが、まさかフックしなくちゃダメなんてことは無いですよね。

FormのKeyPreviewじゃだめ？

>>384

WebBrowserにはKeyDownイベントが無いので MSHTML.HTMLBody の WithEvents して HTMLBody_onkeydown() イベントを拾って
MSHTML.HTMLWindow から MSHTML.IHTMLEventObj を取得して 押されたキーを調べる



Dim WithEvents objEventBoby As MSHTML.HTMLBody

Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
　　Set objEventBoby = pDisp.Document.body
End Sub

'WebBrowserでキーが押された時のﾊﾝﾄﾞら
Private Sub objEventBoby_onkeydown()
Dim evn As MSHTML.IHTMLEventObj

　　Set evn = WebBrowser.Document.parentWindow.Event

　　'押されたキー
　　Debug.Print evn.keyCode

　　Set evn = Nothing
End Sub

後は自分で何とかしろ

後は考えてみてください、の間違いでした。

なんていい奴なんだ（つд`）

二次元配列を他の関数の引数にするとき
Dim a(10, 5) as Double

for i = 0 to 10
　call 他の関数(a(i , ))
next
配列の一番目(10で定義してある)の部分のみをiにしたいんだけど
どうすればいいのでしょうか？

>>389
素直に
Call 他の関数( a , i )
にすれば問題無いわけだが。

VB6.0において１次元配列の初期化をする方法はないでしょうか。

>>391
初期化とは0でクリアなのか何かの値を入れたいのか

>>392
配列の数だけNULL値を入れたいです。

>>393
NULL値？初期状態にしたいだけなら
Dim A() as ほげ
で宣言しておいてクリアしたいときに
ReDim A(数)してやれ

TabStripのタブにウェブブラウザで取得したサイト名を表示させたいのですがうまくできません。
TabStrip.Tabs.Add , , "あいうえお"とやるとキャプションが設定できているようで表示してくれるんですが
TabStrip.Tabs.Add , , WebBrowser1(index).LocationNameでは空白のままです。
文字列型に代入してやってみてみましたが同じでした。
Addのあとにインデックスを設定していないのがだめなのでしょうか？
また、このキャプションの設定は追加する時のみにしか設定できないでしょうか？

バージョンは6.0です。
よろしくお願いします。

sage忘れました。

>>395
Addの前に
Debug.Print WebBrowser1(index).LocationName
でも入れて、ちゃんとLocationNameが入ってきてるのは確認できてる？

>>397
やってみたところ入ってきていませんでした。
ただ、タブをすべて削除するという下のプロシージャを実行した場合は削除後にキャプションが設定されました。
Private Sub AllDel_click()

TabCtrl.Tabs.Clear
Debug.Print WebBrowser1(0).LocationName
WebBrowser1(0).Navigate ("http://www.yahoo.co.jp")
TabCtrl.Tabs.Add , , WebBrowser1(0).LocationName
TabCount = 0

Del.Enabled = False
DelButton.Enabled = False

End Sub

Private Sub AllDel_click()

TabCtrl.Tabs.Clear
WebBrowser1(0).Navigate ("http://www.yahoo.co.jp")
Debug.Print WebBrowser1(0).LocationName
TabCtrl.Tabs.Add , , WebBrowser1(0).LocationName
TabCount = 0

Del.Enabled = False
DelButton.Enabled = False

End Sub
↑でも入ってきてる？

まぁBusy見るかイベントで設定するかしてくれと。

>>399
はい。はいってきてます。

うーん、それは入ってるとは言わないけど・・

WebBrowser1(0).Navigate ("http://www.yahoo.co.jp")
While WebBrowser1（0）.Busy: DoEvents: Wend
TabCtrl.Tabs.Add , , WebBrowser1(0).LocationName
’このまま使用すると大いにバグだからイベントで。

空白タブになるのは多分、WebBrowserでページの読み込みが完了していないのにタイトルを取ろうとしているから
Navigateした後にｽｸﾞにAddはイカン！！

WebBrowserはページの読み込みが完了しないと満足にメソッド・プロパティが使えないからね
タイトルは DocumentCompleteイベントかTitleChangeイベントの通過後でないと駄目

ご参考に…

ちなみにブレイクポイントで止めて LocationName を見る場合は デバッグでロジックを止めた時点でページの読み込みが完了するので
正確な値が返って来るので注意

事後報告無しが続くなあ

>>400
busyについてよく分かっていないので明日調べてやってみます。

>>402
入ってないんですか。
てっきりyahoo!と表示されたので・・・。
そのプログラムについても調べてみます。

>>403
読み込みが完了してからですね。
自分なりにやってみようと思います。

>>377はわかりませんか
もしかして、文章が分かり難いですか？

>>406
わかるけどな。
ちゃんとするにはVBだけでは無理。

VBで作ったテキストファイルにEOFを付加するにはどうすればいいでしょう？

親切なエスパーさん、「テキストファイルにEOFを付加する」ってところを翻訳してw

>>408
EOFコード(&H1A)を入れて文字列をバイナリデータとして保存
EOFコードってWindowsでは使われてないでしょ？　必要あるの？

>>407
VBで、できないってことはスレ違いな質問でしたね・・・すいませんでした。
Cの方で聞いてみます。
ありがとうございました。

>>394
返信ありがとうございます。初期化することが出来ました。

テキストボックスを透明にする事は可能ですか？
もし可能なら方法を教えてください

>>413
やりたい事がいまいち伝わってこないが、絵などの上に入力したいのか？
日本語なども必要ならIME,IMMあたりで自作。

>>414
回答ありがとうございます。
透明化自体は無理ですか？

>>415
透明化というものが何を指すかわからんからなんとも。

ピクチャーボックスに貼り付けた画像上にテキストボックスかリッチテキストボックスを
貼り付けたいのですが。

テキストボックスの背景に画像を入れたいってことか?

動的にテキストボックスを画像上に配置したいのですが、
この時に位置あわせの為に下の画像が見えるようにしたいのです。
で、その為にテキストボックスを透過させたい訳です。

説明が分かり難くてすいません。
WORDの図形描画でのテキストボックスの配置が
イメージに近いと思います

>>419
Wordは知らん。
2000/XP以降でいいなら別のウインドウ作ってBorderStyleを0にして
ウインドウごと透過させるって手もあるようなないような

>>421
かなり強引だがVBでは妥当かもな

421に蛇足
SetLayeredWindowAttributesだったかなーウインドウごとのは。
一度昔使ったきりだから忘れたや。

busy等について調べてみてなんとなくわかりました。

イベント通過後に変更しようと思うのですが、キャプションのみの設定はどのように
記述すればいいのでしょうか？あと、TabStrip.Tabs.AddのインデックスはTabStripプロパティの
プロパティのタブにあるインデックスのことでしょうか？

>>424
TabStrip1.Tabs(1).Caption = "a"
など・・・ヘルプやGoogleやIDEの入力支援で探す努力くらいはやらないか

>>419
ラベルじゃダメなの？
ラベルなら何も考えずにできるとおもうんだけど。
ユーザーが文字編集できるようにしたいなら、その時だけ同じ大きさの
TextBoxを同じ位置にBringToFrontして表示すればいいんだし。

>>425
検索してみたのですが、検索方法が悪いのか目的のものがなかなか出てこなかったので。。。
入力支援でいろいろやってみたのですが、Tabsの後にインデックスをつけてると.のあとにCaptionが
でてくるということに気づきませんでした。

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

SetLayeredWindowAttributesだと、画像も透けちゃいませんか？

質問者は2度目の書き込み以降は
必ず名前欄に最初の質問のレス番号を入れましょう。

>>428
別のウインドウ(Form)作ってと言ってるだろ！

自分で作ったdllを呼んで処理を行うclassモジュールを作ったんだけど
なぜかdllを呼んで、dllから帰ってきた後VBのプログラムが不安定になるよ・・・
pictureをクリアーする「.cls」の部分で突然落ちるし、ファイルを開く「open〜」の部分でも突然落ちる
デバックしたけど落ちる場所がよくわからないしヽ(`Д´)ﾉｳﾜｧｧｧﾝ
dllへ変数を参照渡しで送って、計算したものをVBへ返してもらってるんだけど
返ってきた値におかしいところは無かったです

ちょっとでも原因がわかる人がいたら助けてもらえませんでしょうか
｡･ﾟ･(ﾉД`)･ﾟ･｡

そういう質問は、現物をソース付きで上げてもらわないと何とも言えないな。

VB6上で、wshを使いたいのですが、
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run("hoge.exe")
とかの使い方わ解るんだけど
Wscript.Echo "Hallo"
Wscript.Sleep 1000
などをどうやって使えば良いのかわかりません。
Windows Script Host Object Modelを参照設定してもダメです。
代用法ではなく、上記のことを行える方法をご存じの方、どうかご教授お願いします。

>>433
結果から言うとVBから WScript は使えない。
なぜかというと WScript.Shell は外部公開されているけど WScript はされて無いから。
WScript は VBS(ro JScript) の環境下でした使えない(当然ライブラリも存在しない)。

外部公開されてない以上 VBS でしか使う事ができんのです。
どうしても使いたかったら マイクロソフトに 「WScript を外部公開しろ」と言って下さい。

まぁ VBS から VB製のActiveXを呼び出して その ActiveX に WScript を渡すという事は出来るんだけど。

VB6.0とＳＱＬ鯖2000って仲がいいのですか？

いいよ。

はい次↓

VB6 使用してます。

Web上にある画像を読み込んで、その画像を加工したいと思ってます。

jpgやbmpだったら
OleLoadPicturePath（） を使って一旦PictureBoxに貼り付けて
ピクセルモードにしてピクセル単位でいじれたのですが
pngだと上の関数で読み込めませんでした。

なんとかピクセル単位のテーブルを作りたいのですが、
方法ありませんか。

ご存じの方いたら教えて下さい。

Variant型の配列をNullで初期化したいのですが、ループを使う以外に
もっとスマートに書くことはできますか？

×PictureBox
○Picture

>>438
ある

ADOを使用して、ファイルメーカーのデータベースに接続しようとしています。
接続文字列は以下の様に設定しました。

CONN.Open "Provider=MSDASQL;driver=FileMaker Pro;database=XXX.fp5;password=1111"

この接続文字列を使用して、
RS.Open "SELECT * FROM XXX.fp5", CONN　を実行すると
下記の実行時エラーが発生してしまいます。

[FileMaker][ODBC FileMaker Pro driver][FileMaker Pro]無効なﾃﾞｰﾀﾍﾞｰｽ名

この処理を行う前に対象DBがあるファイルメーカーは起動しています。
ファイルメーカーのDBに接続する場合、テーブル名とﾃﾞｰﾀﾍﾞｰｽ名は同じ名前で
よいのでしょうか？
よろしくお願いします。

ListBoxでStyle

↑不注意で書き込みボタン押してしまいました。すいません。

質問です。

ListBoxでStyleをチェックボックスにして

For i = 0 To List1.ListCount - 1
List1.Selected(i) = True
Next i

のように全部チェックをつけるとき、数百行あるだけでもえらく時間がかかるんですが、
速度を上げる良い方法はありませんか？
（できればチェックつけながら勝手にスクロールするのもやめさせたいです。）

>>443
List1.Enabled = False
List1.Visible = False
For i = 0 To List1.ListCount - 1
List1.Selected(i) = True
Next i
List1.Visible = True
List1.Enabled = True
一瞬じゃない？

>>444
enabledいらないんじゃ？

最後に
List1.listindex=0
とかもね

>>445
無いと一瞬ちらつくから入れてる

>>444,445

ありがとうございます。
早くなりました。

SSTabに、コンボボックスをドロップダウンコンボ形式でいくつか配置します

他のタブからコンボがあるタブに戻ってくると、
なぜかそのタブにある全てのコンボボックスのTextが、
全選択されています

見た目悪いので、これを回避したいのですが・・・
タブクリック時にSelStartを1にすれば一応回避は可能なんですが、
一画面内のコンボボックスの数が多くて、その分書くのがめんどくさいです

何か、もっとスマートに回避できる方法はないでしょうか？

WindowsXP (SP1) / Visual Basic 6.0 (SP5)

StrConv関数 について質問です。

S = "\\\test\\\"
D = StrConv(S, vbWide)

この様なコードを書いた場合に、変数 D が

"￥￥￥ｔｅｓｔ￥￥￥"

とならずに、

"\\\ｔｅｓｔ\\\"

となってしまいます。

"\" だけ Replace関数 を使うしかないのでしょうか？

>>449
自力で変換の関数書いては

XXX　がデータベースの名前で
fp5　がテーブルの名前？
だったら
database=XXX
SELECT * FROM fp5
です。
ていうかおまえデータベースとテーブルがごっちゃに
なってないか？

Variant型の配列をNullで初期化したいのですが、ループを使う以外に
もっとスマートな書き方ではどう書けばよいですか?

>>452
>>438

何でVariantをNullで初期化する必要があるの？
Variantの初期値はEmptyでしょ。
NullとEmptyのちがい分かんないの？

FillMemory() で初期化しなさい。
データの長さは Variant型が16Byte の変数であるから　もう分かるよね〜
初期化の値は 0 でいいよ。

そんなことして大丈夫なの？

>>453
すみません、>>438は>>440で「ある」としか回答をもらっていないようなので、
（ただ、>>440氏の回答では>>438氏の質問にある「書くことは
できますか？」という
問題が解決していないので、実際出来るかどうかもまだ判然と
しないのですが）
こちらはどう書けばよいか、という問題の答えを探していますので
>>438では解決しませんでした。お手数をおかけしました。

>>454
Nullの伝播を前提としたライブラリを使用する必要があって、
初期値としてNullを持った変数が必要になります。
他社から提供されるActiveX DLLなので中身は分からないのですが、
想像するに、中でLeftやRightの$なし関数を使っているなどして
いるようで、Enptyを渡すとNullが返らないので結果が変わってしまいます。
NullとEmptyが違うので、あえてNullで初期化する必要が出来ています。

Enpty→Emptyです。

問題外。出直して来い。

VBのReplace関数ってバグがありませんか？
引数(start)設定時に1よりも大きくすると正常に動作しませんよね？

>>459
問題が起こる最小限のサンプルコード見せてくれ

>>459
言いたいことはなんとなくわかる

ヘルプを百万回読み直せ

>>459
正常に動作するけど。
もしかして
> 引数 start を指定した場合、Replace 関数は、指定された位置から引数 expression の文字列の末尾までを返します。
という公式仕様をバグだと勘違いしてる?

恥ずかしい奴だなw

>>437
既存のライブラリ等を使うか、もしくは自前で実装。

VB6で任意の文字をsendmessage関数を使ってメモ帳に送ろうとしているのですが、送れないんです。。返り値も０でテキストも表示されません。
WM_CHAR以外にもいろいろためして
みたのですが、どれも反応してないようです。
FindWindow関数やFindWindowex関数など、ぐぐってぐぐっていろいろ調べて、サンプルコードもたくさんあったのです参照して、
同じコードを使っても動かなくて、他をいろいろ見ても結局同じコードで説明しているのでこれ以上は調べようがなく・・アドバイスもらえないでしょうか；＿；
ウインドウハンドルはちゃんと取れているようです。（他のアプリで調べました）

プログラムは以下のとおりなのですが、どこが問題なんでしょうか・・？
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
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 Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" _
(ByVal hwndParent As Long, _
ByVal hwndChildAfter As Long, _
ByVal lpszClass As String, _
ByVal lpszWindow As String) As Long
Private Sub Command2_Click()
Text1.Text = "ready"
Dim hWnd1 As Long
Dim hWnd2 As Long
Dim retvalue As Long
hWnd1 = FindWindow(vbnullstring, "無題 - メモ帳")
Text1.Text = hWnd1
hWnd2 = FindWindowEx(hWnd1, 0, "Edit", vbnullstring)
Text2.Text = hWnd2
retvalue = SendMessage(hWnd1, WM_paste, 52, 0)
End Sub

>>465
最後のSendMessageはhWnd2に向けて送れよ。

>>466
あー、すみません、いろいろ試してたので・・

retvalue = SendMessage(hWnd2, WM_CHAR, 52, 0)

とかでやってもダメでした。。

retvalue = SendMessage(hWnd1, WM_CLOSE, 0, 0)

も動かないです。

なんかもっと基本的なことか根本的な間違いでしょうか・・＠＠

>>465
なんだこれw
WM_PASTEって文字通り「貼り付け」でしょ？
何を貼り付けるの？それはクリップボードの文字列だよね。
その辺わかってるのかな。

retvalue = SendMessage(hWnd1, WM_paste, 52, 0)
↓
Clipboard.SetText Text1.Text
retvalue = SendMessage(hWnd2, WM_paste, 52, 0)

Setの前にはClear

やっと動いた・・・

Private Const WM_CHAR = &H102

を追加したらWM_CHARは動くようになりました。なぜこれが必要なのか
よくわかんないけど。。
アドバイスもありがとうございます。

ｵｲｵｲ.........

Option Explicit
-----------------

Option Explicit を付けないと 変数宣言が必要なくなるスーパー言語VB

変数宣言ないほうがコンパイラの実装楽だしな

一つ質問させてください

「卂」という漢字（第二水準以降の文字？）をテキストボックスに
入力した後にDBの項目に対して更新かけると「？」になって登録されます。

外字登録せずに「卂」で登録できるようにするためには
どのような手法を使えばよろしいでしょうか？

処理はこんな感じで実装しています。

Dim strSQL As String

gobjConnect.BeginTrans

strSQL = "UPDATE T_TEST SET Item01 = '" & Me.txtText.text & "'"

Call gobjConnect.Execute(strSQL, , adCmdText + adExecuteNoRecords)

gobjConnect.CommitTrans

接続はADOで行っています。

VB6(SP5)＋SQL-SERVER7.0

>>476
UNICODEをまともに扱いたかったらVB.NETでも使ってくれ

確かにおっしゃるとおりなのですが
今からそれをやることができないので
なんとか今のヴァージョンでクリアさせたいのですが・・・

無理な話なんでしょうか？

>>478
無理とは言わないが・・・
大抵のコントロールは入力出力UNICODEが通らない
内部での扱いやOSでもきつい
ttp://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200306/03060029.txt

>>479

早速のResありがとうございます。

表示に関してはgrapecity社のSpread7で回避ができそうなのですが
問題はDBに登録する際に「？」になってしまうことなのです。

回避する方法を教えてください、お願いします。

>> 476
VB標準のコントロールはUnicodeを扱えない。
Unicodeを扱いたいなら、Unicodeに対応したコントロールを買ってくるか、
作る必要がある。他にもUnicodeを扱えない場面は多々ある。
ぶっちゃけVB6で作るのはあきらめて、Javaか.NETかC++にするのが良い。

>>480
しらんがな。
Spread7の人間に聞いてくれ

>>481
もう納品済みな物なので今から方向転換するのが厳しいのです・・・
Spread7でUnicodeが扱えるのでそっちで聞くことにします。

csv形式のファイルから、任意の行だけを読み込みたいのですがどうすれば良いですか？
大きなファイルなので、一度全て読み込んで・・・ということはせずに処理したいのですが。

>>484
DBに変換して使う
INDEXファイルを作っておく
1行づつ読んで改行を数える
一度全て読み込んで

どちらにしろ、一発じゃ無理

サブキーを持つレジストリキーを一発で削除する方法を教えてください。
IWshRuntimeLibraryのRegDeleteメソッド、
APIのRegDeleteKey関数では、サブキーを持つものは1発では削除できませんでした。
ググっても.NETの方法や、VB6でもAPI使えばサブキーを持つキーの削除が出来るって情報はあるのですが
具体的にどうすれば良いのかが解りません。
レジストリスクリプト(.reg)やreg.exeをつかっての削除ならわかるのですが
そういったものを使わずにVB6でサブキーごと一発で削除する方法をご存じの方、どうか教えてください。

>>486
質問する前にググッた？
いや、そんなはずはないな。

俺もレジストリのキーの再帰的な削除なんてやったことなかったんで
ググってみたけど、3分程度で答え見つかったよ。

oggを再生する方法教えてください。
VB6.0です。

>>488
DLL使うのが無難だな

>>489
レスThx
調べてみてVoxっての見つけたんだが、うまく出来んorz
ヘルプ見てｺﾋﾟﾍﾟしたんだが、エラーが出る(´･ω･`)

dll使うの初めてだから良く分からないorz

どこかに良いサンプルみたいなのってありますか？

「エラーが出る」だけしか書かない奴にかける言葉は無い

Option Strict Off
Option Explicit On
Module vox
Public ID As Integer
Declare Function VoxLoad Lib "vox.dll" (ByVal pFileName As String) As Integer
Declare Function VoxPlay Lib "vox.dll" (ByVal ID As Integer) As Boolean
Declare Function VoxPause Lib "vox.dll" (ByVal ID As Integer) As Boolean
Declare Function VoxRelease Lib "vox.dll" (ByVal ID As Integer) As Boolean
Declare Function VoxSetLoop Lib "vox.dll" (ByVal ID As Integer, ByVal Count As Integer) As Boolean
Declare Function VoxCheckDevice Lib "vox.dll" (ByVal ID As Integer) As Boolean
Declare Function VoxSetVolume Lib "vox.dll" (ByVal ID As Integer, ByVal Volume As Integer) As Boolean
Declare Function VoxGetVolume Lib "vox.dll" (ByVal ID As Integer) As Integer
Declare Function VoxFade Lib "vox.dll" (ByVal ID As Integer, ByVal StartVolume As Integer, ByVal EndVolume As Integer, ByVal FadeTime As Integer) As Boolean
Declare Function VoxDelete Lib "vox.dll" (ByVal ID As Integer) As Boolean
Declare Function VoxGetTotalTime Lib "vox.dll" (ByVal ID As Integer) As Integer
Declare Function VoxGetCurrentTime Lib "vox.dll" (ByVal ID As Integer) As Integer
Declare Function VoxSeek Lib "vox.dll" (ByVal ID As Integer, ByVal Time As Integer) As Boolean
Declare Function VoxGetStatus Lib "vox.dll" (ByVal ID As Integer) As Integer
End Module

'再生
ID = VoxLoad("C:\a.ogg")
Call VoxPlay(ID)
-------------------------------------------------------------------------------
＞Option Strict Off
＞Option Explicit On
＞Module vox
＞End Module

ここの部分がエラー出る。.NETのものなのかな？
Option Explicit On　→　Option Explicit
にして、他削ったらエラー出ないけど、動かない(´･ω･`)分かりにくくてｽﾏｿ

今　Vox　落として確認してみた　このVBサンプルは .NET だよ

>>493
.NETじゃなきゃ使えないって事？
工夫次第で使えるのかな？

十分使える　API の宣言　Integer　を Long に変えれ

>>495
出来た！
ﾏｼﾞでThx。
ありがとう｡･ﾟ･(ﾉд`)･ﾟ･｡

>>487
ググりましたよ。
でも値を持つキーごと削除する方法とか、再帰的に削除する方法は解るんだけど
XPのreg.exeみたいにキー以下にサブキーがあっても一発で削除出来る方法が分からないです。
NETの方法とか書籍の見出し広告ばかりヒットしちゃって。

ググって答えを見つけたなら、そのページへのリンクを貼ってください。
ページ直ではなくGoogleの検索結果一覧へのリンクでもかまいません。
間違いなく検索結果の10件の中に答えがあるというなら、後は自分で探しますから。

RegEnumKeyEx

>>497
検索の仕方が甘いというか、諦めるのが早すぎると思うよ。根性なさ杉。

まずMSDNでRegDeleteKeyの項を確認するのは当然普通にやるよね？
そうすると「参照」のところになにやらそれっぽい臭い関数名が書いてあるじゃない。(SHDeleteKey )
で「RegDeleteKey SHDeleteKey」で検索かけると。。

上手く検索できる人はこんなとこ利用しないと思いますけど。。。

うんだから魚より魚の釣り方を提供した方が親切だろうと思うわけですよ。

。。。ってそんな偉そうにいうような大仰なもんでもないと思うけどね。
誰でも>>499程度の知恵は使うでしょ、誰にも教えられなくても。

VB6使ってます
テキスト１とテキスト２に数値を入れてコマンドボタンを押すと
テキスト１に入力した数値からテキスト２に入力した数値までを
全部足していくプログラムのやり方を教えてほしいです
テキスト２のが小さい場合はテキスト１までの数字を足していくって感じで

>>502
･text1とtext2どちらの値が小さい(大きい)かを算出
･forで小さい方の数から大きい方の数までのループを組む
･ループ内で｢変数=変数+forのカウンタ｣という処理を行う
･ループを抜けたとき変数に入ってた値がお望みの物

>>503
ありがとです
なんとなくやり方がわかりました
やってみま

SendMessageで出来ること一覧、みたいなものありますか？

定数の一覧とかはたくさん見つかるんですが、定数だけわかっても
パラメータの乗せ方って動作によって違いますし。。。

> 出来ること一覧
なんでも。

つーか出来ること一覧から選んで使うんじゃなくて
やりたいことから必要な物を探し当てるのが普通だろ。
出来ること一覧なんてまともに出したら万単位じゃきかないんだから有っても無駄だよ。

>>506
う、そうですね・・・
私の探し方が未熟なんでしょうかorz

開発してると、毎回SendMessageでやりたいことがいろいろ出てきて、
事案ごとにキーワード変えながら検索してみるんですが、
クリーンヒットってほとんどないんです

「SendMessageで○○をしたい」と考えたとき、
どんなふうに探されてますか？
なんかあいまいですみません・・

spy++で調べて、解らなければその情報を元に検索する。

つうかさ、SendMessageとかAPI使うなら、きちんとWindowの仕組みを勉強しろよ。
何のメッセージを送ってるかそもそもわかってないでしょ。
誰が誰にメッセージしてるかとか、それが一体何で、どうやって到達するかとか。

>>505
「SendMessageで○○をしたい」で方法に辿り着けず挫折した事も多いんじゃいかな
SendMessageは定数の一覧が全て。定数の一覧に載っていないメッセージは送信しても受け付けません
定数の一覧に載っていない処理は絶対にSendMessageじゃ出来ないんよ

検索方法変えな

まず定数の一覧を見て必要な処理が出来るか検討する
見つかったら そのメッセージでMSDNがぐーぐる
見つかんなかったら さっさと諦める。

時間かければ見つかるかも知れないけど 出来ない事延々と探す時間がもったいないよ

どうしても必要とせがまれた時は
「VB or Windows では実現が難しい」
「実現するにはそれなりの工数が必要」
とでも言って脅せ

アホか。

ループなんか回すと処理に時間がかかるから、数学の公式使おう！

>>512は>>504宛てでした。

フォームのkeypreview＝true
フォームのkeydownイベントで↑↓でカーソル移動(SendKeysでTab、Shift+Tab)
するようにしているんですが、
コンボボックスを通過する際、カーソルはきちんと動くものの、
コンボの選択内容が上下に変わってしまいます

コンボボックスで、矢印キーの上下で項目を選ばせないようにするには、どうしたらいいでしょうか

>>514
カーソル上でで移動するというそっちの仕様がおかしい

>>514
ｺﾝﾎﾞのKeyDownで ↑↓ が入力された時 KeyCode = 0: Shift = 0 にする

でもその仕様は確かに変
↑↓でカーソルを移動するのはキーボード重視になっているからだと思うんだけど
コンボを↑↓で選択したくなったらどうするの？ワザワザマウス使うの？

マウスクリックかAlt+↓で選択させたいみたいです
コンボボックス上ではEnterキーでのみカーソル移動させていたら、怒られましたorz

>>516
ありがとうございます
それでやってみたんですが、こんどはAlt+↓が効かなく・・・
も少し粘ってみます

VB6(SP6)とグレープシティのActiveReportを組み合わせたPGを作成しています。
プロジェクトファイル(vbp)で実行した場合は問題なく動作するのですが、
exeファイルを作成し、実行したらオートメーションエラーが発生します。
(同じPCで行っています。)

VBPで動作して、コンパイルしたexeだと動かないって、
一般的にどのような理由が考えられますか？

>>518
エラーナンバーも出ないのか

>>519
エラーナンバーを表示させていませんでした。
実行したところ、「-2147024770　オートメーションエラーです。指定されたモジュールが見つかりません。」と出ます。

度々すみません。先程のはウソでした。
「-2147417848: オートメーション エラーです。
起動されたオブジェクトはクライアントから切断されました」
が、exeのみで発生するエラーです。

VB6.00使用してプログラム組んでいるものです。
ボタンを押してcsvデータから一行ずつデータを読み込みxlsデータに書き込んでいくプログラムを組んでいるのですが、
xlsデータに書き込む時に任意のセルから書き込むようにしたいのですがわかりません。
下記のサンプルソースではデータをエクセルのＡ１から順に入れている形です。
これをセルのＥ５から順に入れていく形にしたいのですが、よろしくお願いします。
****サンプルソース****
Dim xls As Excel.Application
Dim strOneLineData As String
Dim strArrOneData() As String
Dim intFileNumberCSV As Integer
Dim i As Integer
Dim lngLineCnt As Long 'csvファイルの読み込み済み行数の格納
Dim strCEL_No As string 'Excel上に出力するセル位置の格納する

Set xls = New Excel.application 'excelの設定
With xls

.Visible = False 'Excelを非表示にする

'csvファイルのopen
intFileNumberCSV = FreeFile
Open c_strCSVFileName For Input As intFileNumberCSV 'ファイル名を作成します。

.Workbook.Add 'Excelにワークシートを追加する

'csvファイルがEOFになるまで、一行づずつ読み込む
lngLineCnt = 1
Do While Not EOF(intFileNumberCSV) '終端までループを繰り返す
*****下記に続く*****

*****上記から******
Line Input #intFileNumberCSV, strOneLineData
strArrOneData = Split(strOneLineData, ",") '読み込んだ一行分のデータを分割

For i = 0 To UBound(strOneLineData)

strCEL_No = Chr(Asc("A") + i) & lngLineCnt
.Range(strCEL_No). Select
.ActiveCell.FormulaR1C1 = strArrOneData(i)

Next i

lngLineCnt = lngLineCnt + 1
'Debug.Print writestr
Loop

Call .ActiveWorkbook. SaveAs(c_strXLSFileName, xlNormal) 'エクセル保存

'csvファイルのclose
Close #intFileNumberCSV

xls.ActiveWindow.Close
xls.Quit

End With
Set xls = Nothing

そのコントローラの使用する権利がないとかでは？

ActiveReportというコンポーネント使ったことないけどそれって最初からついてたやつ？

ActiveReportだったか忘れたけど、Newしたｵﾌﾞｼﾞｪｸﾄを
Nothingしなかったらそういうのが出た気がする。
ちがってるかもしれんが・・・

Win2000 SP4 + VB6.0 SP6です。

デスクトップ右クリックメニューの「等間隔に整列」を
ロジックで実現する方法を教えてください。
よろしくお願いいたします。

>>527
質問の意味がわからん
何がしたいんだ？

VB6.0です。

画像a.bmpの上で黒を透明色にした画像b.bmpを乗せたいんですけど、
Pic1.Picture = LoadPicture("C:\a.bmp")
Pic2.Picture = LoadPicture("C:\b.bmp")
TransparentBlt(Pic1.hdc, 0, 0, Pic2.Width, Pic2.Height, Pic2.Picture, 0, 0, vbBlack '黒を透明色にしてPic2をPic1にコピー
Pic1.Refresh

これで出来たんですけど、b.bmpを0.2秒毎に動かそうとして

i=0
Do
Pic1.Picture = LoadPicture("C:\a.bmp")
Pic2.Picture = LoadPicture("C:\b.bmp")
TransparentBlt(Pic1.hdc, i, 0, Pic2.Width, Pic2.Height, Pic2.Picture, 0, 0, vbBlack '黒を透明色にしてPic2をPic1にコピー
Pic1.Refresh
i=i+10
'0.2秒ウェイト
Loop

こんな感じにしたらRefreshに1秒程かかって思うように動きませんでした。
もっと早く動かすにはどうしたら良いですか？
分かりにくい文章ですいません。

>Refreshに1秒程かかって思うように動きません
ちょｗｗｗｗおまっｗｗｗｗツボ入ったｗｗｗ

VB6です
text1とtext2に数値を入れて
text1の数値からtext2までの数値を全部足していって（１と１０入力したら答えは５５表示みたいな）
答えをtext3に表示されるというプログラムを組みたいのですが、挫折しまくりです orz

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim sum As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
sum = 0
For c = a To b
sum = sum + a
Next c
Text3.Text = sum
End Sub

現在こんな感じです
たぶんすっごい突っ込みどころ色々あると思うんですがアドバイスお願いします

色々やってみたら自己解決しました(´・ω・`)

ＭＳＣＯＭＭに困っていた者です。
送信側にＰＣを使ってテストする分には
うまくいってます。
あとは、実際に検査機を使ってテストするだけです。
また、質問があったら質問したいと思いますが、
質問に答えてくださった方々、
ありがとうございました。

VB6.0です。
入力した文字列をそのまま配列に一文字ずつ格納して、
さらにそれをText2へ出力したいのですが。

例：Text1にABCDEFG…　と入力
Hairetsu(0)=A
Hairetsu(1)=B
Hairetsu(2)=C　…と。

Private Sub Command1_Click()
Dim Hairetsu(100) As String
Dim i As Integer
Dim Txt As String
Dim one As String
Dim l As Integer

Txt = Text1.Text
l = Len(Text1)

For i = 0 To l - 1
one = Mid(Txt, i + 1, 1)
Hairetsu(i) = one
Next

これで配列Hairetsuには、Hairetsu(0)=A　Hairetsu(1)=B…　となってると思うのですが、
Text2へそのままABCDEFG…を出力させるにはどうしたらよいのでしょうか？？
よろしくお願いします。

何をしたいのかよくわからんが、
配列を繋げるならjoin関数で

>>535
や、やっとできました…そんな関数すら知らずに朝から３時間も苦悩しておりました orz
ありがとうございます(;´Д`)逝ってきます

>534
dim s as string

for i=0 to ubound(Hairetsu)
s = s & Hairetsu(i)
next

Text2.Text = s

こんな感じでいいんじゃないかな

って既にレスされてた上に
join知らなかった俺はバカ。

join覚えときます・・・orz

>>537-538
とんでもございません。
書き換えたらそちらでもちゃんと表示されました。
朝っぱらから漏れなんぞに付き合っていただきありがとうございました。

もう解決しているし、>>534の使い方とは違いそうだしで書き込むか悩んだけど
文字列とバイト配列の相互変換を置いておきますね。

Dim pui8String() As Byte
Dim pcString1 As String
Dim pcString2 As String

pcString1 = "テスト用Strings"
' String -> Byte()
pui8String = StrConv(pcString1, vbFromUnicode)
' Byte() -> String
pcString2 = StrConv(pui8String, vbUnicode)
Debug.Print pcString2

今は使わなくても覚えておいて損は無いかも？
という事で閑話休題

ﾜﾛﾀw

>>541のツボが理解できん俺はorz

>>502と>>531って別人？
n(n+1)/2(１からｎまでの総和)って知らんのかなぁ!?
例えば、Integer内でおさまる計算なら、1たすのも1000たすのも同じ時間。
逆に言えば、1を1000回たせば1000倍の時間がかかる。
そういうところがもっとも簡単に気ィ使えるとこなんだから…。

>>543
空気嫁

>>522
×strCEL_No = Chr(Asc("A") + i) & lngLineCnt
○strCEL_No = Chr(Asc("E") + i) & lngLineCnt + 4

ところでこのサンプルソースで動いたの？
いろいろ手直ししないと動かなかったんだけど。
俺がExcelXPのせいか？

こんにちは ExcelXPさん！

突然厨な質問ですまないが、VBでマルチスレッドアプリを作ろうとしている。
巷では出来ないといわれていたり、出来ると言われていたりよくわからん。

CreateThread自体はうまくいく。
スレッドのプロシージャに空ループを仕掛けるとCPU使用率が100%になるからだ。

グローバル変数を使ってスレッドを抜ける(=破棄)までは出来ている。

ところが、スレッドの中でちょっとでも変な事すると即座にあぼんするのだが、VBでマルチスレッドできない理由ってこれかい？


#基本的には、メインフォームに対して描画処理をしたいだけなんだが、form1.hdc　とか触っただけであぼんってなんだｺﾞﾙｧ！
しかもIDEとP-Codeとネイティブで全部あぼんするタイミング違うし。

ﾃﾗｽﾏｿ
WinXP SP2 + VB6.0 SP6です。

基本事項忘れますた

>>547
マルチスレッドは可能　CreateThreadも上手くいく
ただしスレッド間のコントロール(オブジェクト)の同期がメチャクチャ
おまけに不安定。

CreateThreadの上手くいく＝マルチスレッドが可能　という人もいれば
不安定＝マルチスレッドが使い物にならない(出来ない)　という人もいる

個人的な意見だけど VBランタイムがシングルスレッド用で出来ているから 満足にマルチスレッドは使えないと思う

やった事無いけど スレッドのプロシージャをDLL(Cで作ったヤツ)にすれば可能という話があるけど
試した事ないから知らない

前スレで下記のような質問をした者です。
前スレでは無理だからループ回せとの回答を頂きましたが、FillStyleプロパティをflexFillRepeatにする事で
行や列などの範囲に対してループを回さず一発で書式変更が出来るようになることが解りました。
ご存じの方も居るかとは思いますが、前スレで回答が付かなかったということは
知らない方も多いと思うので報告させていただきます。

> VB6のMSHFlexGridコントロールで、列や行に対して
> 文字割付(上寄せとか左寄せとか)や、修飾(文字色とか太字とか)を
> 設定するにはどうすればよいですか?
>
> 今は列や行に対してではなく、セルに対する設定をForで回してますが非効率的なので。
> Spreadsheetコントロールならそういうことも出来るのですが、
> MSHFlexGridコントロールを使いたいので、どうかご教授お願いします。

>>547
Mutexとか使って排他かければ可能なんじゃね？
逆に排他かけなきゃ共有物にアクセスしたらいかんのだけれど、この辺はVBに限った話じゃ無いわな。

スレッドが使用可能だって言っても、全部VBで開発しろって言われたら絶対に嫌ですって答えるな。
VB唯一の長所といってもいいデバッグのしやすさが失われるからなぁ。
VBはVM（って言ってもいいのかな？）の上にいる間だけ優しい顔をしてくれる感じ。そこから外れると辛い。

今の時期にVBに対して不便さを感じているなら、VB.NETなりC#なりに移ったほうがいいかも。

あ、フォームのオブジェクトに直接触ろうとしてるのか。
じゃ無理だな。

Inputboxに数値を入力していって（ループで0が入力されるまで繰り返し）
0が入力されたら終了
そしてForm上に今までの最大値と合計を表示させる
というプログラムを作ってたのですが
最大値のところがうまくいかないので教えてほしいのです
たとえば　-8 -5 0と入力した場合
最大値0　合計-13になってしまうのです
これを0を含まずに　最大値-5 合計-13となるようできませんでしょうか？
よろしくお願いします

Visual Studio 2005、Windows Vistaの発売が迫り、VB6.0もその役目を終えようとしていますNE！
このスレにもほたるのひかりが流れてきました☆
残っているのはｆｔｇｂｙｈふじこ、；だけです＞＜

もう閉店なんだYO！
（・∀・）ｶｴﾚｶｴﾚ!!

何年前からVB6が役目を終えようとしているといわれたっけな？

デスクトップアイコンを非表示にするAPIを知りませんか？

TEST

VB6でマルチスレッド、大昔のVBマガジンで記事あったよね。
とりあえず出来る程度の。

そもそもMSが保証なんてしてないし、VBで使用するオブジェクトがスレッドセーフな保証なんて一切ないし。

vistaやxp64にインストール出来るのか！
VB6はこの先生きのこれるのか！

開発環境はWindowsXPまでは保証されてる。
ランタイムの動作はVistaまでは保証されてる。
当面は生き残ってるだろ。
それ以降は、VirtualPC推奨だ。

VB6の後継って出ると思いますか？
このまま消え去るとは思えないのですが

>>561
たぶんこのまま消えるよ
とても後継とは言えないVB.NETを後継ってことにしてね

VB6の後継はVB.NET
これが真実

真面目な話し2005ではオブジェクト思考がまったく分からない
糞エンジニアもどきにも使える様に、
言語仕様が変更されているから安心しろ。

ということにしてVB6ユーザを取り込もうというわけだ。
OOPが全くわからなかったらやっぱり使えないさ。

任意のフォームでAltキーを組み合わせたVBのキーイベントを発生させる方法を教えてください
環境は VB6SP6 WinXPSP2 です
自分が最初に試した方法は、下のようなコードでメッセージを送信する方法なのですが
SendMessage(Form1.hWnd, WM_KEYDOWN, KeyCode, 0)
しかし、これではAltキーが送信されませんでした

あれこれ調べても分からなかったので、Spy++でメッセージを調べて、同じようにメッセージを送信してみました
次のコードは Alt+Q を目的のフォーム（Form1）へ送っているつもりです
Call SendMessage(Form1.hWnd, WM_SYSKEYDOWN, VK_MENU, &H20380001)
Call SendMessage(Form1.hWnd, WM_SYSKEYDOWN, &H51, &H20100001)
Call SendMessage(Form1.hWnd, WM_SYSCHAR, &H71, &H20100001)
Call SendMessage(Form1.hWnd, WM_SYSKEYUP, &H51, &HE0100001)
Call SendMessage(Form1.hWnd, WM_KEYUP, VK_MENU, &HC0380001)
このコードでは、Form1 の KeyDown イベントは来るのですが、引数の Shift はゼロでした
どうすればVBのキーイベントで Alt キーを認識させられるのでしょうか？ご教授ください

普通にSendＫKeysじゃダメなの？

>>566
ありがとうございます
SendＫKeysは知らないのですが、おそらくSendKeysのタイプミスですよね？
その前提で考えますと、SendKeysではアクティブなフォームにしか送信できないのでダメなんです
あくまでも任意のフォームに送信したいんです

だから「任意のフォーム」をアクティブにしておいてからSendKeys使うだけでは？
SPY++でメッセジー観察したのなら、単純にこのメッセージを送ればいい、
という訳にはいかなそうなのはわかりそうなもんだと思うんですが。

だからこそSendKeysなりSendInput(これはWin32API)なんてのが用意されているわけでしょ。

何で手動でSendMessageすることに固執するのかわからないけど、
仮に対象が他のアプリのウィンドウだとしても
どのみちウィンドウハンドルを取得可能であることが前提になるわけだから
SendKeysで何の問題もないと思うんだけど。(SetForegroundWindow)

>>568
ありがとうございます

>単純にこのメッセージを送ればいい、 という訳にはいかなそう
すみません、検討も付かないのですが、具体的にはどういうことなのでしょうか？

>何で手動でSendMessageすることに固執するのかわからないけど、
手段は他の方法でも構わないのですが、任意のウィンドウを指定できないのが困るんです
たしかに直前に無理やりActiveにしてしまえばSendKeysでも出来ますが
それではウィンドウを切り替えたくない場合や、非表示のウィンドウに送れません

>>545

亀レスすみません。こちらは動きますよ？
c_strCSVFileNameとc_strXLSFileNameをデスクトップにもともと存在しているファイルに設定しておいてますが。

それで、動くようにはなったんですが、EXCEL.EXEが起動しっぱなしになってしまうんですが・・・
ＶＢを閉じればちゃんとＥＸＥ終了するんですが・・・。おかげで、二度目ボタンを押したとき動かないんですよね・・・
ちゃんと、quitもしてるのに・・・なんででしょうか？

>>570
ttp://homepage1.nifty.com/rucio/main/technique/teq_15.htm

質問じゃなくて、VB6も暇そうなんでｗ
既出かも知れんけど、昔MSからMVPs指定もらってたEdanmoさんのサイトにさ、
カスタマイズしたWebBrowserコントロールをフリー配布してるんだよね。（ソースもアリ）
これ使うと、ActiveXやScriptのONOFFもサポートしてるから
Sleipnir,Lunascape,Donutみたいにセキュリティ設定できるわけ。
VB6製タブブラウザでも作って暇つぶしはどうよ？ｗ
タブだからってタブコントロールは使うべきではないようなｗ
つーか、機能的にはヤツラを超えてやろうってヤシいないか？ｗ

【Namespace Edanmo】
ttp://www.mvps.org/emorcillo/en/index.shtml

で"Source Code"→"Old VB6 Code"のページにて
Custom WebBrowser control
がカズタム版のWebBrowserコントロールでOCXとしては単純にはこれだけでもいいんだけど、
より深い開発には
OLELIB.TLB - OLE interfaces & functions v1.7
もインストールしておくべし。

上記以外にもVB6の上級テクがずらりだねぇ
ところでWebBrowserコントロールでHTTPプロクシのチェンジわかるヤシいる？

10進を16進に換算するのはどうすればいいですか。

>>573
HEX

おい！おまえら！
VBやってて良かったと思ってますか？どうか教えてください

>>575
スレを浪費するだけの愚かなアンケートをするな

InputBoxに１が入力されたら終了して
Formに最大値と合計を表示するプログラムを作ってみました
でも、ここで問題が
たとえば -6, -3, 1　と入力して終了したとき
最大値が１と表示され、合計値が+1されて-8となってしまうのです
1が入力された時点でループを抜ける方法はないでしょうか？
最大値-3 合計-9と表示させるようにしたいのです
お願いします

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Do Until a = 1
Form1.Cls
a = Val(InputBox("１で終了", "タイトル"))
If a > b Then
b = a
End If
c = c + a
Loop
Form1.Print "最大"; b
Form1.Print "合計"; c
End Sub

>>577
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(InputBox("１で終了", "タイトル"))
Do Until a = 1
Form1.Cls
If a > b Then
b = a
End If
c = c + a
a = Val(InputBox("１で終了", "タイトル"))
Loop
Form1.Print "最大"; b
Form1.Print "合計"; c
End Sub

無理矢理。
試してないから間違ってるかも。
それか、if文でaが0ならループ抜けるようにするか。

>>578
レスありがとうございます
試してみたらちょっとだめでした(´・ω・`)

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(InputBox("0で終了", "タイトル"))
Do Until a = 0
Form1.Cls
If a > b Then
b = a
End If
c = c + a
a = Val(InputBox("0で終了", "タイトル"))
Loop
Form1.Print "最大"; b
Form1.Print "合計"; c
End Sub

今度はわかりやすくするために０で終了させるように変えてみたのですが
-6 -4 -2 0 と入力すると
やっぱり最大値が０になってしまいます
できたら-2で終わらせる方法教えてほしいです

>>579
Do
　a = Val(InputBox("0で終了", "タイトル"))
　If a = 0 Then Exit Do
　If a > b Then
　　b = a
　End If
　c = c + a
Loop

>>579
間違ってるのはそこじゃなかった。最大値bは最初の入力で初期化する必要がある。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(InputBox("0で終了", "タイトル"))
b = a ' *** これが必要
Do Until a = 0
Form1.Cls
If a > b Then
b = a
End If
c = c + a
a = Val(InputBox("0で終了", "タイトル"))
Loop
Form1.Print "最大"; b
Form1.Print "合計"; c
End Sub

教えてください。

VB6にて
画面上に常に線を引くプログラムを作りたいのですが
可能でしょうか？
他のソフトを起動したり何も起動していないときでも
常に画面上の一番手前に線を引きたいのです。

宜しくお願いします。

>>582
可能

>>583
可能ですか
やり方教えてください。
フォームに線を引いても他のソフトを
開くと下に行ってしまって
上手くいきません。

お願いします。

VBScriptに関する質問です。

データアクセスページでパラメータクエリー”システムセレクト”を読み込みます。

”システムセレクト”*********************

SELECT T_システム.*
FROM T_システム
WHERE ((T_システム.削除)=No) And T_コンディション.システム名=systemname
ORDER BY T_システム.ソートNO;

*************************************

systemnameの値をVBScriptから入力したいと思い、下記のようなスクリプトを書いてみました。

<SCRIPT language=vbscript>
<!--

MSODSC.RecordsetDefs("システムセレクト").parametervalues.Add("systemname", "Next")

-->
</SCRIPT>

ところがsystemnameにうまく"Next"が代入できません。
詳しい説明の書いたHPとか知ってたら教えてください。

ちなみに下記のページを参照してスクリプトを書きました。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/jpdnacc2k2/htm/odc_creatingapopuppage.asp

>>571
ありがとうございます。読んで勉強してきます。

>>584

つ[　>>1　]

つ[　ttp://www.google.co.jp/　]

>>587
知らないなら黙っててくれませんか？

↓以下何事もなかったように再開

▼現在未解決の質問

　計　0件



では、次の方どうぞ

>>587

>>1を見ても、検索しても
わかりませんでした。
APIを使うのかなと思い調べてみたんですが
駄目でした。
わかりやすいヒントだけでもお願いします。

因みに>>588は私ではありませんが
知っているなら教えてください。

宜しくお願いします。

>>591
知ってるが
お前のメル欄
気に入らない

>>592

LineToてやつを使うんだろうな
と思ったのですが、
常時一番上に表示させる方法が
わかりません。

メル欄は癖です。>>592や他の皆さんが
禿げだと思っているわけではありません。
気分を悪くされたのであれば
申し訳ございませんでした。

禿が気になるお年頃のおいらとしては
おいらを指して言ったんじゃなくても
非常に気分を害したので知ってるが教えない

次から質問時は気を付けるこった

禿を気にしない方
もしくは>>593での謝罪で
許してもらえる方いませんか？

>>582
ヒント：常に手前に表示

>>596
心の広い方ありがとうございます。
ウィンドウを常に手前に表示するというのは
解るのですが、LineToにてデスクトップ上に
引いた線を常に表示させる方法が
解りません。他のソフトを起動すると
引いた線が消えてしまいます。

Timerを使って再描写させるとそれっぽく
なるのですが、、、

>>582
やりたいことがよくわからんが、デスクトップに直接描画しなきゃいけないのかい？
それならデスクトップのウィンドウをサブクラス化してWM_PAINTを捕捉すりゃいいでない？

>>598

お返事ありがとうございます。
やりたいことの説明が解りにくくて
申し訳ございません。

やりたいことは、デスクトップ上に
常に線を引きたいのです。
定規を使って液晶に線を引いても
良いのですが、ずれてしまうと（微調整をしたい）
やり直しがきかないのでは？と思っています。

Timerで再描写の方法だとチカチカして
見づらいです。

透過したウィンドウに線引いて、最前面に出せば？
イベントどうするかは別途調べてね、透過で調べればやりたいようなことは芋づるで出ると思うけど。
ちょっと前でぐぐれっていう人がいたけど、それは正しい。
ある程度ここで聞いたキーワードでグーグル様の神託受ければ、芋づるで大体調べがつく。

あと、Vectorに画面用の定規があったような。
ウィンドウでフローティングした定規。

マジレスすると>>582は

ttp://www.ne.jp/asahi/nagoya/ahomaro/builder/cpb-050.html

見たいな事が遣りたいんでないか？

GetDC(0)　でデスクトップ全体(起動中のウィンドウ含む)のDCを取得できるよ
再描画はデスクトップは同プロセスに含まれないからサブクラス化は出来ないんでフックするの
フックプロシージャは別プロセス限定でDLLに書かなきゃいけない規約がある。
Cコンパイルする環境あるか？

お座りﾏﾙﾁ、ﾅﾂｶｼｽ(´・ω・｀)

むしろ↓じゃない？
ttp://www.ne.jp/asahi/nagoya/ahomaro/builder/cpb-054.html

おまいら今日はイヤに優しいな

本当に優しい方ばかりですね。
フォームを透過させるという
発想が無かったので
検索してませんでした。

>>601
Cコンパイルする環境はありません。
>>601 >>603も見てみます。

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

作成したプログラムを配布するとき
相手にランタイムのインストールやsetup.exeを使ったインストールをやらせたくないんだけど
作成したプログラムのフォルダに、これから使用するであろうdllを置くことはできないのでしょうか？

>>606
プログラミングの前に日本語勉強した方がいいような。。
その文章で君の質問の意図がわかる奴がいたら、そりゃエスパーだわw

>>607
ｺﾞﾒﾝﾎﾟ('A`)
VBの画面の
「ファイル」→「project.exeの作成」
で作成したファイルのみで配布して起動させることはできなのでしょうか？
ってことです

>>607
できん

いや、ユーザーのシステムにランタイムが入ってるって前提なら
それで必要十分だよ。
VB製のフリーソフトなんて大抵そうじゃん。
動かなかったらベクターでランタイムあさってインストールしてくださいってね。

dll使わなければ良い。

>>610
>>606

>>612は何が言いたいんだろうねえ。
ひょっとして>>612の環境じゃVBランタイムはdllで、しかも各プロジェクトフォルダに
入ってるのかな。

これぞＶＢ厨クオリティw

>>613
頭大丈夫？

vb2ならできたかも

>>607-615
色々ありがとう
やっぱりだめか〜
　 　　　　 |
　 　＼　　__　　／
　 　＿　（ｍ）　＿ﾋﾟｺｰﾝ 　
　 　　　　|ミ|
　 　／ 　.｀´　 ＼ 　そうだVB.netを勉強すればいいんだ（きっと
　　　　　('A`)　　　　そうすればdllなんて ・⌒ヾ(*´_｀)
　　　　　ノヽノヽ
　　　　　　　くく

>>616
netがあればなんでも出来る！

VB.NETで作成したプログラムを配布するとき
相手に.Net Frameworkのインストールやsetup.exeを使ったインストールをやらせたくないんだけど
作成したプログラムのフォルダに、これから使用するであろうdllを置くことはできないのでしょうか？

できない。

>>606
１．regsvr32で使うDLLを一つずつ登録する。
　　（VBランタイムは手動でインストールする。）
２．DLLを登録するだけのsetup.exeを作る。
　　（VBランタイムもsetup.exeに含める。）

あ、しまった。
>>606のDLLはActiveX DLLじゃなくて標準DLLかな。

そこでDelphiですよ

>>616
だから必ずしもダメじゃないってw
どういう読解力してんのよ。

はじめてきました。

プログラミングをしようとVB6.0を押入れから出してきました。
（今ではnetが出ているんですね、orz）

で、勉強をしようと思うのですけど
雑誌類は無いのでしょうか？

昔BASICマガジンなどで一画面プログラムとか一行プログラムとか超勉強になったのですが
オークションでも探そうと思っています。
お勧めの雑誌などがございましたらどうかお願いします。

>>624
最終的には何がやりたいんだ？

超田舎でなければ、大型の古本屋に行けば攻略本が手にはいるよ。
低下2000円超でも100円前後で買えて超経済的ｗ

スレ違いかもですが

3年少し前から、会社でなし崩しにVB6の勉強をはじめて、今も開発職です
他の言語には、他にエキスパートいっぱいいるわけだし、
30近い年で今更つまみ食い始めてもな・・・という気分です

.netや2005など、新しいの出てますが・・・
VB6やっててWebでTipsなど探しているときに、
「.netは6と違ってこんなにべんりー」的な紹介に結構出くわします

よくVBは死んでゆく言語と言われ、不安増すばかりなんですが、
今後VBをより掘り下げていくより、やっぱり他言語を学習した方が
身のためでしょうか

みなさんは、どうお考えでしょう

>>627
他の言語も勉強すべき。
ってかVB6は脇役（か中身の無い主役）で本領発揮するタイプだよ。
64ビット全盛な時期になったらVB6の実行環境は死滅するかVirtualPCに押し込められるんじゃね？

色んな意味で中途半端なVB6に居座るよりは、基礎も整ってるしライブラリも豊富な.NETに移行したほうがいい。
.NETでなくてもいいけど、メインがVB6ってのは止めたほうがいい。
使い捨ての仕事しか無いよ。

VBしかできないなんて信じられない。

まあ、基本が出来てる人なら新しい言語を学習する苦労なんて些細なもんだろうな。
逆に言えば言語覚えた程度の能力なんて糞拭く紙にもならないチンケなもんだYO！
業務で培ったのノウハウのほうがずっと大事なんだから、それを腐らせないように新しいものどんどん取り込んでけ！
とっとと浮気始めたほうがいいYO！

>>625
勉強です。

書籍は8冊・図書館で3冊読みました。

そういえばプログラムの雑誌類はまだ見ていないと思いまして。

2・3冊雑誌をあげていただければと、どうかお願いします。

Printer.Printでフォントの背景色を指定できませんか？
Printer.BackColorとか、Printer.Font.BackColorなんてプロパティがありません。

検索語を変えたら、これが見つかりました。
リンク先が消えてるので、さらにぐぐらないといけないけど。
Printer.FontTransparent = True
iBKMode = SetBkMode(Printer.hdc, TRANSPARENT)
Printer.Print "テスト"

>>631
「Visual Basic6.0 300の技」が暇つぶしできていいんじゃね？
プログラミングの基礎学びたきゃ.NETの本に移ったほうがいい。VB本でまともに書いてるやつ見たことね。

>>635
本じゃなくて雑誌月刊誌です。

できますた。ああ、まんどくさ。

このスレたまに覗くけど、大半の回答者が社会的訓練を受けていないな。
だからプログラマなんてやってんだろうけど(　^Д^)

ム板の半分はニートで出来ています。
もう半分はベーマガ残党

マ板っぽくなってきたな

Win64では VBだろうがCだろうがWin32アプリは全部動かないよ
XP64BitではデフォルトでWin32エミュレータが入っているから動くんだよ

仮にWin32を切り捨てれば 今まで市場で回っている全てのWin32アプリが動かなくなるよ
たとえWindowsOSが完全に64Bitに移行してもWin32は相当長く続くな…と予想

今後のVBは64Bitへも対応はまず無いと思うので、それだけは頭においておいた方がいいよ

VB6は卒業してVB.net
将来的にALL64Bit化を考慮して、それに対応する言語

やっぱり、この２つはやっておいた方が、絶対にいいってことですよね
勉強時間を考えると胃が痛くなりそうですが、頑張ってみます
ありがとうございました

ユーザーコントロールって、ウィンドウのように表示させることはできますか？

　↓userctl
┌─┐
│　 ├────┐　　任意のタイミングで、このように表示させるような
└┬┘　　　　　　│　　ことってできますか？
　 │　Form　　　.│
　 │　　　　　　　 │
　 │　　　　　　　 │
　 └─────┘

>>643
フォームをもひとつ準備してそこに貼り付けないと無理。

>>644
いや、別にそんなことしなくても出来るぞ
試しにこんな感じでコード書いて見れ
Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As Long, ByVal hWndParent As Long) As Long
Call SetParent(UserControl1.hWnd, 0) '← ウィンドウから切り離したいときに実行
Call SetParent(UserControl1.hWnd, Form1.hWnd) '← Form1 上に置きたいときに実行

>>645
なるほどNULLにするとデスクトップにコントロールが張り付く形になるのか。
その場合にFormの上にオーバーラップさせるのはできるのかな？
試してみたいが環境が無い。

>>646
上に表示するだけなら↓だが、一緒に移動したいならサブクラス化すればおっけー
SetWindowPos(UserControl1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
サブクラス化できないか、タブオーダーが効かない副作用を嫌うならば、リージョンウィンドウかなぁ

しかし質問者の >>643 には、どちらも荷が重いだろうことを察すると、
透明ウィンドウが一番簡単かつ手軽なので、この方法をお薦めしとく
ただし、タイトルバーをつけると、とってもかっこ悪いことになるｗ
http://megaup.ddo.jp/upload/data/up0328.zip

IEの操作で質問です

<select class="CLASS1" name="NAME2">
<option value="12345">しょうゆ
<option value="98765" >とんこつ
<option value="23232" >塩
<option value="93793" >味噌
</select>

このようなセレクトボックスがあるとしてvalueの方で値を取得したり
選択させたりすることはできるのですが、
逆に表示されている「しょうゆ」や「とんこつ」などの文字列で
自動的に選択させたりすることはできますか？

>>647
最近勉強し始めた漏れからしたらそんな感じのを
さっさか作れるヒトが凄いと思う土曜の朝　orz

PerlとC++を少々かじった程度の者ですが
現在ネット環境のない部屋でVBAをいじってます
Functionプロシージャの戻り値で配列、構造体を戻す宣言の方法が分かりません

あと構造体の宣言をどこでやるのか分かりません
Structure Date_Values
　Dim YER as Integer
　Dim MNT as Integer
　Dim DAY as Integer
　Dim HOR as Integer
　Dim MNT as Integer
End Structure
以上の文をsub文の内部に書いたのですが
『sub または Functionが定義されていません。』と怒られてしまいます

>>650
Structureを使うのはVB.NET。
VBではType。
使い方はヘルプで検索。

>>651様
ありがとうございました
配列を戻り値に使う方法は不明のままですが
構造体の方は解決いたしました
構造体を戻り値に使って問題を解決できそうです
即レス ありがとうございました
試していたので返信が遅れてしまい申し訳ありませんでした

>>652
配列の引数＆戻り値はVariant型で受け渡す

>>648
試してないけど、たぶんこれでいけると思うよ
とんこつを選択する場合ね

dim select as object　' 型は MSHTML.HTMLSelectElement でもいい
set select = セレクトボックスの取得処理 getElementBy〜とか

for i = 0 to select.options.length - 1 step 1
　　if select.options(i).text = "とんこつ" then
　　　　選択処理
　　　　exit for
　　end if
next i

>>653
おいおい、引数も返り値も普通に配列で大丈夫だよ。
VB4とかは知らないけどねw

>>655
いや分かってるけど650の超初心者ぶりを考えて
全部Variantにしときゃとりあえず動くだろうと思ったんだがなぁ
そういう突っ込み入れられるんなら、1行ですむんだから宣言書いてやりゃいいのに

> そういう突っ込み入れられるんなら、1行ですむんだから宣言書いてやりゃいいのに
そう思うならお前が(ry

>>657
だからオレは全部Variantにしとけといってるんだよ

一行ですむといったのはお前。一行ですむのだからVariantではなく、その宣言を書けば良い。

それに超初心者だと思うのなら、なおさら正しい答えを書かないといけない。

>>660
いや全部Variantにしとけばいいｗ

とりあえず、今までのやり取りを見て
「全部Variantにしとけばいい」が
馬鹿な答えであるということはわかりました。

ん〜 655 はプライドがよほど大事のようだな
構文知らないんなら、口出ししなきゃよかったのにね
Private Function 関数名(引数() As String) As String()
これ引数にも戻り値にもString型の配列入れるばあいね

初心者ならVariantは止めた方がいいよ
何でも平気っていうVariant癖が付くよ
初心者ならなおさら型を意識した方がいいと思うよ

C++の経験があるなら配列は使わないで その型専用のコレクションクラスを作って クラスごと受け渡す
なんて方が分かりやすいのかな？

VBばっかやっててCに挑戦するとかなり面倒に感じるね。

>>663
？？？
俺は655以降一度もレスしてないけど。。
構文知ってるとか知らないとかずいぶん低レベルな争いだなあw
まあどうでもいいんだけどさ。

ちなみに、もう数年VBさわってないんでうる覚えだけど、
VBって確か構造体を返すメソッドを外部のクラスに公開するときに
妙なトリックが必要だったような。。

構造体自体はPublicでいいけど、メソッドはFriendにするんだっけ？

皆さん丁寧にありがとうございました
皆様のアドバイスのおかげである程度 納得できるコードになってきました

質問の連投で申し訳ありませんが
VBAで他言語のevalに該当する関数は無いでしょうか？
checkbox_【n】.enabled = VALUE(n)
というような処理を行いたいのですが
チェックボックスを配列関係にする事なく解決したいです

>>667
VBAは別スレ

>>668様
大変失礼しました
VBAの質問スレが見あたらなかったので
つい こちらで質問してしまいました

少し様子を見させて頂いて スレ立て依頼をやってみます
しかし、VBA専用の質問スレなんて利用者いるのかなぁ…

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

>>669
喧嘩売ってんの？

>>670
うはは
落ちてる落ちてる
単発質問スレになっても良いからスレ立ててきなよ
まぁ 質問の内容的にはVBの分野なんだけどね
(VBと同じ方法だよ)

>>672
ｽﾏﾝキャッシュ読んでた

>>671
私のわがままが発端で気分を害されたようで
大変申し訳なく感じておりますが
なぜ(?_?)
あの文章のどこに怒られているのか理解できないのですが。
しばらく 様子を見させて下さい
↑また気分を害されたら申し訳ありません

おいおい。誰がみても、
利用者いるのかなって、VBA使ってる人に失礼だろ・・・そりゃ怒るわ。

幼稚な奴はほっとけって。一人でキャンキャン吼えさせておけばいい。
evalって与えられた文字列をコードとして実行するって奴かなあ。
そういうのはVBには当然ないとして、VBAにもなかったような気がする。
というか、オーソドックスに配列で処理したら何かまずいんだろうか。

VBAスレ要らんだろ
VB6でも出来る処理に関しては回答付くけど、そういうのはここでいいし
Excel独自のことは答えられずExcel総合相談所に誘導するだけで
AccessやWord独自の質問はほとんど放置
はっきり言ってVBAスレとしては機能してない

>>675
でも、vba使う奴なんかいるのか？
そりゃ去年vbaでバッチプログラム作ったけどさ

MACなんてつかわねえよなー
隣の部署じゃ使ってるけどさ

ってノリ？

>>667
チェックボックスを配列関係にする？
えぇ？
つまりプログラム上で各ボタンにユニークな番号を与えて
その番号に応じた一括処理とかできるの？
すごい便利そうだ
是非やり方を伝授してくれたまえ

このスレを「Eval」で検索

>>681
こういう人を「したり顔の馬鹿」というんだよなあ。。

俺のVBのイメージ
柱、屋根、家具などが用意されてる家
利用者が試行錯誤しながら(でも直感で柱は柱と分かる)組み上げるだけで
目的の家が建つ

Cの場合は土台のみが用意されていて
利用者が自分のセンスで自由に家を建てる

アセンブラは山そのものと鉄の固まりがごろんと転がってて。好きにしろって感じかな

Perlは材木の変わりに軽くて加工しやすい発砲スチロールと段ボールが広場にある感じ

PHPは特定の利用に特化したプレハブかなぁ

誤爆った
すまん

>>667
配列で処理したくないってのは、コントロール配列にするのが嫌ってことかね？
それとも、CheckBox/Object型の配列に参照突っ込んだ配列すら使いたくないってことかな
その２つの代わりにEval探すってのはセンスない気がするなぁ
どうしても配列嫌なら関数作ればいいんじゃないか？
Private Function 禿しくげっと(ByVal なんか適当なIDとか As Integer) As CheckBox
　　Select Case なんか適当なIDとか
　　Case おさかな　' Const か Enum か 直値
　　　　Set 禿しくげっと = checkbox_【おさかな】
　　Case おやさい
...
End Function
禿しくげっと(n).Enabled = VALUE(n)

>>682
そういう煽りはいくない

>>685
ありがとうございました
パソコンの中に他の人が作ったファイルがありまして
それを真似して解決しました
【object(だったかな)】.("hoge" & n).value = VALUE
てな方法(多分 初歩の記述)が使えました

配列にするのが嫌だったのは
オブジェクト名を変える必要があると思ってて
それまでのコードを書き直すのが面倒だっただけです
失礼しました

かなり、初歩的な質問だと思いますが、、
処理２の場合は｢プロシージャC｣を
処理せずにもう一度txtA(ﾃｷｽﾄﾎﾞｯｸｽ)を入力されるように
戻る処理はどう書けばいいのでしょうか？

Private Sub cmd_Click()
If txtA.text = XXX then
処理１
Else
処理２
End if

プロシージャC
End Sub

>>687
処理2の後にExit Sub

>>688
むしろ処理１の直後にプロシージャCを移動すべきではないだろうか

If txtA.text<>XXX Then
　処理２
exit sub
End if

処理1

プロシージャＣ

>>690
ネタだよね
まさか、本気じゃないよね

>>691
どこかおかしいのか？

>>692
Else使えよという話。

たったその程度で間違いでもないのに、ネタだよね本気じゃないよね あつかいすんのかよｗ

本当はおまえ。どっかみ間違えたんじゃねーの？ｗ

else使えよ
exit sub使うなよ
不一致条件式ではなく一致条件式使えよ

別に exit subつかってもいいじゃん

Exit Sub使った方がいい場合もあるが
今回の処理は使わない方がいいな
そもそも、使う必要が全く無い

別に使ってもいいじゃん。

教条主義的な馬鹿と、単なる自分の「慣れ」に過ぎないものと
万人にとっての可読性の区別がつかない馬鹿が多いな。

そんなもんどっちでもいいだろ。
プログラミングは工学であってイデオロギーじゃねえんだよ。
機能を必要十分に果たすのであればどちらでも選ぶところはない。

まあ、2の10乗を出すのに
2 ^ 10と書くのも2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2と書くのも
ループで乗算するのも自由だわな。
機能を必要十分に果たすのであればどちらでも選ぶところはない。

VB.6.0なんですが、ソースコードに行番号を表示することはできないのしょうか？

>>699
＞プログラミングは工学であってイデオロギーじゃねえんだよ。
違うね、９０年間かけて探し出した俺の答えは
『プログラムはオナニー』なんだよ
君は【2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2】なんて数式でイク事ができるか？
俺は変態じゃないから そんなきったない数式じゃ勃ちもしないね

わろすわろす

やべぇ。妙な所でＷキーしちまった
９０年って俺 何歳だよ
分かってるとは思うが ９年間な

>>704
もう一度 自分の歳を考えてから発言した方がいいですよ

ここはひとつ、原点に戻って考えるんだ
プログラム初心者に、とりあえず教える方法としてどうかということだ
とりあえず、よく分かってないうちは goto 使うなと教えるだろ
そう考えれば 695 の内容は、基本中の基本だろう
699 みたいな意見は、質問スレの回答としては、初心者を惑わすだけで無意味だ
質問者に実力が付けば、おのずと自分で模索していくだろうしな

どっちでもいいじゃん。

質問に対する回答なのに、どっちでも良いってｗ
回答する気ないなら、ROMってろよ

どっちでもいいも回答の一つ。

ただの入力検査で　txtA.text=XXX 以外をはじくんだから
冒頭ではじくような分かりやすい　>>690　のやり方が普通だと思うけどな。

処理1が長くなったり、プロシージャＣ以外の処理を追加する場合を考えて俺ならそうする。

覚えておくといい
普通は途中で関数から抜けるソースは書かないんだよ

そんな普通は無い。

途中で関数を抜けるのは、whileループを
breakで抜けるのと大差ありません。

わからんなぁ。入力検査なんだから、抜けさせるのが目的なんだろう。

IF A=B Then
・
・
・
・
Else
　　
　ここで入力ミスの処理

End If

だと長くなるし、何やってんのかわからんくなるぜ。

>>714
しかもその条件が複数あると、ネストがどんどん深くなるしね。
本ばかり読んでかじった知識で言ってるだけで実戦経験すくないんじゃね？

バカばっかりだなここ
プログラムで飯食ってる奴はさすがにいないだろうな

>>710
趣味のソースではオレもたまにやるけど、
条件が複雑なエラーチェックでネストが４重超えそうなほど
醜いソースの時くらいしかやらないなぁ
そんな場合も、大抵じっくり考え直してみると
ネストしまくりの処理自体がアホだったりするしｗ
そもそも１段階のネスト嫌って Exit Sub はありえなｽ

>>714
いや、そんなに関数長くなるなら、そもそも組み方がおかしい可能性を疑うべし

未だに出口は一つとか信じちゃっている奴がいるの？

複数の人と開発する時はそうしてるよ

出口は一つってGoto禁止原理主義者と同じ臭いがする。

私的には、Exit Sub/Func禁止だけどGoto容認。
リソース開放処理をそこらじゅうにかかれるのは論外。
Try Catch Finally のThrowの代わりにGoto。

いいね、いいねぇ〜
みんな 素敵なオナニーしてるじゃん
俺も負けないようにがんばるよぉ！

某言語の初心者用向けの本の中にコラムで
以下のような文があったのよ
＞カレンダープログラムの中に皆既月食の表示をしようとしたが、
＞その日付の取得方法が分からなかった
＞筆者は 天文博物館に電話して、その計算方法を尋ねたが
＞「かなり複雑で難解な計算が必要になりますよ」との回答だった
＞筆者は「今後１００年間の月食の日付は全て分かりますか？」と尋ねたら
＞「表があるのでお送りします」と言われた
＞筆者は、その表にある日付を全て データとして組み込み、満足した
＞今でも あの方法は間違いでは無いと思っている

俺は、この作者を可愛そうだと思った
だって、そんな方法じゃ満足感は得られないっしょ？

>>722
何が可哀想なの？

目的が何かで満足を得られるかどうかは変わるでしょ。
難解な計算をして皆既月食の日を求めることが目的なら満足は得られないだろうけど、
カレンダーに皆既月食を表示したいだけなら目的は達成される。

俺が言いたい事は、手段と目的を履き違えるなってことだ。

でも、プログラムの楽しさって６０％以上は
自力でアルゴリズムを導き出す時の達成感じゃない？

ゲームを作る時も、ゲームシステムとかルールとかを考えてる時は楽しくて
無茶苦茶張り切るよね？よ〜っし絶対に作ってやるぞ〜みたいな
でも、構想段階が終わってソース入力の段階に入ると一気にやる気が揮発しちゃうよね
それで、いつまでも完成しなくて結局中途半端なコードがいつまでも放置される事になるんだよね

「お前は プログラムを作成しろ。ただしサブルーチンと内部の細かい計算式はこちらで作っとく」
なんて言われたら、絶望しちゃわない？

>>726
オマ、中学生ん時 慣れない連立方程式を解くの 大好きだったタイプじゃね？
でも、慣れてきて解くのが作業になった時には 面倒くさくて投げ出してたタイプじゃね？

自己ルール：質問が無いときは質問スレでsage雑談しても迷惑じゃないのでＯＫ
※） ただしなるべくスレの内容に合う話題。

>>726
車輪の再発明
お前はライブラリを使うな。

っていうか皆既月食の計算なんか
他人の力を借りずに自分でアルゴリズムを
見つけるとしたら天体観測から初めて何年かかることやら。

自転やら引力やらまともに計算したらえらいこっちゃ
自力で解けとか言う奴はお前は解けるのか？って思うよな

１．起動したら監視開始
２．変更受信したら処理＞監視継続
３．プログラム終了と同時に監視終了

FindFirstChangeNotificationでハンドル作成、
WaitForSingleObjectで変更受信したら処理をさせてDoevents、
これをDoでループさせます
プログラム終了時に、FindCloseChangeNotificationでハンドルをクローズします

このやり方でファイルの変更監視のプログラムを作りたいのですが、
プログラム終了時に監視がどうしても抜けられなく、フォームのUnloadが通っても
監視のプロシージャに処理が戻ってきてしまいます

どうしたら、プログラム終了と同時に監視終了できるのでしょうか

>>730
だからエスパーはいないって。あなたの文章イミワカリマセン。

ヒトにわかる文章かけない人間が、
ヒトよりずっと融通の利かないコンピュータのコードをかけるだろうか。

わかんなきゃ黙ってればいいのに。

｢わかんなきゃ黙ってればいいのに。｣しか言うこと無いなら黙ってればいいのに。

>>732
ちゃちゃ入れるために監視してるの？ｗ
随分暇か現実逃避してるんだか。

>>730
Unloadで何してるの？暗黙のフォームとか呼び出しをされるようなことしてない？
通貨、確実の終わらせたければEnd書いちゃえばいいじゃん。

>>731
すみません・・・コピペしてきて自分でもあまりよくわかっていないものに
ついての質問でしたので・・・言葉もありません

>>734
監視の開始と終了をするFunctionプロシージャがありまして、
引数にフラグを設けています
Form_Load時にそのプロシージャを開始フラグで動かしまして、
Form_Unload時に終了フラグで動かす、
ということをやっています

終了フラグのときは、ループに行く前にFindCloseChangeNotificationを実行して、
Exit Functionで抜けるようにしています
そこで関数を抜けて、FindFirstChangeNotificationもWaitForSingleObjectも
通っていないはずなのに、Unloadが通った後になぜかいきなりループ内に戻ってきて
監視が継続されているのが、どうしても抜けられなくて・・・

Unload時にプロシージャを動かさず、Endを書いて強制的に終了、
というのはできたんですが、できたら監視を終了させて、その後でフォームを終了と、
キレイに流したかったので、質問させていただきました

>>734
> 通貨、確実の終わらせたければEnd書いちゃえばいいじゃん。
やめろって。Unloadで終わらないってことはバグがあるってことなんだから。
バグにふたをせずにバグを直すべき。

>>735
FormのLoadとInitialize、UnloadとTerminateにDebug.PrintやMsgBox等をおいて
予期しないタイミングでイベントが発生していないか、
どこでそのイベントが発生しているか調べるべし。

そのとき、Debug.Print Form1.Nameとかせずに
Debug.Print "Form1"のように単純な文字列を使うべし。
（Form1.Nameのようにフォームのプロパティなどを書くと、
Form1がアンロードされていてもその場でロードしてしまうから）

>>735
なんかまだ釈然としない文章だなあ。。
だから推測で答えるしかないけど、恐らくVBの基本が全然わかってない。

具体的にいうと、
＞FindFirstChangeNotificationもWaitForSingleObjectも 通っていないはずなのに、
こうあるけど、ループをスキップすることと、ループを抜けることは全然違うよ。

最初に「監視の開始と終了をするFunctionプロシージャ」をコールしたときに
ループを開始してるんだよね？そのループを抜けてないんじゃないの？

相変わらずこのスレはギャグか本気かわからん微妙なやつが沸いて面白いなｗ
>>687-729なんじゃこりゃｗｗ

とりあえず、>>721だけは許せない奴だという事がわかった
仕事で一緒になったら金だけ持ってトンズラする

>>721
> Try Catch Finally のThrowの代わりにGoto。
Throwの代わりはErr.Raiseだろ。

今帰ってきました
みなさん、返信ありがとうございます
明日また、ひとつひとつ試してみます

>>737
すみません、お手数おかけします
はい、最初のループを抜けれてないんだと思います
それを、任意のタイミングで終了させたいときに、どうやったら抜けれるのだろう、と・・・
単純に、もう一度Function実行して、それがループに入る前に
FindCloseChangeNotificationを実行してしまえば、終われるのかと思っていたのですが、
どうも違ったようです・・

>>734
>確実の終わらせたければEnd書いちゃえばいいじゃん
プログラムを強制終了すりゃいいってもんじゃないだろｗ

>>735
文章が支離滅裂で想像の域を出ないので想像だが
734も言ってるが、Unload抜けた後、フォームにアクセスしてるんじゃないか？

監視ループでExit Doしてないだけだったりしてな

監視ループがDo~Untilだったりしてな

おはようございます
先ほどこれで解決かな？というところまでできました
やっぱり物を考えるのは、夜中よりも、眠くても朝がいいみたいです・・・

問題は、
Unloadプロシージャを抜けたでも、フォーム起動時に実行した監視ループが終われず、
終了時にそのループを抜けるようにしたい場合、ループ内にどういう条件を挿入すれば
実現できるのか、ということでした
いただいたご回答を読みながらはじめて、なんとなくこういうこと？って気付いてきたもので、
最初からうまく説明できてなくてすみませんでした

いままで、引数やプロシージャレベルで何とかすることだけしか考えてなかったんですが、
モジュールレベルで開始・終了のフラグを持つことで、正常に終了できるようになりました

大変お騒がせしてしまって、申し訳ないです
本当にありがとうございました

>>740
また脳みそ足り無そうな書き込みだな。部分だけ捉えて本質理解してない。
ErrをRaiseして、Finallyに該当する機能をどうやって実装するの？
エラーを通知することを問題視してないでしょ？元の>>721の書き込み。
絶対に通ることを保証される処理をどうやって記述するかを問題視してるわけで。

適切にモジュール化されてればGotoなんてほぼ不要だよ。
それでもしょうもない直しのときなどで考えるわけで。

VBにはFinallyの概念が無いんから、Try Catch Finally にこだわる必要は無いだろ

>>746
悪いけど「脳みそ足りない」のはむしろ君の方だと思う。
俺は740じゃないよ。
言ってること全然つじつまが合ってない。正直、意味不明。
あんまり無理に背伸びしない方がいいと思うよ。

>>746
どこからFinallyがでてきたんだよ？ｗ
>>721のどこをどうみてもThrowの代わりとしか書いてないぞ。

>>749
>>721にきちんと書いてあるけど。
リソース開放の為、Try-Catch-Finallyって。

もしかして、ThrowしてもFinally保証されるっていう仕様を理解してない？

質問させていただきます。
If　〜　Then　を使って、
「もし文字列strがアルファベット(A〜Z)ならば」という条件を入れたいです。

確か >= とか <= という記号を使って表すことができたと思うのですが。
記憶違いかもしれません。

条件が曖昧すぎ
比較対照の文字数は1文字なのか不定なのか
小文字は弾くのかどうか

つーかこのくらいググればいくらでも出てくるだろう

If Asc('A`) <= str And str <= Asc('Z') Then

例えばこんなん？

それならlikeの方が良くないか?

あそこもﾂﾙﾂﾙに剃りあがる勢いで禿ﾜﾛﾀｗ

('A`)

狙いすぎだと思いマスタ

>>756
実はそれが書きたいだけでした。

はじめまして。
VB6.0でキーボード、マウスの無操作時間を取得したいのですが、なにかサンプルはありませんか？
キーボードもマウスも触らない状態で放置しているとスクリーンセーバーが起動しますよね。
その放置している時間を取得したいのです。

マウスが動くごとに時間取得して差をとったら良いとｵﾓ

子供向けのVBには放置プレー向けの道具は備わっていません。

>>758
スクリーンセーバー実行までの待ち時間なら ISBN4-88337-198-0 の本に載ってる

いちいちそんな本を引かなくとも、SystemParametersInfoにSPI_GETSCREENSAVERRUNNINGを渡せばわかる。
758はこんな答えをほしがっているとは思えないけど。

>>762
なんで時間を欲しがってるのにRUNNINGの方を紹介してるの？

シフト演算用は何を使えば良いんですか？

シフト演算子は無いから掛け算・割り算等で代用するよろし

VB6.0ですが、pictureで表示した図を拡大や縮小しても

画質を落とさずに表示するには、どうすればいいのですか？

ラスタ表現からベクタに表現に変換すればよいらしいのですが

変換のやり方がわかりません。

>>766
拡大縮小したい図はベクタで表現できるような図なの？
風景写真などをベクタにするのは無理に近いぞ
自分でLineなどを使ってPICTUREに書いたのであれば、
書いた座標記憶しておいて割合で倍にすればいい

>>767
自分でLineなどを使ってPICTUREに書いたほうです。
ありがとうございました。

色々とご教授ありがとうございます。

スクリーンセーバーを起動する時間ではなく、キーボード＆マウスを放置している士官を取得したいのです。
ググっても探せませんでしたので、もしご存知の方お教え願えますでしょうか。

何度も質問して申し訳ありませんがよろしくお願いします。

dim Src as string: Src = AppPath & "\temp\" & S
dim Dest as string: Dest = AppPath & "\" & S
Kill Dest
Name Src As Dest

3.で「パス名が違う」ってエラーが出てた後、4.で「既に同名のファイルが存在します」ってエラーが出るんだけど、どうして？

>>769
スクリーンセーバーはキーボード＆マウスを動かせばタイマーがリセットされるでしょ。
同じことを求めるにしても他の道からのアプローチは受け入れないって、勉強する気あるのか？
ISBN4-88337-198-0 の本を覘いてみなされ。

その本はWEBに公開されているものを書籍にしてるやつなのだが、
直接的な答えは書いてないなぁ

>>769
VisualC++板か、Win32API板に行くと良いぞ。

マウスとキーボードの非操作期間検出みたいなシステム監視系は
VB6みたいなハイレベルな言語では大変だな
簡単な言語のVC++あたりでフックdllを作った方が良いんじゃないか

SPRED3.0でセルの高さが40くらいあるセルに値を書き込んだとき
セルの高さの真ん中あたりで表示されるようにするには
どうしたらよいでしょうか？

ボタンをクリックしたら、デバイスのプロパティ
（デバイスマネージャから見ることの出来るプロパティ。たとえばCOM1とか。）
の2タブ目以降を一発で表示させる方法というのはあるでしょうか。

OS：WinXPSP2
VB6
という限定環境でかまいません。

COMでなくてもなんでもいいです。

ログイン認証システムを本などを参考につくってみたのですが、うまくいきません。
DBに接続もできてますし、SQLも単体で動かすと１件データがあるんですが、
RecordCount がなぜか -1　です。
なにが原因なのでしょうか？

Private Sub CmdLogin_Click()
Dim cnn As New ADODB.Connection
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Dim strSQL As String
Dim strID As String
Dim strPass As String

strID = txtID
strPass = txtPass

strSQL = "SELECT password FROM tbl_staff WHERE userID =' " & strID & " ' "

Set cnn = New ADODB.Connection
cnn.ConnectionString = strConnect

cnn.Open

Set rst = cnn.Execute(strSQL)

If rst.RecordCount < 0 Then
Msgbox("A")
Else
Msgbox("B")
End If

End Sub

ヘルプ見る限り、判らないときは-1という独特の逃げの表現ですね。
その状態で、BOF、EOFはどうなってるの？実際にレコード取れてないの？

>>778
レスありがとうございます。
以下のEOFを追加してみると正しく１件データが
Label2に表示されました。

・
・
・
cnn.Open
Set rst = cnn.Execute(strSQL)

Do While Not rst.EOF
Label2.Caption = rst!Password
rst.MoveNext
Loop

If rst.RecordCount < 0 Then
Msgbox("A")
Else
Msgbox("B")
End If

End Sub

>>779
RecordCountが取れないのは
カーソルの設定じゃないかなぁ。
これをいれてみてもRecordCountは-1ですか？

cnn.CursorLocation=adUseClient

違ってたらすみませぬ。

>>780
無事、RecordCount取れるようになりました！！
ありがとうございます。

・
・
cnn.Open

cnn.CursorLocation=adUseClient

Set rst = cnn.Execute(strSQL)
・
・

MSHFlexGridでセルに縦書きするにはどうすれば良いですか?

WindowsXP、VB6SP6です

>>782
出来ない。

知ってる奴だけ答えればいい。
知らない奴は答えなければいい。

おまえﾓﾅｰ

五．荒らしは相手しない。

>>783-787 = 荒らし

>>782
色々考えられるけど、Pictureに縦書きフォントで回転して書いて貼ったり
IE5.5以降が必要とさせてIEコンポーネント貼ったり
短冊状にテキストボックス張ったりラベル貼ったり

>>788
ヒント：セルに