VBプログラマ質問スレ(6.0以前) Part33
レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん
NGNGVB.NETの話題はできるだけひかえてください。
前スレはこちら
(pc2サーバ壊滅で見れない。pc2をpc5に変えれば見れる。
過去ログの場所がどうなるのか良く分からんので次スレ立てる人修正よろ)
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/test/read.cgi/tech/1069160036/
Part31 http://pc2.2ch.net/test/read.cgi/tech/1073732636/
Part32 http://pc5.2ch.net/test/read.cgi/tech/1077216109/
【VB.net関連スレ】
VB.net質問ｽﾚ (Part5)
http://pc5.2ch.net/test/read.cgi/tech/1078134703/
【Win32 API関連スレ】
Win32API質問箱 Build17
http://pc5.2ch.net/test/read.cgi/tech/1077470361/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。
五．荒らしは相手しない。
六. VB情報募集中。
七．VB.NETの話題できるだけひかえる。
0002デフォルトの名無しさん
NGNGPart 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
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
0003デフォルトの名無しさん
NGNGhttp://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx
0004デフォルトの名無しさん
NGNGどうすればいいでしょ？
0005デフォルトの名無しさん
NGNG不可能。
なんでそんな機能が欲しいの？
用途によってはクラスで代用できるかもしれないけど。
0006デフォルトの名無しさん
NGNGグループ事に分けて分かりやすい構造体として宣言できれば
呼び出す場所でラクだなあと
0007デフォルトの名無しさん
NGNGenum使え。
0008デフォルトの名無しさん
NGNG0009デフォルトの名無しさん
NGNG0010デフォルトの名無しさん
NGNGプロジェクト内というのは
プロジェクトの集まりの誤りです。グループに追加したまとまりです
なので 外部コールになります
0011デフォルトの名無しさん
NGNGもし興味がございましたらのぞいてみてください。
VBと非常に似た文体でVB経験者も多いです>>NS Basic/Palm
もしPalmもお使いのVBゆーざーがいらしたら参加してくださいね
あちらこちらに貼ってすいません
【nice】初心者！PalmでNS Basic/Palm【smart!!】01
http://pc4.2ch.net/test/read.cgi/mobile/1080549560/
0012デフォルトの名無しさん
NGNGタイプライブラリが必要
0013デフォルトの名無しさん
NGNGコンパイル時のみ必要で配布不要なんですよね確か 一度試してみます。
ありがとうございます
0014デフォルトの名無しさん
NGNGプロジェクトの外にenumを公開するにはクラスに書かなければならない。
0015デフォルトの名無しさん
NGNGその内容を用いて、データを操作しそれを再度アクセスして
更新するというようなことは可能でしょうか？
ADOとＯＤＢＣで可能らしいというのはきいたのですが、
具体的な方法や文献がさがしたけど見つかりませんでした。
どなたかアドバイスをお願いします。
0016デフォルトの名無しさん
NGNGサーバーがインターネット上にあろうがLAN上にあろうが
プログラムは変わらない
0017仮人 ◆Qy2chZzA.A
NGNG教えて君でスマソ。
0018仮人 ◆Qy2chZzA.A
NGNGあ、MSDNで調べてないや、スマソ・・・。
0019デフォルトの名無しさん
NGNGVB6で作ったプログラムをWinXPで動かした場合だけ
以下のようなエラーが発生します。
発生する場所は不定で、負荷の高い処理で発生しやすいです。
ﾊﾝﾄﾞﾙされていない例外 は xxx.exe (NTDLL.DLL) にあります: 0xC0000005: Access Violation。
同じような経験をされた方はいらっしゃいませんか？
VB6はXPに対応していないということでしょうか。
0020デフォルトの名無しさん
NGNGしてない。
0021デフォルトの名無しさん
NGNGCopyMemoryは挿入じゃないな。
できない。
>>19
再現できる最小のコードを用意汁。
002219
NGNG最小のコードを用意しようとしてエラーの発生箇所にアタリをつけて
いろいろと調べていると、DLLからの文字列渡しの問題であることがわかりました。
DLLからの文字列渡しをファイル渡しに変更したところ、一応問題は解消しました。
しかしファイルで渡すなんてドンくさいことはしたくないので
正しい文字列渡し(DLL->VBアプリ)の方法を調べているところです。
なぜXPだけで起こるのかも不思議です。
0023デフォルトの名無しさん
NGNGこれって一般的な用語なの？
0024デフォルトの名無しさん
NGNGうちでは使ってるよ。 言語問わずに・・・
0025デフォルトの名無しさん
NGNG・文字列渡す
Dim s As String
s = "Hoge"
Call DllFunc1(s)
（何も考えなくてよい）
・文字列受け取る
Dim s As String
s = Str(vbNullChar, 120)
Call DllFunc(s, 120)
（事前に必要な文字列分の長さを確保してからコールする。
120はsに確保されたメモリの領域サイズの意味）
MSDNに1から10まで書いてあるから、よく読むこと
0026デフォルトの名無しさん
NGNGhttp://support.microsoft.com/default.aspx?scid=kb;ja;821679
これが原因のMSGが裏で表示されるためOutlookのアドレス帳に
アクセスするところで処理がとまってしまうんですが
回避方法ありませんか？
0027デフォルトの名無しさん
NGNGJavaをお勧めする。
0028デフォルトの名無しさん
NGNGC#をお勧めする。
0029デフォルトの名無しさん
NGNG強力にJavaをお勧めする。
0030デフォルトの名無しさん
NGNGセキュリティ強化の弊害だね。まあ仕方ないといったところか。
普通のやり方ではそこに書いてあるとおり
アクセスを許可する時間を毎回指定する必要があるのだろう。
> COM アドイン プログラムはデフォルトで信頼されており
もしかしたらユーザが作ったプログラムを信頼させる方法があるかもね。
ウインドウをプログラムで操作してなんて奥の手も考えられるけど
なんかオススメできない感じ。
>>27,29
それは無理だろうｗ
もし出来たらJavaはセキュリティを破ることが出来る事になっちゃうよ。
>>28
C#(.NET)ではアクセスするための新しいオブジェクトでもあるのか？
0031デフォルトの名無しさん
NGNGツリービューコントロールへ256色アイコンを表示しようと思ったのですが
16色へ減色されてしまいます。
256色アイコンを表示する方法はありませんでしょうか？
0032デフォルトの名無しさん
NGNGVB5CCEでBMPを取り込む限りフルカラーに対応しているっぽいので
BMPを使うか16色パターンを含まないアイコンで試してみては？
0033デフォルトの名無しさん
NGNGBMPでもOKなんですか？やってみまつ。さんくすー
0034デフォルトの名無しさん
NGNGできましたー
でもicoでいうところの透明色っていうのはbmpではないですよね。
まあ、余白のところは白にしておけば問題ないということにしました。
0035デフォルトの名無しさん
NGNGicoファイルは一つの画像ではなく、
いろんな大きさ・色数の画像の集まりで、
使用する個所によって適切なものを選択するので
icoファイルがおかしいか、Windows上の制限じゃない？
0036デフォルトの名無しさん
NGNGMSFlexGridの列見出しをクリックした時、その列がソートするようにしたいのですがどうすればいいのでしょうか？
.NETだとAllowSortingプロパティをTrueにするだけらしいのですがVB6にはそれらしいプロパティが見つからないので・・・。
0037デフォルトの名無しさん
NGNG0038デフォルトの名無しさん
NGNGEnterキーを窓から投げ捨てろ
なんでそんな機能が欲しいのかな？
0039デフォルトの名無しさん
NGNG必要な理由がさっぱりわからん。
イベント関数の頭で、嫌なら抜けるっていうIF文を書けば？
0040>>39
NGNGで、コマンドボタンはEnterを受けるのが仕様、だからコマンドボタンを使わずに、
自作のボタンを作成するか、PictureBoxなどで代用。
0041デフォルトの名無しさん
NGNGいったんCommand_Click()に入って、if条件ですぐexit subするだけじゃダメなのか？
0043デフォルトの名無しさん
NGNG説明不足だったようですみません。
理由は42さんがおっしゃったような理由でマウスクリックのみ拾いたいということでした。
ありがとうございました。
0044デフォルトの名無しさん
NGNGフォーカスを持たないようにすりゃいいだけなんじゃないの？
0045デフォルトの名無しさん
NGNGMSFlexGridってオマケですよ。
色々機能が欲しいなら、VSFlexGridを買うべし。
で、そこら辺の機能も削除されていたような?
>>35
NT4.0って、256色アイコンに対応していましたっけ?
表示関係はWindows95レベルだと思ったけど・・・
0047デフォルトの名無しさん
NGNGFlexGridじゃなくてListViewのViewをReportにしてグリッド表示にすれば
普通にできると思うんだけど。
0048デフォルトの名無しさん
NGNGFunction func1() As Double()
...
func1(i) = 0.1
...
End Function
とすると、func1(i)を関数呼び出しと誤解してエラーがでます。
とりあえず回避するには一度別の配列に返り血をセットした後、
コピーすればいいと思いますが面倒です。
みなさんはこういうのどのようにコーディングしてますか？
0049デフォルトの名無しさん
NGNGDim data() As Double
ReDim data(10)
data(0) = 0.1
data(1) = 0.2
func1 = data
End Function
005049
NGNG0051デフォルトの名無しさん
NGNG[配列を返す]ってことの物理的な意味がわからずにこういうコード書くと、
いつかどこかで痛い目に会うことになるような気がするなあ。
0052デフォルトの名無しさん
NGNG確保した領域が空き領域を埋めるだけで開放されません・・・
どなたか助言よろしくお願いしまふ。
0053デフォルトの名無しさん
NGNGDir関数でファイルを検索することはできます。
0054デフォルトの名無しさん
NGNGなんで開放されてないってわかるの？
>>53
Name ステートメントは？
0055デフォルトの名無しさん
NGNGお疲れさまでした。安らかに............
005653
NGNGできました！
ありがとうございました。 m(_ _)m
0059デフォルトの名無しさん
NGNGもちろんVirtualAlloc使ってるんだよね？
006048
NGNGSub SetArrayVal(Byref ary As Variant, Byval index As Long, Byval val_ As Variant)
ary(index) = val_
End Sub
なんてのを考えました。少しは楽になります。
0062デフォルトの名無しさん
NGNGそう見える理由の予想はつくが、APIスレで聞きなおすといい。
0063デフォルトの名無しさん
NGNG989 ：デフォルトの名無しさん <> 04/04/03 12:02
すいません。
特定のWebページを保存するプログラムって簡単に書けますか？
VBSで書けると助かります。
やりたい事は、
ある特定のWebページを
[日付].html
例えば
2004.04.03.html
というファイル名で保存するプログラムが欲しいのです。
これをジョブに入れて、
毎日更新されるWebページを
毎日決まった時間に保存し、
後からさかのぼってみれるようにしたいのです。
何卒宜しくお願い致します。
0064デフォルトの名無しさん
NGNG0065デフォルトの名無しさん
NGNGカラムとか設定していって
実行したとき一番右へスクロールすると灰色の部分みっともないですよね
どうやってコードで見栄えよくすればいいでしょう？
0067デフォルトの名無しさん
NGNGイエ そういう回答を求めてるのでは
なくコーディングでカバーできる範囲の技術をお伺いしているだけであって
。。。。。
0069デフォルトの名無しさん
NGNGいやありますよ絶対ある。 ライセンス系のコンポーネントは
後がウザイのでなんとか技術でカバーしないと
スクロールとかで取得できるイベントがあるんですから
なんとか列幅変更の合計値Xを最大mxで定義した定数の範囲内で
サイズ制限するなどなんかあるはずです。それを教えて
0070デフォルトの名無しさん
NGNGい や だ
0071デフォルトの名無しさん
NGNG見る人次第ってことじゃないのか？
0073デフォルトの名無しさん
NGNG0074デフォルトの名無しさん
NGNGあえていおう
ぬるぽ
0075デフォルトの名無しさん
NGNGもっている。喩えて言えばそうだな、ビル最上階のおどり場のような・・・
0076デフォルトの名無しさん
NGNG0077デフォルトの名無しさん
NGNG0078デフォルトの名無しさん
NGNGhttp://intermezzo.cool.ne.jp/report/Lupin/R3_temp.swf?inputStr=%82%CA%82%E9%82%DB
だな ふーじこちゃん
0079デフォルトの名無しさん
NGNGおまけコンポーネントよりは上を行くだろうな。
ただ 後の保守がめんどくさい。
仕様なんて言い分けが通用せんのよ顧客ってさ
おまけオプションを限りなく利用しつづけることが
作業量を減らす得策なのよ
業務かじってれば理解できるよね？
0080デフォルトの名無しさん
NGNG↓
新規ワークシートを開く
↓
Ctrl + 右矢印キー
↓
「灰色の部分」出現（ｗ
あのEXCELでさえ（以下略
0081デフォルトの名無しさん
NGNGオマエの「灰色の部分」には見られて困ることでも書いてあるのか？
そんなもん気にするな。
0082デフォルトの名無しさん
NGNG0083デフォルトの名無しさん
NGNG酷い扱いされてるけど。ホントはここからさきは何もないよ
ってことをユーザーさんに通知する、重要な任務をまかされ
てるわけよ。それを消そうって奴は地獄の業火に焼かれて(ry
0084デフォルトの名無しさん
NGNG0085デフォルトの名無しさん
NGNGなんたるかを理解してないだろ
ヴィジュアルは見栄えだ 要は見栄えなんだよ
無知な顧客がないようをしらずに最初にいう
クレームの内容だよ！！
そこにスムーズに対応できる人間が才能あるPGってもんだろ
0086デフォルトの名無しさん
NGNGどういうのが良い状態で、どうだとダメなのかを教えてくれ。
0087デフォルトの名無しさん
NGNG結構そういうのあるよね。説明しにくいけど、
ある人にリストビューの詳細表示で右側の空白をクリック
(つまりファイルの詳細表示画面のファイル名の右の空白をクリックすること)
しても行選択されないといわれたことがあるんだが、
自分が普通に使っているとその空白をクリックしてフォーカスを当てて
スクロールをしているからクリックで行選択されたら困ることに気づいた。
スタイルの違いってのがあるんだろうけどWindowsはWindowsで
使いやすいようにちゃんと考えているんだよな。
0088デフォルトの名無しさん
NGNGだったら2chで訊くなよ。あ、自分は才能ありませんってオチか？
0090デフォルトの名無しさん
NGNGだから、その行動が才能ない奴の典型だっつってんだろうが（ｗ
0091デフォルトの名無しさん
NGNG0092デフォルトの名無しさん
NGNGどうなったら解決なのかいまいちわからん。
0093デフォルトの名無しさん
NGNG必然的に回答をすっぱりもってこれない
あなたも同じ域だろｗ
まあ無能どうしなかよくやろうや（笑）
0094デフォルトの名無しさん
NGNGおれもVSとかスプレッドシートは
つかったことないからわからんが
理想はエクスプローラーの詳細表示した項目部分の
制御方法が近いな
0095デフォルトの名無しさん
NGNGようやく自分に才能がないことを認めてくれたね。が、俺はまだ認めんよ（ｗ
0096デフォルトの名無しさん
NGNG0098デフォルトの名無しさん
NGNGそんなことはできないことにするゲームをしているのかと思ったが、
どうやらそうじゃなくてこのスレの人たちは本当にどうやったら「灰色の部分」を
無くせるのか知らないようだ。。
しかしまじめな話にはちっともレスがつかないが、
ちょっと厨房な話題になるとどっからともなくＶＢ●（以下自主規制）が
沸いてくるな。
009998
NGNGインデックス0の列のwidthを0に汁。
010098
NGNG0101デフォルトの名無しさん
NGNG0102デフォルトの名無しさん
NGNGそーなんすよ
普通だったら２行くらいでアドバイスのひとつでも出てきそうな
ものでしょ？
スキル豊富なら余裕なはず。俺もたのまれれば
ちょっとVBあげて試作 みたいにしてるはず。
0103デフォルトの名無しさん
NGNG昔「灰色の部分」だったと思うものを無くす努力をしたことがある。
そして確か無くせたという記憶がある。
しかし、それが何のコントロールだったか忘れた。
0104デフォルトの名無しさん
NGNGマジレス：
インデックス0の列のwidthを0に汁。
100 ：98 ：04/04/04 22:47
あ、Colwidthね。
ありがとうごぜえます。このようなレスをまっておりました
さっそく作業にかかります。ありがとうござますた
>>103
なんですとー！！このやくたたず
0105デフォルトの名無しさん
NGNG釣り・・・なのか？
0106デフォルトの名無しさん
NGNG0107デフォルトの名無しさん
NGNG0108デフォルトの名無しさん
NGNGスクロールバー用の幅とかなんかそんな感じだったと思う。
0109「灰色の部分」保存会
NGNG0110デフォルトの名無しさん
NGNG011198
NGNG本当はもっと簡単に行ヘッダなんて無くせるし。
ていうか質問者そのものがたぶん釣りだろう。
プロパティページちょっといじれば誰でもすぐできるようなこと
真顔で聞いてるとしたらちょっと頭の性能疑う。
0112デフォルトの名無しさん
NGNG0113デフォルトの名無しさん
NGNGただの暇つぶし込み釣りという罠
0115デフォルトの名無しさん
NGNGかなりの確率で違うと思うけど、
聞いてきたヤツが納得していなくなったみたいだから、
結果的には良しとするか。
011698
NGNG答え：
１．本当に必要な列のほかにダミーの列をひとつ一番右に追加する。
２．各列の幅の比率と、ダミー列の幅をあらかじめ決めておいて、
フォームのロード時かなんかに全部の列の幅の合計がFlexGridのWidthと
等しくなるように各列の幅を計算で求める。
0118デフォルトの名無しさん
NGNG他のサイズ自体を変えてしまうのはどうかと思うんだけど。
0119デフォルトの名無しさん
NGNGそんなの、人の考えによりけりでしょ？
ダメと決め付けることは出来ない。
0120デフォルトの名無しさん
NGNGダミーのカラムがFlexGridのWidthいっぱいに広がる可能性もあるわけで・・・
それはそれで醜い（ｗ
0121デフォルトの名無しさん
NGNG0122デフォルトの名無しさん
NGNGチェックボックスってもうけられる？
やっぱ文字列”ﾚ”しか方法はないでしょうか
0123デフォルトの名無しさん
NGNG0124デフォルトの名無しさん
NGNGその話は後にしてくれないか？
0125デフォルトの名無しさん
NGNG0126デフォルトの名無しさん
NGNGフォントを変えれば記号のような文字を使うことができる。
ってそういう話じゃないってのは分かってるけどｗ
0127デフォルトの名無しさん
NGNGめずらしい展開ですね
0128デフォルトの名無しさん
NGNG客が言うこともあるんだよね。どうしてもって。
0129122
NGNGならわたくしも はいいろ（はいりょ）します
では失敬
0130デフォルトの名無しさん
NGNGその客に会ってみたいな。そしてこう聞いてみたい
「どうして灰色の部分がそんなに気になるの？」
0131デフォルトの名無しさん
NGNG「どうして気にならないの？」
0132デフォルトの名無しさん
NGNGフレックスグリッドをコンポーネントでデザインした時
何も初期化せずそのまま実行すれば理解できると思う。
いわば火星のようなもの。
素人であれば気にしないのはあたりまえだが
神経質な１０人といろのユーザにとってケチのつく唯一の色彩
それが灰色
要はユーザーにとっての灰色は使用できないいわば Enable = False
の状態を言う そんな色彩がスクロール時にドバっとでてきたら
つっこみどころ満載なわけで、しかもライセンスとか説明したとき
ごねるのもユーザー
0133デフォルトの名無しさん
NGNGいままで白い部分が移動などの制御によって灰色化するのでは
意味が違う
013465
NGNGなんでこんなにもりあがってるんすか（笑）
結局 ロード時の処理でフレックスグリッドの幅を取得し
それを列サイズ幅合計に収まるように設定し、ドラッグアンドドロップの
処理でイベントをゲットし、ロード時の合計値を越えた場合に
カーソルをバッテンに切り替えイベントを無効にするようにしましたよ
0135デフォルトの名無しさん
NGNG0136デフォルトの名無しさん
NGNG「そんなのいらないから」で終わらせられるのがオチ。
0137「灰色の部分」保存会
NGNG間違いない。
0138デフォルトの名無しさん
NGNG白にしておけば、文句言われにくいのかな？
0139デフォルトの名無しさん
NGNG灰色の部分はバグとなるが
0140デフォルトの名無しさん
NGNG表示に時間がかかるんです。表示を早くする方法ってありますか？
0141デフォルトの名無しさん
NGNG0142デフォルトの名無しさん
NGNG禿胴！是非、作りたいね みんなで
0143デフォルトの名無しさん
NGNGそんなことでは全然遅くならないぞ？
0144デフォルトの名無しさん
NGNGデータ読み込み時に Visible = False
0145デフォルトの名無しさん
NGNGWin2000 のＰＣにコピーして実行したところエラーとなってしまいます。
コードの内容は、
Dim n As Integer
n = 12
Format(n, "@@@")
"Format"の部分が反転して『ｺﾝﾊﾟｲﾙｴﾗｰ ﾌﾟﾛｼﾞｪｸﾄまたはﾗｲﾌﾞﾗﾘが見つかりません。』
と、表示され停止します。何が原因なのでしょうか？
Format関数は複数のﾌﾟﾛｼﾞｪｸﾄで使用していますが、いずれのﾌﾟﾛｼﾞｪｸﾄもFormatの部分で
エラー(停止)してしまいます。
自分でも調べてみたのですが、解決できません。
どなたかわかる方、教えて下さい。よろしくお願いします。
0146デフォルトの名無しさん
NGNGhttp://www.google.com/search?num=100&hl=ja&ie=Shift_JIS&q=%BA%DD%CA%DF%B2%D9%B4%D7%B0%81@%CC%DF%DB%BC%DE%AA%B8%C4%82%DC%82%BD%82%CD%D7%B2%CC%DE%D7%D8%82%AA%8C%A9%82%C2%82%A9%82%E8%82%DC%82%B9%82%F1&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
014898
NGNG2chでこんなこと書くのも馬鹿げてるかもしれないけど、
もうちょっと「恥ずかしい」って感覚あってもいいんじゃない？
このレベルの問題が自力で解決できないってのは
煽り抜きでかなり情けないことだと思う。
0150デフォルトの名無しさん
NGNG「UTF-8からShift_JISへの変換」は必要無さそうだけど、
ttp://homepage1.nifty.com/MADIA/vb/vb_bbs2/200310_03100055.html
015165
NGNGいえいえ自力で解決しましたから。ご丁寧にどうも
0152デフォルトの名無しさん
NGNGほぼ同じ内容のページを２枚ずつ出力したいのですが、
Canvasの複写とmainへの追加は、どのように行えば良いのでしょうか？
宜しくお願いします。
以下、現在のソースです。
iPageMax = wActiveReport.Pages.Count
For iPage = 0 To iPageMax - 1
Set wCanvas1 = wActiveReport.Pages(iPage)
wActiveReport.Pages.Add wActiveReport.Pages(iPage)
'wActiveReport.Pages.Add (wCanvas1)
Set wCanvas2 = wActiveReport.Pages(iPage + iPageMax)
Call zArLabelPut(wCanvas1, X, Y, "", 14, 0, 0, 0, 0, "パターン１", "", 100, 100) '違う部分
Call zArLabelPut(wCanvas2, X, Y, "", 14, 0, 0, 0, 0, "パターン２", "", 100, 100) '違う部分
Next iPage
0153デフォルトの名無しさん
NGNGＶｉｓｕａｌ Ｂａｓｉｃゲームプログラミング―Ｖｉｓｕａｌ Ｂａｓｉｃで創るＡｒｔｉｓｔｉｃ Ｇａｍｅ Ｗｏｒｌｄ
なんですが、DirextＸを使ったものでしょうか？それとも初期のbitdrawのものでしょうか？
VB4のときに出たらしいのですが個人的には、ビットマップ作画だったらありがたいのですが。
この本を持っていらしてる方、ちょっと内容を教えてください。
通販しようかと思っているのですが。
0154デフォルトの名無しさん
NGNG読んだことないけど、多分DirectXは使ってないんじゃないか。
0155デフォルトの名無しさん
NGNGActiveReportって何？どこでダウンロードできるの？
0156デフォルトの名無しさん
NGNGVBからDirectXを扱えますが、きっとWinGでしょう
0157デフォルトの名無しさん
NGNG>>156
情報ありがとうございます！
使ってないだろうと言うことが分かって嬉しいです
検索してみたのですが、目次が載って無くて。当時だったらあったかもしれません。
個人的にはVBでビットマップ作画のいい参考書を探しているのですが。
（PDAで作ってるため VBに近い言語です）
親切にしていただけて嬉しく思います。ありがとう
0158デフォルトの名無しさん
NGNG外しているかもしれないが
二つ用意しておいて Visible の切替えってのはだめ？
0159デフォルトの名無しさん
NGNG有り難う御座いました。
0160デフォルトの名無しさん
NGNGthis.text = "hoge"
end sub
みたいにそのイベントのコントロール、つまり自分自身を
指すthisみたいなのないですか？
0161デフォルトの名無しさん
NGNG現在実行中のファイル名と関数名って取得できないのでしょうか？
Cでいうところの__FILE__、__LINE__ みたなのが使いたいです
ご教示願います。
0162デフォルトの名無しさん
NGNG例えばこの文字列を例にとりますと
この文字列から"index"の部分と".html"の部分を抜き出すには
どうしたら良いでしょうか？
0163161
NGNG0164デフォルトの名無しさん
NGNGa=split(sSource,"/") ' / で分解
b=split(a(ubound(a)),".") '.で分解
これで b(0) に "index" が b(1) に "html" が入る。
0166デフォルトの名無しさん
NGNG特定のスコープの中では、宣言されてもいない
暗黙のローカル変数が存在するような言語怖くて使えますかって。
>>162
そんなのヘルプ検索すればすぐわかるはず。
逆にいうとヘルプみても解決法がわかんないならプログラミングなんて
やめといた方が身のためと思う。
雑誌のおまけの試用版とか使ってるのならしょうがないけど、それなら
参考書ぐらい買えばいいのに。
InStrとかMid$とか、VB6ならSplitとか、使えそうな関数いっぱいあるじゃん。
0167デフォルトの名無しさん
NGNG>暗黙のローカル変数が存在するような言語怖くて使えますかって。
schemeのlambdaなんかはどうよ？ちょっと違うか。
というか話が違うんじゃない。
イベントを発生させたオブジェクトをsourceとかでイベントの引数に渡してくれたら
便利なケースは考えられると思うし、俺もあったらうれしいことはあるとは思う。
160への解答としては、そんなことはできないってことになる。
Combo1_Clickというプロシージャ名にイベント発生源のオブジェクト名が入っていて
ユニークになってるから、Combo1.Text="Hoge"で別に問題は無い。
何で困っているのかもう少し具体的に書いてもらえれば、なにか代替案を示すことはできるかもしれないが。
0168160
NGNGcall hoge(me.activecontrol)
end sub
private sub combo2_change()
call hoge(me.activecontrol)
end sub
みたいなことがしたいんですが
me.activecontrol=そのイベントを呼び出したコントロール
でいいのでしょうか？
0169デフォルトの名無しさん
NGNGActiveControlはフォーカスを持っているコントロール。
普通はイベントを起こすのはフォーカスを持っているコントロールだけど例外もあるから。
0171デフォルトの名無しさん
NGNGコントロールをユーザコントロール(やクラス)でラップして、
イベントをユーザコントロール側で受けてそこでイベントを処理する方法もある。
もし違う処理を行いたければイベントの処理はイベントの処理を行うクラスを
ユーザコントロールに登録して行うという、Java風の仕組みを作れば
望みのことが出来なくは無い。
まあ一番手軽なのはコントロール配列にしてインデックスで区別する方法だけど。
0172デフォルトの名無しさん
NGNGコンポーネントを見ていると、いくつかグリッドが存在するのです、
それぞれの特徴があると思いますが、どれが使いやすいのでしょうか？
それぞれの機能を紹介したサイト等はないでしょうか？
0173デフォルトの名無しさん
NGNGそんなことをこんなところで聞くような横着な人に
グリッド系のコントロールなんて使いこなせないと思う。
簡単なことならどれ使ったって大差ないし。
0174デフォルトの名無しさん
NGNG0175デフォルトの名無しさん
NGNG使いやすさは人によって違うと思うから
試用版とかまず試してみたら？
0176デフォルトの名無しさん
NGNG0177デフォルトの名無しさん
NGNGフォーム1からフォーム2に設置してある
オプションボタンのValue値のTrue・Falseを読み取りたいのですが、
どうしたらいいでしょうか？
フォーム2内でグローバル変数を宣言してそれに値を格納してフォーム1で読み出す。
という方法は思いついたのですが、できれば直接読み取りたいです。
0178デフォルトの名無しさん
NGNGvb6以前ってコントロールは全部Publicじゃなかったっけ？
......って言ってもたぶんわからないんだよね。
上のコードエディタで"form2."って打ってみて。
インテリセンス働くと思うんだけど。
0179デフォルトの名無しさん
NGNG0180178
NGNG0181デフォルトの名無しさん
NGNG0182デフォルトの名無しさん
NGNG返信ありがとうございます。
コードエディタ上で form2 と打ち込んで実行するとエラーはでるのですが
インテリセンス（文法チェックですよね？）は働かないようです。
今まで
Form.Option1.Value と書いていたのを
Form!Option1.Value としてみたのですが
やはりForm2を閉じるとValueの値が真に戻ってForm1から真・偽を読み取る事ができません。
0183デフォルトの名無しさん
NGNGForm2.Option1.Value と書いていたのを
Form2!Option1.Value としてみたのですが
です。2が抜けていました…すいません。
0184デフォルトの名無しさん
NGNG0185デフォルトの名無しさん
NGNGで、Option1.Valueにアクセスしに行ったときに再度ロードされて、初期状態の
やつを参照してるとか。
今進んでいる所は、たぶん鬼門だろうから、初心者本でも読み返したほうが
いいかもしれんね。
0186デフォルトの名無しさん
NGNG0187デフォルトの名無しさん
NGNGはい、その通りです。
>>185
その通りです。Unloadしております。
鬼門ですか…。初心者本を読んで調べたのですがよくわからないのです（汗
0188デフォルトの名無しさん
NGNG（Formモジュール）＝（Classモジュール＋Window）を理解しようね。
C++やJavaとかでいう他クラスとのやり取りに、Publicなインターフェイス用関数を使って、Privateな変数にアクセスする要領と同じ。
0189デフォルトの名無しさん
NGNG'Form1のコード
Dim Result As Boolean
Load Form2
Form2.Show vbModal ,Me
Result = Form2.Option1.Value
Unload Form2
'Form2のコード。OKボタンにでも書いといて
Me.Visible = False
Load,Unload,New,Nothingについて調べてみるといいよ。
0190デフォルトの名無しさん
NGNGクラスモジュールの使い分けと言うか、コードの書き分けって、どう
言う指針で行うのがいいんでしょうか？
0191デフォルトの名無しさん
NGNGしかしこの「別のフォームの......」って愚問は定期的に湧いてくるな。
次スレからは１のテンプレに入れてほしいよ。
0194デフォルトの名無しさん
NGNG0196187
NGNGあれ？何かまずい事書いたかな…（－－；
もし、私の質問だと思われてたら私の質問はもう区切りがついたので、このままスルーされそうだな～
と思ったのでそう書いたのですが（汗
0197デフォルトの名無しさん
NGNG0198デフォルトの名無しさん
NGNGそれぞれ「そうすべきもの」で使い分ける。
ウインドウを表示するならフォームを使うのが常道とかね。
ひょっとして釣られた？
0199デフォルトの名無しさん
NGNGオマエが釣り確定。あげんじゃねえよカス
0200デフォルトの名無しさん
NGNGﾜﾗﾀ
0201デフォルトの名無しさん
NGNG0202デフォルトの名無しさん
NGNG0203デフォルトの名無しさん
NGNG>> 「別のフォームの......」って愚問
これをまったく知らないで、
何から何までグローバル変数使ったり、
フォームイベントの発生要因とかまったく知らなかったり
する愚者が多数いるよ。
しかもそういう人に限って、VBだからVBらしくコーディングしているんだ、と意味不明なことを嘯くんだよな。
0204デフォルトの名無しさん
NGNG混乱させるようで悪いが・・・
'Form1のコード
Dim Result As Boolean
Form2.Show vbModal, Me
Result = Form2.Result
'Form2のコード
'関数の外に
Public Result As Boolean
'OKボタンに
Result = Me.Option1.Value
Unload Me
0205190
NGNG釣りじゃなかとですよ。
クラスモジュールはクラスを作るために使えばいいと思うのでまだいいのですが、
標準モジュールとフォームモジュールが曖昧になってしまうんですよね。
ぶっちゃげた話、>>198さんのいうとおり、フォーム周りのコードをフォーム
モジュールに書けば、フォームモジュールと標準モジュールを分離して再利用
する事も出来るはずなのですが、標準モジュールでフォームのインスタンスを
生成してフォーム上のコントロールにアクセスしたり、フォームモジュールから標準
モジュール上のパブリックプロシージャ-をコールしたりすると、標準モジュールと
フォームモジュールは独立しなくなる訳で。
かと言ってフォームモジュールに全部書く、ってのは宜しくないそうで、どのように
分ければいいのかなと悩んでしまう訳でして。
用法を間違ってるかも知れないですが、恐らくフォームモジュールと標準
モジュールとの間のインターフェイスが決まってないと言うか曖昧になってるのが
原因じゃないかなと思う（言葉の意味がよくわかってないので違ってるかも知れ
ない）のですが、標準モジュールからフォームのコントロールにアクセスしたい時に、
どのようにやるのがスマートなのかなぁ？
0206デフォルトの名無しさん
NGNG思いつきでリファクタリングでもして
つないでいくのがよい
0207190
NGNGリファクタリングって、確か元の仕様を変えずに中身と言うか実現方法を変更
したり新たな仕様を追加する事でしたっけ？ 似たような事はよくありますねぇ。
例えば、最初は独立したコントロールで書いてたけど、結局同じ処理のプロ
シージャ-になっちゃった、って場合にコントロール配列にしてIndexで制御する
方法に書き換えたりとか。(うわ、なんか違うっぽいしレベル低いなぁ俺(´・ω・｀) ）
最初に仕様をガチガチに決めればそう言う事にはならないのだろうけど、一人
で開発やってると、書いてる途中で、もっといいアイディアや実現方法を思い
ついたりすると書き直しちゃいますしねぇ。
0208デフォルトの名無しさん
NGNGという件で質問させていただきました
Ｅｎｕｍを使用するといい という回答を頂いていたんですが
この列挙型といわれる宣言内部に数値やアドレスではなく
文字列を持たせる事も可能なのでしょうか？
0209デフォルトの名無しさん
NGNGそもそも、標準モジュールでフォームのコントロールを直接参照する必要があるのかって所から検討すべき。
コントロールを直接参照する事は即ちフォームに依存だからぬ。
そのへんのやり方は>188が指摘してるぞ。
標準モジュール上にForm1.TextBox1 = ・・・
なんて書くのは愚の骨頂。
無難な線として
Public Sub Hoge(ByRef frm As Form1)
みたいな感じで引数でフォームへの参照を受けて以後その引数を利用してアクセスすれば良い。
0210デフォルトの名無しさん
NGNGそこなんだよね、綺麗にできるかの違いって。
コントロール自身を引数にできるということを知らない人が多すぎ。
それをやるだけで、結構おしゃれな処理とかできるし、
グローバル変数とか馬鹿でかい参照範囲の変数とか、ほぼ撲滅できるし。
0211デフォルトの名無しさん
NGNGこれってフォームにｵﾓｲｯｸｿ依存してないか？
Form1ってハードコーディングしちゃってるし。
0212デフォルトの名無しさん
NGNGそれは単なるタイプミスだと思われるけど、重大なバグになるタイプミスだな。
0213デフォルトの名無しさん
NGNG標準モジュールがあるからVBって気もするけどなぁ
うちの会社の先輩が言ってたけど、
VBは標準モジュールにバリバリ書いて、コントロールを使う形にするのが楽らしい
コントロールを使ってれば標準モジュールもそんなにひどくならないそうな
だから、設計してコントロールつくるやつが上にひとりいて、
それ使ってコーディングする奴が何名かいるのがいいらしい
実際、その人APIとかクラス化して投げてくるんだけど、やりやすいのはたしか
ただ、そういうやりかただと悲しいかな、俺の勉強になんないんだよな（ｗ
0214デフォルトの名無しさん
NGNG>209の趣旨は、引数として受け取るようにする事で、少なくとも暗黙のインスタンスを
参照するという行為は避けられるよ、って事でつ。
インタフェースの使い方覚えるのは次の段階かなと思ったんで。
0215デフォルトの名無しさん
NGNG引数で受け取るのも「暗黙のインスタンス？」を参照してるってことに
早いとこ気付けよ。
VB6.0ではオブジェクトの解放がどの時点で行われるか知ってっか？
0216デフォルトの名無しさん
NGNG皆様の知恵を拝借したいと思って来ました。
テーブル1のフィールドAの値に対してテーブル2のフィールドBの付随情報を
抽出したいと思っています。双方のフィールドは0から始まる電話番号形式の文字列です。
フィールドAには正式な電話番号(09012345678とします)が格納されており
フィールドBには電話番号の範囲になるような4桁以上11桁以下のデータが格納されています。
例えば｢09012｣のようなデータです。
フィールドBのデータをDBから抽出後に降順でソートし、フィールドAのデータの
先頭数文字(フィールドBの文字数)を検索条件とし、最初に合致したものに対するデータを
さらに抽出したいと思っています(例えばCSV形式のファイル等に)
長すぎると怒られたので分けます。
0217デフォルトの名無しさん
NGNG例→フィールドAの格納データ｢09012345678｣に合致するフィールドBの付随データを抽出
ﾌｨｰﾙﾄﾞB ﾃﾞｰﾀ
0902 付随データ この場合｢0902｣と｢0901｣2345678で比較→合致しないので次へ
09013 付随データ この場合｢09013｣と｢09012｣345678で比較→合致しないので次へ
09012 付随データ この場合｢09012｣と｢09012｣345678で比較→合致するので抽出
09011 付随データ
合致するデータがない場合はエラー処理になります。
フィールドAのデータ分だけ抽出処理をして終了という形です。
ただしフィールドBのデータの桁数は一定しておらず4桁の場合もあれば
5桁の場合もあるという感じになっております。
こういった処理を行なう場合、どのような感じで作ればよいのでしょうか…。
フィールドBのデータを毎回Len関数でチェックしてフィールドAのデータをLen関数で
返ってきた値だけ切り出してチェックとかがいいんでしょうか…。
VB6.0、DBはOracleでADO接続でやるつもりです。
VBから離れて期間も経っており、ほとほと困り果ててこちらに参りました。
詳しい方いらっしゃったら宜しくお願いします。スレ違いでしたら申し訳ありません。
0218209
NGNG>209の引数frmはあくまで呼び元から渡されたインスタンスを参照するのであって、
暗黙のインスタンスを参照する訳では無いと思うのだが・・・
呼び元で
Call Hoge(From1)
とか
Dim f As New From1
Call Hoge(f)
なんてやられたらそりゃＮＧだけど、それは呼び元の責任でぁ。
もっと良いやり方があればご教授願いたい。
オブジェクトが解放されるのは参照カウンタがゼロになった時。
だが少なくとも、>209のメソッド内では解放を意識する必要は無い。
間違ってる所があったら指摘キボンヌ。
0219デフォルトの名無しさん
NGNG標準モジュールでForm１を参照するのって悪いの?
AS Objectとかにして、クラス使って再利用性を高めるんならそれもそうだろうけど
メモリに常駐してる時点でグローバル関数とかわらんと思って
標準モジュール上でForm１参照しちゃってるんですけど
やっぱ関数化すべきなのかな・・・
0220デフォルトの名無しさん
NGNGForm1のインスタンスはLoadされている保証は無いし、複数ある可能性もある。
0221デフォルトの名無しさん
NGNGVBで判断するのか、SQL（DB側）で判断するのかをまず決める。
まあ、普通にDB上でやればいいんじゃないの？
前方一致検索でしょ。
0222デフォルトの名無しさん
NGNG激しく同意
せっかくオラクルを使うのならちんたらコーディングするよりSQL
でするべき
オラクルならＡＤＯよりoo4oのほうが親和性がたかいよ、、
0223デフォルトの名無しさん
NGNG検索された中で最大の云々かんぬん
まあ、ここを見て参考にしてみれば？
ttp://homepage1.nifty.com/kojama/works/rdbms/ont.html
0224デフォルトの名無しさん
NGNG懐かしいフレーズを聞かせてもらったよ、ありがとう。
0225デフォルトの名無しさん
NGNG0226デフォルトの名無しさん
NGNG知るイベントはありませんか？
0227226
NGNGiniファイルに保存して次回起動時にはその幅に戻したいのです。
0228226
NGNG２つのリストビューを片方が変更されたらもう一方も
追従するように同じ幅にしたいのです。
0229デフォルトの名無しさん
NGNGとんでもなく遅レスがありがとうございます。
なるほどです。
0230デフォルトの名無しさん
NGNGAからBを引っ張ると考えるからややこしく思えるんだろうけど
実際は単純な総当り検索で、条件を前方一致にして(+)付けるだけ。
0231デフォルトの名無しさん
NGNG0232デフォルトの名無しさん
NGNGない。
と思う。
0233デフォルトの名無しさん
NGNGある。
0234226
NGNG0235デフォルトの名無しさん
NGNGイベントは無いけどメッセージは飛んでる。
なんか面倒な気もしたが、がんばれ。
0236231
NGNG使いたいと思ってます。VB初心者なものでよろしければやりかたを教えてください。
0238デフォルトの名無しさん
NGNGタイマイベントでカラムヘッダが変更されてないかチェックして
変更があったら同期するようなコード書いたらいいんじゃない？
秒五回ぐらいなら遅延もそんなに気にならないし、
cpu時間の消費もほとんど無視できるレベルだと思うけど。
エレガントじゃないのはいや、ってか。
それをいうならサブクラス化だってそれ以上に.....。
0239デフォルトの名無しさん
NGNGVBのサブクラス化がエレガントじゃないっていのは同意するけどタイマーはなぁ。
業務でそれやったら「こいつ大丈夫か？」って思われちゃうだろうな。
自分しか使わないツールだったら許せるけど。
0240240
NGNGMDIアプリで、OracleのDBをいじるアプリを書いています。
漏れが担当しているのは、その一部の画面なんですが、
そのフォームから、更に別のフォームを子フォームとして
開いて、public 変数を介して情報のやり取りをしようと
しているのですが、うまくいきません。
親フォームを frmParent、子フォームを frmChild とします。
うまくいかないのは
・親フォームの Public strPText As String を子フォームから
frmParent.strPTest の形で参照すると、何も入っていない文字列
になる。(親フォームでは文字列を代入しています。)
・親フォームのサードパーティ製のスプレッドを子フォームから
frmParent.Spread の形で操作しようとすると何も反応がない。
などで、
0241240
NGNGfrmChild.strCText の形で代入できる。
・同様に子フォームの Public objForm As Form にもアクセスできる
ので、親フォームから、親フォーム自身を objForm に代入して、
これを使って上記のうまくいかない形のアクセスを行うと、ある程度
はうまくいく。(プロパティの代入と参照）
例) objForm.strPText
objForm.Spread
・この方法でもスプレッドのメソッドは動作しなかった。
・親フォームの Public Function は子フォームから実行可能。
上記のような状況です。Visual Soucesafe を使って、複数人で
開発しています。
0242240
NGNGシンプルなプロジェクトを使って試したら、Public 変数には
何の問題もなくアクセスできたので、いったい何が問題なのか
検討もつかない状況です。
objForm を使うと冗長になりますし、IDEのインテリセンスが
使えなくてやりづらいです。
0243デフォルトの名無しさん
NGNGfrmParentがfrmParentとして宣言されて開かれたのではなく・・・
Dim objForm As frmParent
Load objForm
objForm.Show
と言う風に開かれているのでは無いかと思えるが。
LoadされていないフォームのPublic変数にアクセスした
場合と同じ動きをしているような感じだから。
試しに、親フォームのPublic変数を参照しても空文字が
帰ってくる部分の直後にfrmParent.Showってやってみて
くれないかな?
0244240
NGNGChildではなく、Parentの方ですよね？
私も全体像は分からないのですが、起動（エントリポイント）は
標準モジュールから行っているみたいなので、そういう形で
起動している可能性はあります。
いまは自宅で、会社にいかないと詳細が分かりませんので
後で確認したいと思います。
ちなみにChildの起動は
frmChild.Show 0
で起動しています。
0245240
NGNGうーん。子ウインドウは frmChild.Show でやってるから、
親から子には問題なくアクセスできるのかな。
少し暗雲に光明が差し込んできた感じです。
ありがとうございます。
今日はこのワケワカメなバグでぐったりしてしまいました。
0246デフォルトの名無しさん
NGNG原因はたぶんフォームの「クラス」と「インスタンス」を混同していることと、
変数のスコープを忘れていることにあると思う。
フォームのインスタンスへの参照が常にグローバルレベルへで存在しているとは
限らないよ。
Form1内の複数のスコープから、Form2型のForm2という名前の同一のオブジェクトに
アクセスしたいなら、「オブジェクトForm2」への参照をForm1のモジュールレベルで
保持しなきゃ。
そうでなきゃ、たとえば同じ"Form2"にアクセスするつもりのコードを
Form1のロードイベントとForm1のコマンドボタンのクリックのイベントハンドラに
書いても、それぞれ「暗黙の宣言」によって生成された別々のForm2型の
インスタンスに対するアクセスになってしまうよ。
0247デフォルトの名無しさん
NGNGそれなら、子ウィンドウをfrmChildで呼び出しても
問題なくアクセスできますね。
やっぱり、最初に親ウィンドウを開いている所に
原因がありそうですね。
0248190
NGNG> 無難な線として
> Public Sub Hoge(ByRef frm As Form1)
> みたいな感じで引数でフォームへの参照を受けて以後その引数を利用してアクセスすれば良い。
なるほど、そのHogeプロシージャーをフォームモジュールに書くんですね？
フォームのコントロールを触る処理はフォームモジュールに書いて、フォーム
に依存しない処理を標準モジュールに書けばいいのかな。
>>210
コントロールを引数にするのは非常に便利なのでしょっちゅう行ってるんですよ。
フォームに載ってるコントロールの特定のプロパティやオブジェクトを一斉に操作
したい時なんか、For eachと組み合わせて使うととても重宝してますです。Fontオ
ブジェクト弄ったり、MouceIconプロパティ弄ったりと。
0250デフォルトの名無しさん
NGNG彼自身が冒頭に書いているとおり、（つまり>>210の文章は矛盾してるんだが）
いったいどこにフォーム上のコントロールをいじるコードを
フォームモジュール以外に書いてわざわざ見通しを悪くする必要がある。
それに標準モジュールにはAPI宣言と構造体の定義、サブクラス化するときの
ウィンドウプロシージャ等、ＶＢの言語仕様上標準モジュールにしか
書けないコード以外書くべきでない。
当該のフォーム以外で発生するイベントをトリガーにして
フォーム内のコントロールをいじりたい、ってのなら相手に自分の参照を
引数で渡すなんてわけの分らんことしないで、フォームモジュール自身に
イベント発生源のオブジェクトへの参照をメンバ変数としてもたせて
イベントを受信するようなコードを書けばいい。
もっとも、これらはある程度の規模以上のプログラムを設計する場合の話で、
「～を標準モジュールに書くべきかどうか？」なんて悩んでいるってことは
つまりどこに何を書こうと十分に見通せる程度の規模のコードってことで、
それなら「言語厨」に何を言われようと別に好きなように書けばいいと思うんだが。
0251デフォルトの名無しさん
NGNGいや、>246の意見は一見正しいけど、VB6.0(以前含む)での
挙動ではない。(Unloadを実行していれば別だが)
VBのフォームは暗黙にPublic宣言されている様な存在なので。
試しに、検証してみたら、Form1.Showで開いた場合、何処からでも
Form1のPublic変数はForm.hogehogeで値が取れる。
それぞれのプロシージャ内でローカルに宣言したオブジェクト変数の
Form1なら話は別だがね。
もひとつ検証して、>243で書いた通りの事をすると、確かに
frmParent.strPTextでは空文字になる。
>243では、Loadの直前に「Set ～ = New frmParent」が必要ですが。
0252本日新規
NGNGピンときたら教えてほしいっす
VCで作成したDLLをVBからデクレア？で宣言してその関数をフォームから
呼び出すと ファイルが（関数をもっているDLL）みつかりません
ってでるんすよ パスの通った場所にいれてるのですが
再起移動かけようが環境変数追加しようが事象がかわりません
ちなみにMFC DLL作成スケルトンで作ったファイルでTelnetの処理をしてます
0253デフォルトの名無しさん
NGNGIDE上で実行するときは、dllは相対パスで指定したりパスの通ったフォルダに
置くのはだめで、フルパスで指定する必要がある気がした。
コンパイルすればいいんだけど。
0254デフォルトの名無しさん
NGNGちゃんとDLLの関数はエクスポートしている？
0255デフォルトの名無しさん
NGNGVB6.EXEのあるディレクトリにDLLをほーればよいのさ。
0256本日新規
NGNGいろいろ心みましたが なんかうまくいきません
VCよりの話になりますが
スケルトン作成時の設定でスタティックライブラリ使用か
MFC共有DLL使用の選択で影響ってでるものですかね？
0257デフォルトの名無しさん
NGNGVBから使いたいDLLが他のDLL等に依存しているなどの理由で起動できないときは同様のエラーがでますよ。
0258デフォルトの名無しさん
NGNGhttp://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&q=VB+DLL+DEF&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja
ここらへんを見てみる。>>254の話題だけど。
0259デフォルトの名無しさん
NGNG現在ロードされているフォームの名前を取得する方法ってあるのでしょうか?
また、特定のフォームがロードされているのかアンロードされているのか調べる方法でも結構です
0260デフォルトの名無しさん
NGNG0261259
NGNGぐぐってみたらアンロードするときに使われるっぽいループ?みたいですね･･･
初心者には難しいかもしれませんがIF文でもかまして改造してみます
↓こんな感じですが、合ってますかね?
Dim frm As Form
Dim Nam as string
For Each frm In Forms
Nam = frm.Name
If Nam="AAA" then
なんとかかんとか
Else
Next frm
0262240
NGNG皆さんのご指摘どおりでした。
>>243の形で起動されてました。
これですっきりした気持ちでプログラムが組めます。
ありがとうございました。
今日は打ち合わせで11時帰宅。
明日はまた9時からです。
手短で申し訳ないですが今日はこれで失礼します。
0263デフォルトの名無しさん
NGNG自分が実験したところでは、成功したと言うダイアログが表示されるけど
実際のところは登録されてないようなのですが、自分のやり方が悪くて
登録出来てないのか、それとも本当に登録出来ないのかが分からない
ので、その辺をはっきりさせたいと思いまして…
0264デフォルトの名無しさん
NGNG取得したいのですがどんなメッセージを送ればよいでしょうか？
0265264
NGNGif ret = 8192 then
true
else
false
end if
で取れたんだけど大丈夫かなぁ
0266264
NGNG0267デフォルトの名無しさん
NGNG0268デフォルトの名無しさん
NGNG0269264
NGNGVB6.0にはあった。checkedプロパティ
VB5.0なんです。
0270デフォルトの名無しさん
NGNG死ね
0271264
NGNG0272Option1
NGNGOption1.valueに値を直接代入した場合にもイベントが
発生して困っています。
値を代入したときは、イベントを発生したくないのですが、
なにか方法はないのでしょうか？
お願いします。
0273デフォルトの名無しさん
NGNGフラグ使うしかないねぇ。てか、値を直接代入した場合とクリックした場合
とで挙動を異なるものにするって設計はよくないと思うよ。
0274Option1
NGNGたとえば、フォームを立ち上げたとき、データベースのデータで
Optionの状態を設定したい場合はある。
これは初期化だから、論理的にはEVENTは発生しない方がいい。
もしイベントが発生すると、
初期化にもかかわらず、初期化以前の状態を意識する必要が生じる。
これは、「純粋な初期化ができない」ことを意味する。
そういうわけで、イベントはDisableできるのが、まともな設計だと
おもう。
そもそもエヴェント駆動でありながら、この辺が手落ち。
個別のイベントのイネーブル、ディスエーブルと同時にユニバーサルな
イネーブル、ディスエーブルが当然あるべき
だと思う。（たとえばコンテナ上のイベントはすべてディスエーブルなど）
0275デフォルトの名無しさん
NGNG仕様ですから・・・
0276デフォルトの名無しさん
NGNG0277デフォルトの名無しさん
NGNGついこないだほとんど同じ内容のレスと回答があったはずだと思うんだけど。
コードでVaueプロパティ変えてClickイベントが発生して困る、ってんのなら
Clickイベントでなくほかのイベント、たとえばMouseUpイベントで
マウスのクリック拾えばいい。
それに
>イベントはDisableできるのが、まともな設計だと おもう。
普通にできますけど。MSのVBの設計者だってそんなに馬鹿じゃない。
あなたごときにそんな風にいわれたかないだろう。
言語厨が馬鹿にするようなＶＢの糞な部分だって、実はいろんな
トレードオフの結果だったりする。
0278デフォルトの名無しさん
NGNG興奮しているところ悪いけど、
>>イベントはDisableできるのが、まともな設計だと おもう。
>普通にできますけど。MSのVBの設計者だってそんなに馬鹿じゃない。
これ、教えて頂けないでしょうか。
長いことVB使ってるけど、やり方がわからないです。
0279デフォルトの名無しさん
NGNG失礼。正確にはコードで特定のプロパティを変えたときの
イベントそのものを無効にすることはできないね。
しかし、イベントハンドラの最初の行にたとえば
If Not Option1.Enabled Then Exit Sub
みたいに書けば機能的に等価だとおもうんだけど。
0280デフォルトの名無しさん
NGNG俺が質問したのと同じかな。
発生するのはClickイベントだっけ？
フォームのprivate変数で
Dim bDisabler As Boolean
とやって
bDisabler = true
Option1.Value = true
とやって、
イベントの先頭で
0281デフォルトの名無しさん
NGNGif bDisabler = true then
bDisabler = false
Exit Sub
end if
とやればよかったと思う。
最近気づいたんだが、VBってのは例えば
SetFocusメソッドを行っても、すぐにイベントが発生しないのね。
bDisabler = true
cmdButton.SetFocus
bDisabler = false
なんてやっても、GotFocusイベントが呼び出される前に
bDisabler = false が実行されちゃうんだわ。
というわけで、俺も>>276さんと同じ感覚でやってます。
0282デフォルトの名無しさん
NGNGフォーカス移動なんかはVBだからじゃなくてWindowsのメッセージ待ちだからじゃないのかな？
などと適当なことを書き込んで寝る。
0283デフォルトの名無しさん
NGNGWinAPIの SendMessage は送ったメッセージが
消化されるまでリターンしない仕様だったと思います。
（消化前に返したい場合はPostMessageを使う)
MFCなんかでは SetFocus はイベント終了まで
戻らない仕様になってたと思うんですが。
（ちとオボロゲ）
0284デフォルトの名無しさん
NGNGなんかしきりに作っているんですが 構造体とか宣言とかｸﾗｽとﾊﾞｽの違いとか
セットフォーカスとかモーダルがどうとか 調べもしないで無関係な
俺に聞いてきてウザイ 作業とまんだよこのヤロー
俺はVC専門だから知るカー こんちきちー
ちなみに普通にVBさわれんだけどね（笑）
どうしたらいいですか？VC担当なのでVB知りませんとかは言いたくない
うまい逃げ手を内気なおいらにおしえてくれ
0285デフォルトの名無しさん
NGNG辞表出せ
0286デフォルトの名無しさん
NGNG0287284
NGNGまじめに考えてくれよ
たとえば高度な技術過ぎる為 メモリを食いつぶしてあぼ。。。ｒｙ
0288デフォルトの名無しさん
NGNG0289デフォルトの名無しさん
NGNG最近、害虫ばかりのヘボチームにいれられますた。
日本語の変数名と
日本語の関数名と
大量のグローバル変数と
暗黙のフォーム変数地獄
に悩まされています。
日本語の変数・関数ぐらい辞めさせたいんですが、
バカどもに辞めさせる良い方法なんかないですか？
0290デフォルトの名無しさん
NGNG俺、新人PGだけど、うちのチームもなんでも
かんでも標準モジュールに置こうとしていて、なんかよく
分からんよ。VBはじめて2ヶ月なんだけど、
こんなもんなのかなぁ。3行程度でできる
初期化処理まで標準モジュールの関数使えというんだよ。
0291Option1
NGNG>マウスのクリック拾えばいい。
なるほど、これはいい方法だね。みんな苦労しているんだ。
＞言語厨が馬鹿にするようなＶＢの糞な部分だって、実はいろんな
＞トレードオフの結果だったりする。
大事なことは、トレードオフしないでくれ。
0292デフォルトの名無しさん
NGNGRGBの色 (255,255,255)
をお互いに変換するソフトをつくりたいんですけど計算方法がわかりません。
テキストボックスに
#abcdefと入力して変換ボタンを押すと
(xyz,pqr,stu)
という文字列が別のテキストボックスにでてくるし、逆の変換もできるというやつです。
0293デフォルトの名無しさん
NGNGMSのサポート情報見せりゃいいじゃん。
変数やオブジェクト名に日本語を用いた場合結果は保証しんないと書いてある。
0294デフォルトの名無しさん
NGNGRGB、HEXあたりを使う。
計算方法については
ttp://www.atmarkit.co.jp/icd/root/63/5783563.html
ttp://www.atmarkit.co.jp/icd/root/62/5783562.html
を読んで理解しろ
0295デフォルトの名無しさん
NGNGたぶんこの程度のことでいちいち人に聞くような人に、
掲示板でのやり取り程度で方法を完全に理解してもらうのは無理。
なのでヒントを１つだけ。
16進を10進整数に変換する方法が分った時点で、たぶん与える16進数によっては
得られる10進数が負になる、という問題にぶつかるはず。
そのときは「型宣言文字」を試しましょう。
0296292 ◆ExGQrDul2E
NGNGだが、なぜRGB表現はMAXが255に設定されているのだろうか？
0297デフォルトの名無しさん
NGNGぉぃぉぃ
256を16進数に変換してみれ
0298デフォルトの名無しさん
NGNG0299292 ◆ExGQrDul2E
NGNGそれで256-1=255だな。
0300292 ◆ExGQrDul2E
NGNGホームページの色指定に使う#FFFFFFは16進数じゃないようにおもわれる。
もし16進なら
RGB=255,255,255=0x100-1,0x100-1,0x100-1であり、FF-1と0x100-1はちがう値だし。
0301デフォルトの名無しさん
NGNGなんでFFから1を引くんだ?
0から255の16*16=256段階ということだぞ。
0302292 ◆ExGQrDul2E
NGNGオレだったら
Select case String
case "00"
String2="0"
・・・
case "FF"
String2="255"
End select
で256回Select Caseするしかないようだ。
0303292 ◆ExGQrDul2E
NGNGChexとかCdecとか変換関数があったような気もする。
0304デフォルトの名無しさん
NGNGオマエらレベル低すぎ
0305292 ◆ExGQrDul2E
NGNG256段階
という時点で、変換する計算では目的の10進数が求まらないような気がする。
なぜならたとえば
ＦＥ＝16＾1*16+16＾0*15＝256+15＝271
で、255の値を超えていて、単なる16進→10進変換ではRGB表現に変換できないのがわかる。
さてと・・・うーむ
0306292 ◆ExGQrDul2E
NGNG0307デフォルトの名無しさん
NGNG二進数の勉強をしてこい。
頭痛がするので、終了。
0308292 ◆ExGQrDul2E
NGNG0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
0 1 2 3 4 5 6 7 8 9 A B C D E F
16*H1+H2←今さっき開発した公式1
使い方
まずは配列を宣言して、Fを15に対応させるようなテーブル参照を記述しておく。
Dim Hary(15) as string
Hary(0)="0"
・・・
Hary(15)="F"
それから公式1を使い
FF=16*15+15=255
と無事求まった。
0309デフォルトの名無しさん
NGNG0310292 ◆ExGQrDul2E
NGNGただしくはF=15
0311デフォルトの名無しさん
NGNG0312デフォルトの名無しさん
NGNG0313デフォルトの名無しさん
NGNGイベントプロシージャの挿入位置って変更できないのかな？
コードの最後に追加していく方法にして欲しい。
0314デフォルトの名無しさん
NGNGお前、292だろ?
0315デフォルトの名無しさん
NGNGダブルクォーテーションを文字列に入れるには、どうしたらいいんですか？
￥”じゃだめですよね？
どなたかご教授ください、宜しくお願い致します。
0316デフォルトの名無しさん
NGNGvbDQuot
0317デフォルトの名無しさん
NGNG"""
0318デフォルトの名無しさん
NGNG解像度取得して規定位置にﾌｫｰﾑおきたいんだけど
解像度別のスクリーン座標の最大とかが今一わからぬ
0319デフォルトの名無しさん
NGNGScreen.TwipsPerPixelX、Screen.TwipsPerPixelY、Screen.width、Screen.Height
Screenオブジェクトのプロパティについて調べてみれ
0320318
NGNG恩にきますです。
0321デフォルトの名無しさん
NGNGこりゃまた酷いな
0322デフォルトの名無しさん
NGNG0323デフォルトの名無しさん
NGNG落ちてしまうのですが、アクセスできる範囲というものはあるのでしょうか？
一部のグローバル変数にはアクセスできます。
ご教授願います。
VB6
0324323
NGNGタイマーを作って、タイマーのCallBack関数が呼ばれます。
そのCallBack関数内で MsgBox "Timer" としています。
VB上からデバッグとして実行すると動作するのですが、
exeファイルを作って動作させると不正な処理となって強制終了されてしまいます。
MsgBox "Timer"が無い場合は正常に動作しています。
何が原因なのでしょうか？
ご教示願います。
環境 VB6、WinXp
以下コード
Form1上で
Private Declare Function CreateTimerQueue Lib "kernel32.dll" () As Long
Private Declare Function CreateTimerQueueTimer Lib "kernel32.dll" (ByRef phNewTimer As Long, ByVal TimerQueue As Long, ByVal Callback As Long, ByVal Parameter As Long, ByVal DueTime As Long, ByVal Period As Long, ByVal Flags As Long) As Long
Private hQueue As Long
Private hTimer As Long
Private Sub Form_Load()
hQueue = CreateTimerQueue()
Command1.Caption = "Start"
End Sub
Private Sub Command1_Click()
If hTimer = 0 Then
CreateTimerQueueTimer hTimer, hQueue, AddressOf TimerCallBack, ByVal 0&, 0, 5000, 0
End If
End Sub
標準モジュール上で
Public Sub TimerCallBack(ByVal lpParameter As Long, ByVal TimerOrWaitFired As Long)
Debug.Print "Timer"
MsgBox "Timer"
End Sub
0325デフォルトの名無しさん
NGNGコールバックされた関数が別のスレッドで走ってるなら、
VB自体がスレッドセーフになっていない可能性が高いので、
落ちたりもするかも。
0326デフォルトの名無しさん
NGNG500行程度のクラスモジュールを作成して、フォームのロード時に
インスタンス化してるのですが、フォームアンロード時に
そのクラスを開放するのに2秒程度掛かってしまいます。
できればスパッっとはぎれよくフォームを閉じたいのですが
何が問題と思いますか？
0327デフォルトの名無しさん
NGNGアンロード->開放する前にMe.Hide。
0328デフォルトの名無しさん
NGNGどうやったらいいのでしょうか？
知っている方教えてください。
0329デフォルトの名無しさん
NGNGネ申
0330デフォルトの名無しさん
NGNG0331デフォルトの名無しさん
NGNGaccessデータのフィールドに ID,名前,Yes/Noフラグ と三つの項目があって
複数のブックマークを選択した時に選択したIDに順ずるフラグを
NO→YESに変えたいのです。
ブックマークがひつとなら
DataGrid1.Col = 0
DataGrid1.Row = DataGrid1.Bookmark - 1
Dim DGdata As Long
DGdata = DataGrid1.Text
strSQL = "update テーブル set 削除フラグ = yes where ID =" & DGdata
ADOConnect.Execute strSQL
で何とかなるのですが、複数のブックマークの時はどう書けばよいのでしょうか？
0332デフォルトの名無しさん
NGNG頭悪いにもほどがある。
こういう人の「フリーズ」ってのが本当にフリーズをさしているかどうか
怪しいが、そんなの単にあんたのコードがクソだからだろうが。
0333デフォルトの名無しさん
NGNGフリーズっていういいかたは悪かった。
0334デフォルトの名無しさん
NGNGコードに問題があるんだろ？ 普通はそんなことない。
それだけの情報じゃこれ以上のコメントは出来ない。
0335デフォルトの名無しさん
NGNG問題あるんかのー
動的配列使ってるのがダメ？
0336デフォルトの名無しさん
NGNGサイズや、終了時の開放の仕方にもよる。
ループの中でEraseとかReDimなんかしてたらもう･･･
0337デフォルトの名無しさん
NGNGループでredimはしてます。でもeraseはterminate時だけです。
0338デフォルトの名無しさん
NGNGサイズを小さくしたりコメントアウトするとかして時間を計る。
そういう専門のツールを使ってもいいけど。
0339デフォルトの名無しさん
NGNG遅いのでredimのループは通ってないんですよねー
んー。くまった。
0340デフォルトの名無しさん
NGNG0341デフォルトの名無しさん
NGNG0342326
NGNGexeを配布したら一瞬で閉じられました。
どうやら環境の問題のようです。お騒がせしました。
0343デフォルトの名無しさん
NGNGその文字列が改ざんされていないことを確認したのですが・・・
0344デフォルトの名無しさん
NGNGこういうことがしたいんかな？
ttp://www.atmarkit.co.jp/aig/02security/hashfunction.html
0346190
NGNG0347344
NGNGこの汎用コンポーネントにMD5の機能があるから試してみそ。
フリーウェアだし商用利用も認めてくれてる。
ttp://www.hi-ho.ne.jp/babaq/basp21.html#0046
0348デフォルトの名無しさん
NGNGVBを学ぶのに良いテキストをご存知の方、教えていただけませんでしょうか。
宜しくお願いします。
0349デフォルトの名無しさん
NGNG0350デフォルトの名無しさん
NGNG臭いわな。
0351デフォルトの名無しさん
NGNG0352デフォルトの名無しさん
NGNG不可能ですか？
データグリッドで1つの商品を選択し「詳細」コマンドをクリックしたらアクセスの
データベース内の写真フィールドにある画像データの保存先を参照しそのフォルダ
内の画像を表示することができるような気がするのですがどうしたらいいでしょうか。
0353デフォルトの名無しさん
NGNGできるっしょ。
0354デフォルトの名無しさん
NGNGついでにそのやり方も教えろやﾎﾞｹェ
0355デフォルトの名無しさん
NGNG> データベース内の写真フィールドにある画像データの保存先を参照しそのフォルダ
> 内の画像を表示することができるような気がするのですがどうしたらいいでしょうか。
そのまま言葉をコードに置き換えていけばできそうだけど？
0356デフォルトの名無しさん
NGNGレス遅すぎ。使えねぇ奴だな。
0357デフォルトの名無しさん
NGNGうっせぇ、ハゲ。
0358デフォルトの名無しさん
NGNGcan't load zip32とかでてできません。
環境はwin98vb6sp5です。
UNLHA32つかったlzh圧縮はすんなり出来たんですけどね、、
お約束の間違いとかあるんですかね～
0359デフォルトの名無しさん
NGNGループ処理のあるプログラムでCPU負荷を下げるのに、
どういった点に気を付けたほうがいいでしょうか？
それともCPU占有率を制限する方法とかありますかね・・・。
VB6SP5です。
0360デフォルトの名無しさん
NGNG0361デフォルトの名無しさん
NGNGDoEventsをかますか、タイマーで処理するか。気休め程度にSetThreadPriorityを使ってみたり。
>>360
Byval/Byref、ObjPtr、VarPtr、StrPtr、AddressOfについて調べてみる。関数ポインタは取得のみで呼び出せません。
0362359
NGNGDoEventsをかますか、タイマーで処理でも変わらずでした。
SetThreadPriorityは。。ちょっと調べてみます。
0363デフォルトの名無しさん
NGNGSleep入れてみれば？
0364デフォルトの名無しさん
NGNG単体でzip32j.dllって使えたっけ？他にも圧縮には必要だったような
0366デフォルトの名無しさん
NGNGVBのランタイムライブラリの問題があります。
ランタイムライブラリのバージョン違いなどで
予期せぬエラーが発生する場合があると思いますが
みなさまはどのように対処されていますか？
0367デフォルトの名無しさん
NGNG事後処理しかないのでは（ｗ
てかVBのバージョンアップが止まってるのに
これから作るアプリケーションで
ランタイムのバージョン違いなんて発生するの？
0368デフォルトの名無しさん
NGNGにゃるほど
0369367
NGNGVBランタイム以外でも付随するDLLやらOCXやらある(かもしれない)わけで。
そもそもどうやって自動更新しようとしてるの？
EXEは自身を更新できない(起動中のEXEファイルを置き換えることはできない)ので
自動更新したいプログラムをAとすると、
Aを更新・起動するプログラムBを別途作成し
ユーザーはBを起動するように仕組む。
とすると付随する何やらもまとめて更新するようにBを作ればいいわけだ。
さらに言うと、バージョンアップしていくに従って
更新対象ファイルが増えたり変わったりする。
となるとBも更新しなくてはならないので
Bを更新・起動するプログラムCを別途作成し、
ユーザーはCを起動するように仕組む。
俺はこんな風にしてるけど
もっと良い方法知ってる人いたら教えて。
0370デフォルトの名無しさん
NGNGマジれす。。さんくす。
更新用アプリAで本アプリBを更新しようと思ってます。
大幅なアップデートの場合は担当者がインストールして
まわればよいのですが、バグ修正などでいちいち全国を
まわるのはあほらしいので。
でも、予期せぬエラーなんだから事後処理しかないと
いうのは納得しますた。
まぁ、オレが納得して済む話じゃないんですけどね。
0371デフォルトの名無しさん
NGNG2004年3月29日にSP6がリリースされているのだがどうか？
ttp://www.microsoft.com/japan/msdn/vstudio/downloads/sp/VS6SP6.asp
#尤も、これでSPは打ち止めだと思うけどね。
0372デフォルトの名無しさん
NGNGVBの印刷で、プレビュー画面の作成でいまひとつ悩んでいます。
別フォームに表示した内容をそのまま印刷しようと思っているのですが、
印刷対象がA4、しかしデザイン時のフォームの大きさがA4相当にできないでいます。
(そのフォームは非表示です)
知識ある方のお力添えがいただけましたら、幸いです。
Windows xp Professional SP1
VisualBasic 6.0 SP6
業務ではありません。
0373デフォルトの名無しさん
NGNGClickOnce
>>372
A4 サイズが表示できる解像度にする。ってのがだめなら、フォームの
内容をそのまま印刷するってのはあきらめたほうがいい。
0374デフォルトの名無しさん
NGNG0375372
NGNGA4縦の上半分にImageと、下半分にカレンダーコントロールを張った
簡易的な画像付きカレンダーを作ってみたいと思っているのです。
となると、コントロールの内容等を直接位置指定しながら出力する他
ないのですかねぇ…できれば、出力する時の内容がデザインで確認
しながらの方が出来るのであれば、やり易いですが。
どちらにしても、A4サイズの非表示フォームを作成して、その内容を…
というのは無理ですか？
0376デフォルトの名無しさん
NGNG比率計算すればいいんじゃ？
0377358
NGNGフォルダ名にスペースがあったりすると誤作動してしまいます。
zip32.dllにコマンド送る際にスペースのせいでアドレスじゃなくなってるのは
わかるんですが解決策がわかりません。空白以外の区切り方とかあるんですかね？
0378デフォルトの名無しさん
NGNGA4 サイズのフォームを作るのは、実は面倒だったりする。というのも、
画面の解像度を超えるフォームってのは、ちょっと特殊なことをしないと
作れないから。
なので、そういう場合はピクチャーボックスを代わりに使う。ピクチャーボックスは
画面のサイズより大きなものが作れるので。
>>377
やったことないけど、"" でくくるとか、ショートパスを使うとかでどう？
0379デフォルトの名無しさん
NGNG0380デフォルトの名無しさん
NGNGttp://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&oe=UTF-8&q=ASCII+CODE
0382デフォルトの名無しさん
NGNGひょっとして「印刷」ってのはプレビュー用のフォームのPrintFormメソッドで
実装するものだと思ってない？
だとしたらそれはものすごい思い違いをしている。
ちゃんと印刷関連のヘルプを読んだほうがいい。
というよりヘルプも読まずに印刷するアプリ作ろうなんて無謀もいいとこ。
印刷ってそんなお手軽にできるようなことじゃないよ。
別に難しくはないと思うが最初の敷居は結構高いはず。
0383デフォルトの名無しさん
NGNGイミディエイトウィンドウに
Debug.Print Asc("_")
と打って、エンターキー押してごらん。
0384デフォルトの名無しさん
NGNG0385デフォルトの名無しさん
NGNG引数をダブルクオート(")で囲めば問題ないはず。
知ってるとは思うんだけど、"は引数の前後に普通につけてもだめだよ。
Argu = """" & "c:\hoge 00\" & """"
みたいにエスケープするか、chr$使わないと。
0386デフォルトの名無しさん
NGNGWebbrowserコントロールを使用して、CGIにデータをPOSTしたいのですが、
思うように動作してくれません。
データはURLエンコードを行い、ヘッダにContent-type: application/x-www-form-urlencoded
をセットしているのですが、CGIから結果が戻ってきません。
お分かりになる方がおられましたら、宜しくお願いします。
WindowsXP
VisualBasic6.0 SP6
0387デフォルトの名無しさん
NGNGSelStart=0
SelLength=Len(TextBox1.Text)
とする事でそのテキストボックス内に入力されている全てのテキストを選択状態にする
というのはお馴染みの手段だと思うのですが、コントロール数が多い場合、全ての
テキストボックスのGotFocusイベントにこのソースを書かねばならず面倒です。
これを一発でやるような方法はないでしょうか。
ActiveControlを使えば現在フォーカスが当たっているコントロールを拾えるので、あとは
「フォーム上でフォーカスの移動が発生した」事を知る方法がわかれば実現できそうなの
ですが、その手段がわかりません。
FormのKeyDownでは、当然マウスクリック等によるフォーカスの移動を拾えないのでNGです。
フォーム上でフォーカスの移動が発生した事を知る手段は無いでしょうか。
もしくは、それ以外の手段でテキスト全選択を実現した方はいますか？
0388379
NGNG>>383
教えていただきありがとうございます。
迷惑ついでにもう一つ教えてください。
APIでkeybd_event()ってあると思うのですが
$ ! ' & " ( ) _ ? # 等 どうやって渡せばいいか分からないんです
VK_SHIFT と同時押しの部分でなんとかなる文字もあるのですが
_ アンダースコアの場合 ASCIIの対応表みて16進ひらいだしても
全然違うキーが呼ばれます
0389デフォルトの名無しさん
NGNGランダムアクセスでテキストファイルにレコードを追加する場合、
改行して次の行に書き込むことって出来ますか？
何度やっても改行されずに書き込まれてしまいまして。
よろしくご教授おねがいいたします。
0390デフォルトの名無しさん
NGNGランダムアクセスファイルに改行もクソもないよ。
ていうか自分で「レコード」って書いてるのに意味分ってないのかな？
こんなとこで聞く暇にヘルプよく読もう。
0391デフォルトの名無しさん
NGNGランダムアクセスの意味を考えれば、行を分ける事に
意味は無い事が分かると思うが。
ランダムアクセスで作成されるファイルは人間が読む為に
あるのではない。プログラムで読むファイルだ。
0392デフォルトの名無しさん
NGNG>「フォーム上でフォーカスの移動が発生した」
フォーカス移動をタイマー監視か、テキストボックスをすべてコントロール配列に。
あるいはフォームのメッセージを横取りして以下略
>それ以外の手段でテキスト全選択を実現した方
フォーム上のコントロールを列挙して、それぞれに対し機能を拡張するライブラリを作りかけてある。
配列化されてないコントロールに対しては有効に働いてるっぽ
0393デフォルトの名無しさん
NGNGでもここでこの程度のこと質問する人に限って
そういうタイマとかコントロール配列とか使う泥臭い方法を
「エレガントじゃない」とかいって嫌うんだよな、まあかなりの確率で。
0394デフォルトの名無しさん
NGNG水面を優雅に進んでいる白鳥だって
水面下ではウンコ漏らしてたりするもんだ。
0395デフォルトの名無しさん
NGNG0396デフォルトの名無しさん
NGNGサードパーティのコントロールを買えば、って思ったけどね。
あと、VB6なんだから、カスタムコントロールを自作する手もあるし。
その方がスマートではあると思う。
でも、それくらい自分で考えて欲しいわな。折角ある機能だから。
0397デフォルトの名無しさん
NGNGそのサードパーティのコントロールも、泥臭いことやってたりするんだけどね。
0398デフォルトの名無しさん
NGNGシリアルポート通信でデータ送受信やったことある人いますか？
今度ハンディターミナル新しい機種に取り替えるんだけど
VB側の処理って機種に依存して変わっちゃう部分あるんでしょうか？
詳しい人おながいします
0399デフォルトの名無しさん
NGNG0400デフォルトの名無しさん
NGNGハンディーターミナル(以下HTと表記)次第だと思うがどうか。
例えば、HTにコマンドを送信する場合、コマンドとコマンドの間を
数msあけなきゃならないとか、デリミタが規定されているとか。
ただまぁ、シリアルポート通信ってのは恐らくRS-232Cを介して
の通信だと思うけど、RS-232Cでの通信の基本的な実装はHT
だろうが計測器だろうがバーコードリーダーだろうがそんなに
変わらないと思われ。
0401デフォルトの名無しさん
NGNG「ハンディターミナル」なんて抽象的な一般名詞だけ書いたって
具体的な装置名も分らなきゃ通信プロトコルも誰にも伝わらないわけで
最低それから説明しなきゃ回答は得られんだろう。
。。ってこんなことから説明が必要な人に、何をどう説明しても無駄なような
気もするが。
0402デフォルトの名無しさん
NGNGタイマは使い方を語ると力量がばれる諸刃の剣。
例えばの話として出したのかもしれんので、こういうのは無粋かもしれんが、
キャレットの更新で使うのはお勧めできない。
0403デフォルトの名無しさん
NGNGアップダウンコントロールを暫く押しっぱなしにした時に
増分が増える機能を実装したんだけど、タイマ以外の
実現方法を思いつかなかったおいらは逝ってよしですか？
0404デフォルトの名無しさん
NGNGばれるのは「力量」じゃなくて現実的な機能主義者か
自己陶酔型の人間かどうかの違いでしょ。
キャレットの更新なんて話はしてないぞ、ってのは置いといて
「お勧めしない」のは機能主義的な理由か？つまり客観的な合理性がある？
ないでしょ。要するに単に「エレガントじゃないから」なんじゃないの？
それ以上の理由があれば言ってみて。
0405デフォルトの名無しさん
NGNG押し始めの時間を記録しておけばタイマーを使わなくてもできるんじゃない？
0406デフォルトの名無しさん
NGNG「エレガントじゃない」という言葉で誤魔化しちゃいかんよ。
実際は表示の更新のタイミングが不自然とか、
場合によってはバグが表面化するとか、
保守性が悪くなるとか、不必要にCPUを使用するとかあるもんだ。
0407デフォルトの名無しさん
NGNGタイマーでフォーカスが当たっているコントロールを監視して、別のやつ移ったら
SelStartとSelLengthを更新するというのを提案したのだと思ってた。
違ってたらスマソ。
で、その処理をタイマーで処理すると、フォーカスが移った時から、SelLengthを
更新するまでの間に、なんらかの操作が行われる可能性があるというのと、
普通にWindowsからあがってくるメッセージを処理すればいい話なのになんで
タイマ使うかなというのが理由。
ウィンドウのサブクラス化ってやつで、安全に処理できるなら、そっちを使えば
いいと思ったのよ。
重ねて言うが、俺が思っていた前提の処理と違って、それに対して愚痴みたい
なの言ってたらゴメンネ。
0408404
NGNGそこまでいくとほとんどギャグだな。
そういう「自分が見えない」人のことを自己陶酔型、っていうんだよ。
>「エレガントじゃない」という言葉で誤魔化しちゃいかんよ。
ごまかしてないじゃん。合理的な理由はあるのか？って聞いてるんだから。
「ゴマカシ」というのは
＞表示の更新のタイミングが不自然（これは一理はあるが）
＞場合によってはバグが表面化する
＞保守性が悪くなる
＞不必要にCPUを使用する
こういう「詭弁」のことを言う。保守性やバグは別に大麻使うことと関係ないし、
CPU食うって、ノーマルペンティアム時代だって大麻なんてほとんど無視できる
レベルなんだが。
それから、私は実際大麻使って似たような処理すること多かったけど、
更新のタイミングの遅れなんて、確かに皆無とは言わないが普通の人には
（つまり、どうでもいいことにこだわる一部の「変な人」以外には）ほとんど
気にならないレベルだよ。Interval = 100程度にしとけばね。
0409デフォルトの名無しさん
NGNG0410デフォルトの名無しさん
NGNG「詭弁」と言う方がよっぽど詭弁。
問題点は明確に出ている。
君が気づかないだけだ。
0411
NGNGVB使ってる時点で高卒並でつ
0412デフォルトの名無しさん
NGNG0414387
NGNG>392
ども。後だし情報でｽﾏｿですが、タイマ使用とコントロール配列というのは試しました。
コントロール配列を使うほうは、テキストボックスが配列化されていない場合はオブジェクト名の変更等が必要になる為NGとなりました。
タイマの方はほぼ期待した通りの動作をしてはくれるものの、より良い方法があるのではないか？という気がし質問しました。
フォームのメッセージを・・・っていうのは、サブクラス化という奴ですよね？
こちらはまだ試していませんので、これをキーワードにチャレンジして見たいと思います。
>それぞれに対し機能を拡張するライブラリ
VBHelperみたいなｲﾒｰｼﾞ？
VBの機能のみで実現されているのでしょうか？
>396
ユーザーコントロールの事でしょうか？
何かのサンプルで一度触った事があるだけなので、思いつきもしませんでした。
こちらもチャレンジしてみます。
0415387
NGNGより良い方法があれば知りたいと思うのもNGでしょうか？
0416デフォルトの名無しさん
NGNG検索した所、vb.netではTransparencyKeyでできるようなのですが、
vb6.0ではどうやってすればいいのか判らなかったのでご教授戴きたいと思います。
0418デフォルトの名無しさん
NGNG一部なら、色を指定して SetLayeredWindowAttributes()、Windows 2000/XP
以外の環境なら、リージョンを作って・・・ だね。
0419デフォルトの名無しさん
NGNGありがとうございました。
さっそくやってみます。
0420358
NGNGWinXPvb6sp5の環境だとZip32.dllのところでオーバーフローしてしまいます。
これって直せるんでしょうか？ちなみにこんな感じです。
Dim FN As String
Dim SendStr As String
Dim Ret As String * 255
SendStr = "-r9 " & """" & FN & ".zip" & """" & " " & """" & pasu & "\" & """" & " " & """" & FN & ".bmp" & """"
Zip Me.hWnd, SendStr, Ret, 255
Retの数上げても意味ありませんでした。
0421デフォルトの名無しさん
NGNG0422デフォルトの名無しさん
NGNGボタンを押すとある関数に入り、
ボタンを元にもどすと、関数から出てくるということをしたいのですが、
どのようにすればいいでしょうか？
よろしくおねがいします。
0423デフォルトの名無しさん
NGNG真面目に言ってるのか、煽りで言ってるのかよくわからないが、
王道の処理をすっとばして、いきなり脇道を初心者（でもないかも
しれないが）に薦めるってのはどうかと思うよ。
ウィンドウプロシジャで処理すれば、タイマーよりは品質の良いものが
作れるし、本来の処理もそれなんだし。
必要以上にコストをかける人を毛嫌いするってのは分からないでもないが、
初心者でも1日あれば理解できる処理を、あえて回避してるのはなんか
意図があるの？
0424デフォルトの名無しさん
NGNG0425デフォルトの名無しさん
NGNG0426デフォルトの名無しさん
NGNG0427デフォルトの名無しさん
NGNG0428デフォルトの名無しさん
NGNG0429404
NGNG文脈の読めない人だ。
ウィンドウプロシージャにフックかけるような処理が「初心者でも
1日あれば理解できる処理」ってのは大いに疑問だが（あなた、本当は自分で
その手のコード書いたことないんじゃないの？）それは置いといて、
＞薦めるってのはどうかと思うよ。
別にタイマ使うことを「薦め」たりしてないって。少なくともこれまではね。
あなたがいう「本来の処理」を回避すべきとも言ってない。
タイマでポーリングするような処理をする奴はお里が知れる、みたいに取れる
レスがあったんで、タイマ使うのを「あえて回避」すべき合理的理由はあるのか？
って聞いてるんでしょ。
ＰＧだったらこういう「論理」には敏感でなきゃ？
たとえ話をすれば、「飛行機を使うな、新幹線を使え」なんていった覚えはなくて
「新幹線を避ける合理的理由は？ただ＜嫌い＞なだけでは？」って言ってるの。
しかし、ここで初めて私の意見を書けば、>>387みたいな処理にサブクラス化を
使うのは、やはりあまり合理的な選択でないと思う。
少なくとも私にはサブクラス化によってフォーカスの移動を検出するコードが、
保守性の点でタイマを使ったコードより勝るとは思えない。バグが致命的な
ものになる可能性は比較にならないと思う。気軽にブレイクポイントや実行停止が
できなくなる、というおまけも付く。
フォーカス取ったら全選択するコントロールを作るのが一番エレガントかつ
問題がないと思うんだけど、面倒くさいんだよね、いろんな面で。
0431デフォルトの名無しさん
NGNGbFlag = True
Func1
End Sub
Private Sub Command2_Click()
bFlag = False
End Sub
Function Func1()
... Do Someting ...
DoEvents
If bFlag = True Then Goto EndOfFunction
... Do Someting 2 ...
DoEvents
If bFlag = True Then Goto EndOfFunction
... Do Someting 3 ...
EndOfFunction:
bFlag = False
End Function
みたいにすれば、Command1をクリックすると処理が開始され、Command2をクリックすると処理を中断できる。
ポイントは、関数の処理を中断すべきか判断するためにフラグを立てることと、フラグチェックの前にDoEventsすること。
（詳しくはヘルプでDoEventsの項を見てくれぃ）
Do Sometingが繰り返しで処理できるような形なら、Whileループとかを使えば、よりスマートな感じになる。
0432431
NGNGちなみに、422みたいなことはVBだと素直にはできない。
0433デフォルトの名無しさん
NGNGコントロール配列を関数の引数として渡すことは
できないのでしょうか？
自分で宣言したコントロールのリファレンスの
配列に代入したら、関数に渡すことができたのですが。
結構重要なことだと思うんだが、MSDNにも
林ハルヒコの参考書にも書いてなかったでつ。
VBの基本は簡単に習得できたけど、突っ込んだ議論って
どういう本で勉強したらいいんですか？ イベントの
作り方とかもあるようですが。
0434デフォルトの名無しさん
NGNG回答になってないと思う。２つの意味で。
まず>>431は>>422が要求していることとは違う。おまけにフラグの扱いに
バグがある。
さらにコードの書き方が酷すぎ。こういうコードは条件が成立したら無限ループを
抜けるように書くのがセオリーだよ。
繰り返しで処理できるような形なら～、どころじゃなくて
意味がある処理の必要があろうがなかろうがループするんだよ。
こんなコード書くとＶＢ厨っていわれちゃうよ。
0435デフォルトの名無しさん
NGNGそのぐらいのことなら実際いろいろ試せば分るんじゃないの？
それがお手軽にできるのがＶＢのいいとこなんだし。
仮引数Variantにしてみたら普通にできたよ。
0436デフォルトの名無しさん
NGNGそうですか？
Variant でもうまくいかなかったのですけど、
土日に時間があればサンプル作ってみるかも。
ちなみにうまくいかなかったのは、コンボボックスの
配列を関数に渡して、その関数内でコンボボックス
（複数）の操作を行うものです。
0437デフォルトの名無しさん
NGNG下のコードやってみたけど問題ないみたいだよ。
Private Sub Command1_Click()
Call Hoge(Combo1())
End Sub
Private Sub Hoge(cbo As Variant)
Dim c As ComboBox
Dim i As Integer
For Each c In cbo
i = i + 1
c.Text = "Hello World" & i
Next
End Sub
0438デフォルトの名無しさん
NGNGVariantよりもObjectの方がいいと思う。
Debug.Print TypeName(Combo1)
なんてするとコントロール配列の型がわかる。
でも、コントロール配列を渡すんじゃなくて、
一つのコントロールに操作を行う関数にして
呼び出し側でコントロール配列をループした方が良いと思う。
場合にもよるけどね。
0439デフォルトの名無しさん
NGNGｻﾌﾞｸﾗｽ化ﾀﾞｯﾀﾗｺﾚｼｶﾅｲ
0440438
NGNG作ってみたのでサンプルとしてどうぞ。
[clsFuncObj]
Option Explicit
Public Event func(ByVal ctrl As Control)
Public Sub raisefuncevent(ByVal ctrl As Control)
RaiseEvent func(ctrl)
End Sub
[Module1]
Public Sub ForEachControl(ByVal ctrls As Object, ByVal FuncObj As clsFuncObj)
Dim i As Long
For i = ctrls.lbound To ctrls.ubound
FuncObj.raisefuncevent ctrls(i)
Next i
End Sub
というのを一度用意しておくだけで、
0441438
NGNG[Form1]
Private WithEvents comboinit As clsFuncObj
Private Sub comboinit_func(ByVal ctrl As Control)
Debug.Print ctrl.Index
End Sub
Private Sub Form_Load()
Set comboinit = New clsFuncObj
ForEachControl Combo1, comboinit
End Sub
0442デフォルトの名無しさん
NGNGデータベース（オラクル）に ##.## (例：10.23)や ###.##(例： 103.98) という
形式の数値を格納したいのですが、格納前に入力されたデータ
（テキストボックスを使っています）の桁数が適切かどうかを確認する
必要があります。
こういう目的に適したVBの関数なんてあるんでしょうか？
自作するしかないですか？
0443デフォルトの名無しさん
NGNG痒い所に手が届かなかったりくせがあるけど既存のものならIsNumeric等。
単純な形式だったらlike。複雑な物だったら正規表現。
いずれにしろ、関数にして内部でチェック方式(likeを使うか正規表現を使うか)や
形式(##.##や###.###)を変えられるようにしておくのが吉
0444デフォルトの名無しさん
NGNGvb6ならMaskEditControlが使える可能性があるんじゃない？
0445デフォルトの名無しさん
NGNGFindFirst/Nextでファイルリストを取得して、TreeViewとListViewにセコセコと
セットして行く以外に簡単な方法、コントロールなどはございませんでしょうか？
0446デフォルトの名無しさん
NGNGありますか？
0447358
NGNG0448デフォルトの名無しさん
NGNGｿﾚﾀﾞ(・∀・)
0449デフォルトの名無しさん
NGNG抽出結果をExcelファイルを出力するプログラムを
作っているのだが
配布前日になって、
インストールする際に
「OCXが入らないぞゴルァ」とパソコンからメッセージが出て
インストールが完了しないのだが
どういった原因が考えれらるでしょうか？
状況
・開発PCとMyPCではインストールは完了する
・VBランタイム・プログラムで使用しているOCXが
入っていないパソコンで上記のようなエラーが起こる。
・・・・OCXが壊れているのかな・・・・
0450デフォルトの名無しさん
NGNG>壊れているのかな
いや、入ってないんでしょ。
0451デフォルトの名無しさん
NGNGディレクトリヴィーションウィザートで
パッケージを作成する際に
そのOCXもパッケージの中に入るようにしていまつ・・・
0452デフォルトの名無しさん
NGNGVB製アプリが常駐してないかチェック
0453デフォルトの名無しさん
NGNGVB製アプリは常駐していないです。
パソコンによっては全く常駐ソフトがないでつ
0454デフォルトの名無しさん
NGNG0455デフォルトの名無しさん
NGNGimText
imCalendar
imDateX
imDTCalcX
imTZoneX
等のOCXファイルでつ
0456デフォルトの名無しさん
NGNGあのな、名前からして、InputManだと思うが、
だったら付属のマニュアル読めよ。
ReadMeにも色々書いてあるだろう。
0457デフォルトの名無しさん
NGNG0458デフォルトの名無しさん
NGNGソースのないDLL（多分セルフレジスター無なのでCにより作成？）
VBアプリのBASファイルでDeclereにより宣言し、その内部の関数を
Form1のボタンによりコールします。おそらくDLL側の初期化が上手く行われて
いないのかVBからのアプリより１度キックすると二度目が動きません。
そこでVBのアプリを終了してから もう一度起動するとうまく（一度だけ）
動きます。
この場合VB上で一度コールした外部関数DLLのプロセス？をコロすような方法は
ありますか？※もちろん VBアプリは終了しないで
たとえば参照設定でいけるActiveXDLLだと
new と nothingで実装可能なのでこの場合も何か方法があるのかな？
と思いました。
0459デフォルトの名無しさん
NGNGラッパーでLoadLibraryやらなんやらうわなんだなにをするやめｒ
0460458
NGNGそそーーんなーー
途中でもっていかれないで
なんとなくわかりそうなんでもう少し！！
0461デフォルトの名無しさん
NGNGwinsock(0)で鯖Aに接続して、winsock(1)で鯖Bに接続すると、winsock(0)の方が切断されます。
これ、どうにかなりませんか？
0462デフォルトの名無しさん
NGNGんなわきゃないだろ
おまいの使い方が悪い
0463デフォルトの名無しさん
NGNGレコードセットするときのDBと一緒
0464デフォルトの名無しさん
NGNGとりあえず、問題のDLLの使い方に間違いがないかを確認するのが先決じゃないのか？
あるいはDLL自体が問題を抱えていないか？
対症療法だけじゃいずれ泥沼。
0465デフォルトの名無しさん
NGNG（Peekmessageなどでwindowsに処理は返している）
その状態で、あるボタンを押すと関数から出てくる（処理を中断する）
にはどうすればいいでしょうか？よろしくおねがいします。
0466デフォルトの名無しさん
NGNG氏ね
0467458
NGNGレスありがとうございます。ＤＬＬのソースがないので
なんとも作りがよくわからないのです。（多分ＤＬＬ側のバグ？）
ＥＵＣをＣＲＬＦ＆ＳＪＩＳに変換する機能なのですが
自社でもう作成した人がおらず。添付のＲｅａｄＭｅテキストで
呼び方だけ判明したのです。いちから作る稼動もないので
できればこのまま使える事を前提にコール側で対処できたらなあ
とおもいました。
※顧客へ出ていくアプリではなく社内内部ツールを作成してるので
あまりシビアなものでもないのです。
0469デフォルトの名無しさん
NGNGボタンクリックでフラグを立てる。
ループ内ではdoeventsしつつ先のフラグをチェックする。
0470デフォルトの名無しさん
NGNG0471デフォルトの名無しさん
NGNG一応、初心者は卒業した感じです。
0472デフォルトの名無しさん
NGNGプレビュー画面を終了するまで他のアプリに制御が移らないように
したいのですが、できません。
できればAPIを使用しないやり方が知りたいです。
よかったら教えてください・・もうだめぽ。
0473デフォルトの名無しさん
NGNG0474デフォルトの名無しさん
NGNG0475デフォルトの名無しさん
NGNGだめなんですもだーるでも・・・・！！
なんか他のアプリに制御うつっちゃう！
0476デフォルトの名無しさん
NGNG0477デフォルトの名無しさん
NGNG0478デフォルトの名無しさん
NGNGあはははははは
0479デフォルトの名無しさん
NGNGその仕様が腐ってるだけだと思うー。
0480デフォルトの名無しさん
NGNGAPIを駆使してなんとか仕様を満たす方法を発見しましたが、
これは避けたいです・・・。
0481デフォルトの名無しさん
NGNGコントロール配列からのイベントを受け取る事は言語仕様上無理なのでしょうか？
0482デフォルトの名無しさん
NGNGすんなりやる方法は無い。
やりたのならフォームでコントロールのイベントを直接受け取らず、
クラスを作り、その一つのインスタンスに一つのコントロールを代入し、
クラス側でイベントを受け取る。必要ならイベントをフォームに転送する。
0483デフォルトの名無しさん
NGNG配列のように、添え字を使いたいです。
0484465,468
NGNGこれはわかりました。
＞ループ内ではdoeventsしつつ先のフラグをチェックする。
実は、実行部はC++です。VBの変数をC言語で使えるのでしょうか？
関数抜け出しボタンを押す→flag立てる→C言語内でflagチェック？（できますか？）
まあ釣りだろうけど、正直この程度のこと聞いてる人が
C++使うってそのほうが問題だと思う。
0486デフォルトの名無しさん
NGNGできるよ。
ポインタは分かるでしょ。それでやれば。
0487デフォルトの名無しさん
NGNG質問は明確に。
それはCの共用体みたいなことができないか、って意味かい？
それとも構造体のメンバにインデックスをつけて、そのインデックスでも
メンバにアクセスできるようにしたいってこと？
前者ならＶＢに共用体はないから、かなり工夫をしないと無理だろう。
後者なら、構造体じゃなくてそういうクラス書けばいいだけだと思う。
0488デフォルトの名無しさん
NGNGふとVBをやろうと思いました。
本などを読んで勉強しているのですが、どんな事が出来るのかイメージが全く付かず、
モチベーションがなかなか上がりません。
java scriptくらいしかプログラミングは出来ません。
何か導きがあればご加護を・・・。
0489デフォルトの名無しさん
NGNG２ちゃんねるブラウザ、Web巡回ツール、画像ファイルビューア、メディアプレイヤー、
Flashプレイヤー等々、ありあわせの部品を組み合わせて、小便利なツール作るのが
得意分野かな？
テキストデータの処理が得意で、バイナリデータの処理が苦手。画像解析なんかは
C使ったほうが簡単だったり。
DBとの連携が得意だけど、個人ではあんまり使わないなあ。
やりたいことがあるんなら、それがVBむきなのかを直接きけば？
0490デフォルトの名無しさん
NGNGなるほどー。
参考になりました。
何かプログラムを覚えようと思ったのですが、
実はやりたい事が無く、VBを覚えておけばワードとかのマクロなんかも組めるようになるって話を聞いて、
VBを選択した次第です。
ありがとうございました。
0491デフォルトの名無しさん
NGNGVBに限らずだけど、目的が無いなら面白くないし、プログラミングも上達しないよ。
仮に、仕事にしたいと思ってたとしたら、今からVB6を選択するメリットは少ないからやめとけと言いたい。
たぶん、目的がある分、Excelのマクロに直接行ったほうが幸せなんじゃないかな。
0492デフォルトの名無しさん
NGNGたしかコントロール配列のイベントを捕ろうとするとその方法でも無理があった気がする。
今ものすごく眠いので夢を見ているかもしれないけど
0493デフォルトの名無しさん
NGNG無理じゃないよ。
0494デフォルトの名無しさん
NGNGえっ、どうやってやるの?
コントロール配列をsetしようとした段階で、「イベントセットをサポートしていません」ってエラーが出るんだけど。
試したコードはこんな感じ。
Dim WithEvents obj As PictureBox
Private Sub Form_Load()
Set obj = Picture1(0)
End Sub
0495481
NGNGども。
私もまさしく>494の状況。
これが出来るだけで随分と楽できるんですが・・・
今の所、当面の回避策として、コントロール配列の使用を止めてます。
0496デフォルトの名無しさん
NGNGオブジェクト変数の配列は「コントロール配列」じゃないよ。
オブジェクト変数の配列は、イベントハンドラを持つことはできません。
コントロール配列はできます。
0497デフォルトの名無しさん
NGNG0498デフォルトの名無しさん
NGNG0499デフォルトの名無しさん
NGNG0500デフォルトの名無しさん
NGNGコントロール配列のイベントをとるためにオブジェクトの配列を用意したいけどそれもできないってことじゃないの？
0501デフォルトの名無しさん
NGNG0502デフォルトの名無しさん
NGNG釣り？いや、なんかマジ臭い気が。。
あなた、かなり恥ずかしいこと言ってますよ。
0503デフォルトの名無しさん
NGNGそこで教えていただきたいのですが、VBにおけるBoolean型のデータは、
どのようにOracle8iに格納したらよいのでしょうか。long型であれば
NUMBER (9,0)とかinteger型であればNUMBER (4,0)とかは調べられたの
ですが、Boolean型がどうも調べきれません。
VARCHAR2 (5)と定義しておいて INSERT文にてBoolean型の変数を代入
すれば、自動的に'False'とか文字列に変換してくれるのでしょうか。
また、その逆に、SELECTした結果は blnFlag=oradyn.Fields(0).Value
とすれば、検索結果の文字列をBoolean型に変換して代入してくれるの
でしょうか。
実験してみれば簡単なのでしょうか、その方法がもっとも望ましい方法
なのかは判別できません。どのような方法がよいのか、安全なのか、
お教えいただければ幸いです。よろしくお願いします。
0504デフォルトの名無しさん
NGNG>>498
ありがとうございます。
ちなみに、（-2+spr(2^2-4*1*3))/2と入力すると計算結果が表示されるという感じにするにはどんな感じにすればいいですかね？初心者なもんで考えると頭の中がゴチャゴチャになってしまって解法がみつかりません！ご教授を
0505デフォルトの名無しさん
NGNGうちの会社は CHAR か VARCHAR2 に 1か0を入れてるな。
0506503
NGNGそうすると、INSERT文を組み立てるときに、if blnFlag=True then ～
というふうにされているのでしょうか。
これだと、INSER文の組み立てがごちゃごちゃになって、ちょっと
綺麗じゃないなぁ、と思って質問した次第です。
oo4oとかVB側に変換関数があるとか、暗黙の変換ルールが存在して、
それに則って自動変換してくれれば綺麗だと思うんですが…
0507デフォルトの名無しさん
NGNGhttp://www.amazon.co.jp/exec/obidos/ASIN/4781905854/
読め。
字句解析、逆ポーランド記法でググるといいよ。
0508デフォルトの名無しさん
NGNGIIf、Switch、Chooseなんか使うと多少は楽じゃないかな。
0509デフォルトの名無しさん
NGNGプロパティは創れるんですが、プロパティ無しで直接クラスに値を
出し入れしたいんです。
つまり、
Dim hoge as New MyClass ' MyClass には Public Value as Integer があるものとする。
hoge.Value = 1
ではなくて、
Dim hoge as New MyClass
hoge = 1 ' MyClass のインスタンスにプロパティなしで直接入れる。
としたいのですが、どうすればいいでしょうか？
0510デフォルトの名無しさん
NGNG0511509
NGNG度々すみませんが、その規定プロパティを設定する為の具体的なコードは
どうすればいいでしょうか？ 規定 プロパティでググってみましたが
解りませんでした。
0512デフォルトの名無しさん
NGNGプロシージャ属性
0513デフォルトの名無しさん
NGNGなんか時代に逆行してるような気が。
そんなことすると、作った当初は便利だと思っても
後々結局は自分の首を絞めることになる気がするなあ。
まあ、小規模なアプリなら問題ないかもしれないけど。
0514デフォルトの名無しさん
NGNG>>506 1と0にしたけりゃAbs(blnFlag)
0515デフォルトの名無しさん
NGNG一つの変数を特別な処理して保持する必要があるなら分からんでも無いけど。
ちょうどStringみたいな。
0516デフォルトの名無しさん
NGNG色んな方法がある。
(1)[ツール]-[プロシージャ属性]で、名前をValueにして[詳細]ボタンを押して、
プロシージャIDを(既定値)にする。これは>>512が書いている方法だなや。
(2)[アドイン]-[クラスビルダーユーティリティ]を使う。Valueプロパティののプロパティを
開いて既定プロパティのチェックボックスにチェックすればいい。
ちなみに、既定プロパティを設定したら一度保存して、クラスモジュールをテキスト
エディタで開いてみるといい。
Attribute Value.VB_UserMemId = 0
って行があると思う。これが既定プロパティを設定してるのさ。
>>513
んだなぁ。.NETでは既定プロパティをサポートしなくなったしね。既定プロパティはバグ
になる可能性があるから俺も明示的に指定する方が好き。
0517デフォルトの名無しさん
NGNGVB6でヘルプファイルが見れなくなりました。
普通のは見れますが、EXCELオブジェクトなんかのヘルプを見ようとすると（F1で）
エラーが出るんです。
どうしたら直りますか？
環境は、WinXpでVB6,VB.NET、OfficeはXPが入ってます。
よろしくお願いします。m(__)m
0518509=511
NGNG動機は「ちょっと楽をしたい」と言う程度の物で、その手抜きが後に禍根を残したり、
コードの可読性を下げては元も子もないので、折角教えて頂いたのですが、
規定プロパティは使わずに全部明示する事にしました。
大変ありがとうございました。
0519デフォルトの名無しさん
NGNGこのスレでいいですか。
スクリプトはこっちに書きました。
http://pc5.2ch.net/test/read.cgi/tech/1021881540/267
とりあえず、
「WshShell.Run Noah & " -x " &．．．」の部分をもっとスマートに
表現できないだろか、とか
変数名がへんチクリンなのではなかろうかとか思ってます。
他にも我流ゆえに変なところがあるんじゃなかろかと。
スクリプトを書いた動機は、ここ。
ttp://pc5.2ch.net/test/read.cgi/win/1068321422/98-100
WinXP SP1 を使ってます。
0520デフォルトの名無しさん
NGNGOO4Oなら、databaseオブジェクトから Dynasetオブジェクト
を作って、そこで AddNew 使わないですか？
INSERT文を組み立てるより、コードがすっきりしますよ。
dynaset作るときに条件として
WHERE ROWNUM = 0 とすれば、SELECT文の
実行で時間がかかることもないし。
0521デフォルトの名無しさん
NGNGInetコントロール使って
OpenURL("http://www.google.co.jp/search?q=test&ie=UTF-8&oe=UTF-8&hl=ja&lr=")
とかしたら、「403 fobbiden」とか返されてしまったです・・・
0522デフォルトの名無しさん
NGNGhttp://www.google.com/apis/
これと・・・・
http://www.microsoft.com/japan/msdn/vstudio/downloads/soaptoolkit/default.asp
か
http://www.microsoft.com/downloads/details.aspx?FamilyID=c943c0dd-ceec-4088-9753-86f052ec8450&displaylang=en
を組み合わせて頑張れ
0523デフォルトの名無しさん
NGNGPrivate Sub Command1_Click()
WebBrowser1.Navigate "http://www.google.co.jp"
Do
MsgBox "ページが表示されるまで待つ"
Loop While WebBrowser1.Busy
With WebBrowser1.Document.Forms("f")
.Item("q").Value = "検索"
.Submit
End With
End Sub
0524デフォルトの名無しさん
NGNGInetコントロールはUser-Agentで判断されて制限されている。
0525デフォルトの名無しさん
NGNG素早いレスどうもありが㌧
そして、制限されてたのかorz
とりあえず523の方法でいけたですよ。
これでガシガシコード書けるのです。
どもどもありがとうございました～♪
0526デフォルトの名無しさん
NGNGDo
i = i + 1
Debug.Print i
Loop While i < 3
と、
Do While i < 3
i = i + 1
Debug.Print i
Loop
を実行したら、どちらも
1
2
3
と言う結果を得ました。前者の場合は、
1
2
となると思ったんですが、そうならないのは何故でしょう？
0527デフォルトの名無しさん
NGNGループを条件判断に置き換えて、一周ずつトレースしてみそ。
0528デフォルトの名無しさん
NGNG試してないがiを1で初期化してi=i+1とprintを逆にすればうまく行きそう。
0529デフォルトの名無しさん
NGNG0530デフォルトの名無しさん
NGNG＞ループを条件判断に置き換えて、
と言う意味がよく分からなかったので、>>526をトレースしてみました。
前者のループの場合、Doは1回だけ実行されて、i=i+1からLoopの行が3回実行されました。
後者のループの場合、Doが4回実行されて、i=i+1からLoopの行が3回実行されました。
むう。この場合、どっちもDo～Loop内の命令が実行される回数は同じなのか(´・ω・｀)
0531デフォルトの名無しさん
NGNG0532デフォルトの名無しさん
NGNG実際デバッグして思う結果にならない場合はなるよう
加工すやいいだけ
0533デフォルトの名無しさん
NGNGLoop文の繰り返し終了条件のフローチャート書いてみ。
すぐ理解できるよ。
0534デフォルトの名無しさん
NGNGってゆーか釣られ杉 >>527-534
0535デフォルトの名無しさん
NGNG思うようにならない場合に、何故思うようにならないのかを
突き止めないと、よくないと思います。
例えばこう言う事例があったそうです。ある関数で何故か戻り
値が期待する値の1/2になってしまうバグが発生し、関数を書
いた人に連絡すると、すぐに修正版をリリースしたそうです。
受け取った人は早い対応だなと思ったそうですが、ふと、関数
を書いた人に、どこを直したのか尋ねると、戻り値を返す直前
で単純に2倍したそうでして…
バグの原因が本当に2倍し忘れなのであればそれでいいのですが、
そうじゃないかも知れないし、もしそうでないのであれば、単純
に2倍にすると、別のバグが発生するかも知れないですね。
>>533
どうも有難う御座います。>>529のレスと、ステップ実行の
結果を見て、自分が
1
2
になると思ったのは自分の勘違いだと気付いた次第です。
>>534
済みません。朝からデバッグしててちっと頭が煮詰まっていたよう
です。ちょいと気分転換してくるよ。
0536デフォルトの名無しさん
NGNG表示されないソフトを作るのはできますか？
0537デフォルトの名無しさん
NGNGサードパーティのソフトでそんなんできるOSは怖いような
0538デフォルトの名無しさん
NGNGいいのですがアプリケーションのところには表示させたくないのです。
0539デフォルトの名無しさん
NGNG反転したリストボックスをいったん別のフォームに移動して
戻ってきたときその値を元の値で反転さすにはどうすればいいのかな？
デフォルトで反転なんてできるのかな？
教えて
0540デフォルトの名無しさん
NGNGウィンドウスタイルを変えてやれば良いんじゃない？
APIを使う事になるけれども。
0541デフォルトの名無しさん
NGNG基本的なことだが、このスレに言葉に依らずに他人の考えがわかるエスパーはいない。
意味不明な質問に回答を与えられる奴もいない。
「反転」ってなんのこと？「別フォームに移動」とは？
0542デフォルトの名無しさん
NGNG関数で使用した変数を２つ以上使用した場合の
変数の受け渡し方が全然わからんのです・・・
1つだけならcall のところに変数名を入れればオッケー
なんですが変数を複数返したい時の方法を
どなたか教えてください・・・
sub main()
call syori()
C = A + B
end sub
sub syori()
A = 1
B = 2
end sub
↑こんな感じでAとBをmainでも使いたいのです。
0543デフォルトの名無しさん
NGNG配列を引数、変数にするとか、或いはByValで直接a,bを関数側で
変更かけちゃうとか。
0544デフォルトの名無しさん
NGNG変数をパブリックに持たせりゃいいんじゃね？
0546デフォルトの名無しさん
NGNGByValじゃなくてByRefね>>543)
関数の返り値を構造体にする、これが正解。
構造体なんて知らない？別に難しくないからヘルプ読んでみ。
0547デフォルトの名無しさん
NGNGパブリック変数を馬鹿にしたなおまえ
0548デフォルトの名無しさん
NGNG数が増えると管理がメンドクセ。
0549デフォルトの名無しさん
NGNG>>542を見てたら数増えそうにないだろ
初心者はまずパブリックから始める
そして構造体宣言 そして関数間でのパラメタ引継ぎ引き渡しが
順序ってもんだろー
0550デフォルトの名無しさん
NGNGその程度だったら参照渡しでいいんじゃないの？
0551デフォルトの名無しさん
NGNG>>542はただの例なんだから、それを基準に数がどうこう言っても仕方ないでしょ。
それと、用語が変ですよ。初心者に教えるなら正しく。
×構造体
○ユーザー定義型
×パブリック
○グローバル
0552デフォルトの名無しさん
NGNG（とは言え、C言語の構造体と見た目が似ているだけで、C++の構造体とは別物だが。）
が、パブリック変数とグローバル変数は通じるかも知れないが、誤解が生じる可能性もあるな。
クラスやフォームのパプリック変数は、全くグローバル変数ではないからな。
0553デフォルトの名無しさん
NGNG単に互換性があるだけじゃなくてデータ構造も完全に同じような気がするけどなあ。
（Stringをメンバに持つ場合は話が違うだろうけど）
でなきゃAPIの引数でユーザー定義型をByRefで渡せたりしないと思うんだけど。
それから>>551に突っ込むんなら、それを言うならパブリックでもグローバルでもなく、
モジュールレベル変数だろ、って言わないと。
0554デフォルトの名無しさん
NGNG0555デフォルトの名無しさん
NGNG0556デフォルトの名無しさん
NGNG0557デフォルトの名無しさん
NGNGこういうのは試しにIfとGoToに置き換えてみそ。ほとんどの制御構造は
IfとGoToで表現できる。本番でそう書けとは言わないが、その反面、
置き換え方がわかんないというときは、その制御構造をよく理解してないって
ことになる。
フローチャートで言えば、反復の記号を使わずにひし形で書けるかどうかと
いうことだ。
0558デフォルトの名無しさん
NGNG>>526はプログラミングの才能ないと思う。
煽るつもりは全然ないけど、こんなの全然悩むようなことじゃない。
私は中１からプログラミングしてるが、中学生当時ですらこんなことで
躓いた記憶はない。
このレベルのことがすんなりわからない、ってことはアルゴリズミックな思考能力が
ないってことだろう。帰納的な思考の初歩の初歩だよこれ。
適性がないことを続けるって、不幸な場合が多いと思うんだよね。
0559デフォルトの名無しさん
NGNGというか、ほとんどじゃなくて、「全ての制御構造は」なんだが・・・
全然、本筋とは関係ないけど。
0560デフォルトの名無しさん
NGNG君は、>>526の上司かね？
趣味にケチ(ry
0561デフォルトの名無しさん
NGNGバグ出しで頭が煮えてたんだよ(´･ω･`)ｼｮﾎﾞｰﾝ
0562デフォルトの名無しさん
NGNGこのとき、変数にたくさんのデータを割り振るのに
for a=1 to 10
read atai(a)
next
data 18,15,14,22,31,14,62,82,91,10
などとすれば簡単だったんですがＶＢでも同じような
ことができますかしら？
今はいちいち atai(1)=18 :atai(2)=15････････
などとやっていてめんどくさいことなにうえないんです。
0563デフォルトの名無しさん
NGNGatai = Split("18,15,14,22,31,14,62,82,91,10", ",")
ほかにもやり方があった気がするけど、わすれた
0564デフォルトの名無しさん
NGNG0565デフォルトの名無しさん
NGNGここはSplitぢゃなくてArrayぢゃの。
VB6って配列の初期化が出来ねぇってのが厳しいよのぉ。
Variant使いたくないのに(´･ω･`)ｼｮﾎﾞｰﾝ
0566デフォルトの名無しさん
NGNGところでプログラミング作法的には、こういうのはリソースファイルを使うんだろう。
VB6でないと開発環境だけではリソースファイル作ることも
編集することもできないけどさ。
0567デフォルトの名無しさん
NGNGうあ、>>563をよく見てなかった。最後にセパレーターを指定してんのか。
然しわざわざセパレーターを指定すんのは冗長だと思うなぁ。cvsファイル
を読み込むなら分かるんだが。
俺なら
atai = Array (18,15,14,22,31,14,62,82,91,10)
って書くけどどう？
0568デフォルトの名無しさん
NGNGアドインを落としてこなきゃダメだけど。
0569デフォルトの名無しさん
NGNG0570デフォルトの名無しさん
NGNGんだなぁ。ただあれだ、データ数が少ないのにリソースや外部ファイル使うっ
てのも大げさな気がする。小さい配列ならリテラルで初期化しちまっても
いいんじゃないかと思ったり。
>>562
データ数が多くなるようなら、Excel辺りに打ち込んでcsvファイル吐かせて
実行時に配列に読み込むってのも手だぞ。
0571デフォルトの名無しさん
NGNGSPSSにはSaxBasicと言うものがありますが、機能不足ゆえVBで作らないと、
だめっぽいです
0572デフォルトの名無しさん
NGNGフォームに貼り付けたラベルに「&」を含むレコード(テキスト型)を表示しようとすると
正しく表示されません。
例）.mdbのレコード → A & B
ラベルの表示 → A _B
と、なってしまうのですが。どうすればレコードの内容をそのまま表示できるでしょうか？
教えて下さい、よろしくお願いします。
0573デフォルトの名無しさん
NGNGA && B
0574デフォルトの名無しさん
NGNG0575デフォルトの名無しさん
NGNG572です。レスありがとうございます。
しかし.mdbのレコードをいじらずに、コントロールの設定などを
どうにかして表示する方法はありませんか？
0576デフォルトの名無しさん
NGNG0577デフォルトの名無しさん
NGNG違います。書き込みしてる間にレスがあったものですから･･･。
0578デフォルトの名無しさん
NGNG「DCOMが作成できません」と表示されてしまいます。
なぜでしょうか。よろしくお願いします。
0579デフォルトの名無しさん
NGNGDCOMが作成できないから。
0581デフォルトの名無しさん
NGNGMSの技術サポート情報を検索すればそのものずばり
ttp://support.microsoft.com/default.aspx?scid=kb;JA;257413
&Product=vstudioJPN
0582デフォルトの名無しさん
NGNGDataGridの方で画面に表示されている行より下の行（スクロール後）
にいくとエラーが発生して書きこんでくれません。
行数が多くない場合は正常に動作するのですがスクロールが入ると
うまく動いてくれません。
お助け下さいませ
0583デフォルトの名無しさん
NGNG0584デフォルトの名無しさん
NGNG0585デフォルトの名無しさん
NGNGなぜでしょう。
カレンダーコントロールのバージョンは１１
0586デフォルトの名無しさん
NGNG開発環境はＶＢです。ＤＬＬ ＨＥＬＬ？
ネットで調べても似たような例がないんです。
たぶん、バージョンの違い？
古いＯＣＸにするのがいい？
だれかご教授お願いします
0587デフォルトの名無しさん
NGNGフォームに置いただけで普通に表示されてるけど。
ちなみにうちの環境はVB6.0(SP6) + Office2000 Professional
MSCAL.OCXのバージョンは9.0.0.3620だなや。
バージョン11ってのは、どのバージョンのOfficeに入ってるんだろう？
0588デフォルトの名無しさん
NGNGアクセス付属でなくVB6付属を使いなVerは8.0
アクセスでもバージョンによって互換性に問題あり
Google検索でトップにでてくるよ
0589デフォルトの名無しさん
NGNG0590デフォルトの名無しさん
NGNGお返事ありがとうございます。
クライアントに配布するときにカレンダーの文字が化けるのです。
ＥＸＥだけではだめなのですね。
ＯＣＸをクライアントのSYSTEM32にコピーすればいい？
がんばります
５８９さん
microsoft calendar 8.0のことです。
0591デフォルトの名無しさん
NGNG開いていると、「コンポーネントが応答しないため、この操作を
完了できません、、、、、」のメッセージがでてしまいます。
何とかならないでしょうか？
このメッセージが出るとタイマーもとまります。
0592デフォルトの名無しさん
NGNGオイオイ VBはｅｘｅコピーだけでは、今回のようなエラー
がでるよ。
ＯＣＸを使う場合は、レジストリに登録する必要があるのでディストリ
ビュージョンウイザードから配布用パッケージを作成する事
0593デフォルトの名無しさん
NGNGOLEの問題だね。まあ使いもんにならんということだ。
別のプローセス間通信を使う以外にない。
0594デフォルトの名無しさん
NGNGそういう問題と違うと思う。
プリント画面、ってのが何のことかよくわからないが、
要はエクセルがモーダルのダイアログ開いている間はエクセルが
応答しない、ということを>>591は言っているんじゃないだろうか。
これはOLEの問題とかＸＸの問題とかそういうことじゃなくて、
モーダルのダイアログを開いている場合の「正常な」動作だろう。
一番簡単で現実的な対策は、ユーザーにそういうモーダルなダイアログが
開くような操作をしないように頼むことだと思うけど、どうしても強制的に
問題の発生を防ぎたいなら、Interactive(だと思ったけど自信ない）プロパティ
何かでＶＢ側で操作している間はユーザーに干渉されないようにするしか
ないんじゃないかな。
0595デフォルトの名無しさん
NGNGいや、EXEPressなんかでインストーラ組んで、regsvr32で登録する
BATファイルをインストーラに実行させればよい。
もち、OCXはsystemフォルダにぶち込むようにしてね
0596デフォルトの名無しさん
NGNG>これはOLEの問題とかＸＸの問題とかそういうことじゃなくて、
>モーダルのダイアログを開いている場合の「正常な」動作だろう。
いやそれが「正常な動作」とされているのが問題なのです。
Interactiveというのが何かよくわからないけど、そういう機能が
あるとしても
一旦XCELに自由な動作を許したあと、XCELがモーダル状態に
入っているのを検出する方法がない。 検出に行った途端に
注意画面がでてしまう。
これはちょっと酷いと思う。
0597デフォルトの名無しさん
NGNG設計が悪い。ってか使い方を誤ってる。
0598デフォルトの名無しさん
NGNG0599デフォルトの名無しさん
NGNGそんなことは無いとおもうよ。
VBからモーダル状態のXCELにアクセスして、勝手にメッセージが
でるとしたら、そのメッセージを押さえ込むのは、通常の方法では
できないだろうからね。
XCELの設計がわるい。
第一、XCELはブレークしたら、クラスのインスタンスが飛ぶし、
VBに比べるとかなりいい加減。
0600デフォルトの名無しさん
NGNG使えないね
0601582
NGNG0602デフォルトの名無しさん
NGNG正しい使い方だと思うんよ。
>>599は前提条件で、どーしても合わなければ
Excelを使うという判断には至らないと思うんよ。設計段階で。
てなわけで>>597に一票。
0603デフォルトの名無しさん
NGNG0604やまごろ
NGNGVBでプログラムから音（例えばMP3）を鳴らしたり止めたりする時は普通どうするんですかね？
とりあえず、コンポーネントにメディアプレイヤーが有ったんで貼り付けてみたものの、使い方全く不明。
98/NT/2000/Xp全部で動くexeにしたいので、APIとかはなるべく使いたくないな～。
0605デフォルトの名無しさん
NGNGＶＢはだめか？
ＮＥＴに移行した方が楽か。
ＳＤＫはインストールするには時間がかかるが
0606デフォルトの名無しさん
NGNGVBMP3.DLLとか。
0607デフォルトの名無しさん
NGNGモーダルの時にアクセスしないという処理を作る場合、Excelに
現在の状態を教えてくださいよとお願いしないといけない訳だね。
で、その時にメッセージが出てしまったら、メッセージが許容できない
という要件では使えないということになる。
それを回避する方法があるのかどうか。
と、Excelと連携する物作ったことの無い漏れの素朴な疑問。
無いならExcelで作るって言い出したやつが悪いんだろうな。
でも、メッセージ出るのは漏れも嫌だと思うなぁ。
0608デフォルトの名無しさん
NGNG＞98/NT/2000/Xp全部で動くexeにしたいので、APIとかはなるべく使いたくないな～。
前者と後者の関係が不明。
0609デフォルトの名無しさん
NGNGよく分からんがWindowsのバージョンに依存するAPIを使いたくないって
ことじゃねーか？
つか、MP3鳴らしてなに作るのか知らんけど、今更98とNTをサポートせな
あかんのかと思ってみたり。
0610デフォルトの名無しさん
NGNGシェアウェアで一儲け企んでるんじゃねぇの？
0611デフォルトの名無しさん
NGNGΣ(ﾟДﾟ；ｴｰｯ!
>>604にシェアウェア開発は無理だろ。
0612デフォルトの名無しさん
NGNGそもそもモーダル状態にさせなきゃいい。
エラー時にエラーメッセージが出るのは至極当然な事。
0613デフォルトの名無しさん
NGNG>そもそもモーダル状態にさせなきゃいい。
エラー時にエラーメッセージが出るのはいいとして、そもそもこういうことが実際に
できるかどうかってことだよね。
できるできるって話は進んでるけど、機能を聞くとちっともできそうも無い感じなので、
どうやってやるのかちょっと興味があっただけなんすけどね。
0614デフォルトの名無しさん
NGNGロールオーバー機能を持たせたいのですが、マウスがボタン上から
離れたことを知るにはどうすればいいのでしょうか？
また、作ったものをユーザーコントロールとして使うつもりです。
何か有効なAPIなどあれば教えてください。
0615デフォルトの名無しさん
NGNGだからApplicationのInteractiveプロパティを使うべし、
と最初から言っているじゃないか。
0616デフォルトの名無しさん
NGNGタイマーコントロールでマウスの座標しらべればいいじゃん？
0617デフォルトの名無しさん
NGNGMouseMoveでSetCaptureとReleaseCaptureでグニョグニョ。
0618デフォルトの名無しさん
NGNGWindowFromPointとか。でも>>617が一番無難。
0619デフォルトの名無しさん
NGNGそうするとすべてVBで全部制御しないといけなくなるから大変だ。
できたら、マクロのボタンだとか、プリント機能なんかはプレビューとか便利だし、
XCELにやらせたい。
0620デフォルトの名無しさん
NGNG0621デフォルトの名無しさん
NGNG同士よ。
ユーザーに自由に触らせたい場合は、ShellExecuteで
開かせて放置だけどな。
0623デフォルトの名無しさん
NGNGVBA（Access2000がメイン）で、ラベル等に表示する文字列の表示幅を
取得する方法はあるでしょうか？
例えば、ラベルに MSゴシック10pt. で「プログラマ」と表示したとします。
その「プログラマ」の文字列の表示幅をTwipなりcmなりの単位で取得する方法
が知りたいのです。
よろしくお願いします。
0624デフォルトの名無しさん
NGNG0625623
NGNG試してみましたが、Accessの場合はレポートオブジェクトしかサポートしていないようです。
まさかこんなところでVBとAccessの違いがでるとは・・・・
もし、APIなどでこの手の機能をご存知でしたら教えていただけますか。
APIならばAccessでも使えると思うので・・・
0626デフォルトの名無しさん
NGNG興味があったんで調べてみた。（結構簡単に調べがついたので、本当は
あんた自分で何にも調べてないんじゃないの？と突っ込みたいところではある）
GetTextExtentPoint32というapiが使えるんじゃないだろうか？
0627623
NGNGありがとうございます！さっそく調べてみます。
今「文字列幅」でググり直したら一発で出てきた（汗、、スマソ
（俺の探したキーワードが間抜けでした。
文字列長の求め方が出てくるの嫌って「文字列」以外のキーワードでやってたら
変なのばっかだったので・・・）
0628デフォルトの名無しさん
NGNGどうやったらいいのでしょうか？
Media Playerの起動はShell関数ぐらいしかわからなくて＾＾；
宜しくお願いします
0629デフォルトの名無しさん
NGNG一旦ファイルに書き出して再生
つーか、やりたいことをもう少し詳しく書いたほうがいいと思うぞ
0630デフォルトの名無しさん
NGNG1. ftpでデータを取得するバッチファイルを動的に作成（temp.bat）
2. shellでtemp.batを起動。（プロセスIDをとって、終了まで待機）
3. 数分おきに繰り返す。
というようなプログラムを作ってます。
ところがまれにcmd.exeが終了せずに処理が止まってしまいます。
そこで、途中で止まっているtemp.batを
強制終了させたいのですが、どうすればよいのでしょう？
calc.exeを起動して、終了させるサンプルプログラムを
使ってもうまくいきません。
（calc.exeのかわりにtemp.batを起動・終了させようとしても
起動するだけで終了しません）
「ftp」とだけ記述されたバッチファイルを
起動・終了させる例を示していただけると助かります。
0631デフォルトの名無しさん
NGNG0632NomUrakun
NGNG0633デフォルトの名無しさん
NGNG0634NomUrakun
NGNG0635デフォルトの名無しさん
NGNG0636デフォルトの名無しさん
NGNGGetKeyboardState,GetAsyncKeyState,GetKeyStateあたりのWindows APIでどうだ？
0637デフォルトの名無しさん
NGNG説明不足ですね、すいません。
aviファイル自体は見えないようにして、
フォームのボタンを押すと既存のアプリで再生しようと思ってます。
あまり意味なさげですが、wavとかavi自体をプログラムからしか
起動しない且つ、いつも使ってる再生ソフトで見れるようにしたいのです。
一旦ファイルに書き出すとなると再生開始に時間がかかっちゃうぽいですよね？！
どうしようかな。
0638デフォルトの名無しさん
NGNGWindows時代のプログラミングは無理だと思う。
>いや、自動的に操作するのではなくて任意に操作する関数です
>（N88BASICのINP関数みたいなもの）。
これ、書いた本人以外に意味を理解できる人がいるだろうか？
0639デフォルトの名無しさん
NGNGWindowsMediaPlayerでいいんなら、これで可能。(VB6/WMP9)
1.ﾂｰﾙﾎﾞｯｸｽで右ｸﾘｯｸ、ｺﾝﾎﾟｰﾈﾝﾄを開きｺﾝﾄﾛｰﾙﾀﾌﾞの"Windows Media Player"をﾁｪｯｸ、適応、OKする
2.ﾂｰﾙﾎﾞｯｸｽにWMPのｱｲｺﾝが現れるので、これをFormに貼り付ける。
ｵﾌﾞｼﾞｪｸﾄ名はWindowsMediaPlayer1。ﾌﾟﾛﾊﾟﾃｨでVisibleをFalseに。
3.任意のﾌｧｲﾙの演奏は次のﾒｿｯﾄﾞをｺﾏﾝﾄﾞﾎﾞﾀﾝにでも貼り付けておく
WindowsMediaPlayer1.openPlayer "hoge.mp3"
新しいWMPのｲﾝｽﾀﾝｽが生成されて(つまりWMPが起動されて)演奏がはじまる。
0640デフォルトの名無しさん
NGNG意味がわかってないなら書き込まなきゃいいのに。
0641630
NGNG「バッチファイルプログラミング質問スレ」
の方に聞いてみます。おじゃましました。
0642デフォルトの名無しさん
NGNG0643デフォルトの名無しさん
NGNGVBはもう終わったと思われてるからねぇ
すっごいぺーぺー新人か、ベテランか
その２つの層しかいないんじゃないかな？
0644デフォルトの名無しさん
NGNG0645デフォルトの名無しさん
NGNG中堅以外は感じ悪いってのは悲観的すぎるんじゃないかと（＾＾；
0646デフォルトの名無しさん
NGNGつーか、新人が半年たつとえらそーに先生ぶりたいのってプログラマーの特性かね?
これはVBに限らずだけどさ。ある程度ベテランになるとかえってそういことがないような。
0647(゜Jし゜)
NGNGMakeとかでビルドってできそうなんですけどやったことある人いますか？
0648デフォルトの名無しさん
NGNG可能。
コマンドラインからVB6 /?してみて。
コマンドラインオプションが表示されるよ。
0649デフォルトの名無しさん
NGNG単にコマンドラインから「プロジェクトをコンパイル」することはできるけど
ＶＢは、（内部的にはともかく、明示的には）Ｃのコンパイラみたいに
ファイルごとに一旦オブジェクトファイルにコンパイルしといてそれをリンクする、
という仕組みにはなってないから、MakeFileってのは意味ない気がするのだけれど。
あるいは、MakeFileに相当するのがプロジェクトファイルだ、というべきなのかな。
実際、これって単なるテキストファイルだし。
0650デフォルトの名無しさん
NGNGこのlink.exeはVCなどについているlink.exeと同じ物。
このlink.exeを自作のプログラムに置き換えてオプションを変えて
最適化するなんて技もあったりする。
話ではこれを利用してVBでActiveXでない通常のDLLも作れるらしい。
なんてことができるんだから、オブジェクト生成とリンクの処理を
分けてくれれば良いのに。
0651デフォルトの名無しさん
NGNG(例えば複数フォルダの同期とか)したりってことじゃないの?
0652デフォルトの名無しさん
NGNG0653デフォルトの名無しさん
NGNGそんなことはmakeとは関係なくできる。
0654デフォルトの名無しさん
NGNGいまＨＴＡ書いてるんですが *.exe をパラメータ付けて
起動させたいんですが、どーすればイイか教えて下さい。
あと、Ｐｅｒｌにある pack(); と同等の関数ってありますか？
おながいします。
0655デフォルトの名無しさん
NGNGすれ違い。
消えろ。それを許した場合、VBAやらなにやら全部ここで聞くつもりなのか？
0656(゜Jし゜)
NGNGVBScriptの話題はこちらで
http://pc5.2ch.net/test/read.cgi/win/1058829737/
0657デフォルトの名無しさん
NGNG参．VBScript もこのスレでＯＫ。
0658デフォルトの名無しさん
NGNGやさしいな、あんた
それに比べて655
おまえってやつは・・・人間じゃねぇ
0659デフォルトの名無しさん
NGNGそれを指摘されると逆切れする幼児的な奴が多すぎ。
俺はそういうい奴は端的にウザいから>>655みたいな態度を断固支持するね。
他人同士がコミュニケートするんだから、最低限の配慮をするのは当たり前だろう。
0660デフォルトの名無しさん
NGNGリアルでやったらさすがに引くけど。
0661デフォルトの名無しさん
NGNGちなみに結論は>>657ででてる
0662デフォルトの名無しさん
NGNG0663デフォルトの名無しさん
NGNGなによりもね。
VBScriptにも確かにヴァージョンはあるが、それを指して
いるわけでは決してない。
.netが駄目なのにScriptはいいという命題は成り立たない。
そもそも、VBScriptもこのスレでOKと勝手に決めた>>1に
大きな問題がある。
VBScriptがだめで、じゃぁ、VBAは？JavaScriptは？という
具合にどんどん拡大解釈できる。
おまけに、WSHもいいですかね？とかなる。
0664デフォルトの名無しさん
NGNG壱．質問する前に 過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．質問する者は エスパーの必要が無い内容で書く。
四．インストーラーなどの質問もＯＫ。
五．荒らしは相手しない。
六. VB情報募集中。
七．VB.NET、VBScriptの話題できるだけひかえる。
0665デフォルトの名無しさん
NGNG>弐．質問する前に MSDN などで調べてみる。
>参．VBScript もこのスレでＯＫ。
>四．インストーラーなどの質問もＯＫ。
>五．荒らしは相手しない。
>六. VB情報募集中。
>七．VB.NETの話題できるだけひかえる。
0666デフォルトの名無しさん
NGNG自分で勝手に決めるわけですか？解釈するわけですか？
ま、いいけどね
嫌いじゃないよ、その必死さ
GWだし、誰も文句言わんよ
0667デフォルトの名無しさん
NGNG0668デフォルトの名無しさん
NGNG0669デフォルトの名無しさん
NGNG0670669
NGNGところで皆さん半角で「ＧＷ」とカキコするとどうなります?
なんかユーザーネームに化けません?
どうやっているんだろう?
0671デフォルトの名無しさん
NGNGDel厨氏ね
0672(゜Jし゜)
NGNGで、Xyzzyとかでソース書いて、Makeコマンドでビルド。
デバッガとの連携がやりにくいのはナニですが、
ひたすらコード書きまくるような状況では結構いいかも。
0673デフォルトの名無しさん
NGNGわざわざ.NET Frameworkをインストールをしなくても
すぐにどのＰＣでも起動するのですか？
0674デフォルトの名無しさん
NGNG0675デフォルトの名無しさん
NGNG.NETみたいに何かインストールしなければアプリは開けないんですか？
手軽さでオークションなので人気かと思ってました。
0676デフォルトの名無しさん
NGNG手書きで Set やら DataField やら設定すると、MoveNextとかでカレントレコード移動したとき、
テキストボックスの中を変更してあると、自動的に更新されるんですが、
Data Environmentを使うと、テキストボックスの中が変更されてるとエラーになります
どのように解決すればいいんでしょうか
0677デフォルトの名無しさん
NGNGなんか厨房がいきがって書いてるようにしか思えない。
いまどき、MakeFileが生きてくるような環境、つまりあえて
不要なファイルのコンパイルを避けないとコンパイルに時間がかかって
仕方がないような環境ってありえないと思うのだが。
いまどき、どころか俺のくたびれたペンティアムII-300MHzのＰＣでも
コンパイルに時間が掛かってﾑｷｰってことはまずないし。
ＭＳオフィス並みの巨大アプリ作ってるのなら話は別かもしれないが。
0678デフォルトの名無しさん
NGNGWindowsXP以上はデフォルトで6.0ランタイムは入っているので
動く。
Windows2000は確か5.0が入っている
ただ、4.0や3.0、2.0は入っていないはずなので別途入れる必要
がある。
0679デフォルトの名無しさん
NGNGWin98には5.0が入っている。
0680デフォルトの名無しさん
NGNGRubyスレで質問すると、VBSの使い方を勉強すればわかるよって言われたんですが、
次の操作をVBSでどうするかわかりません。ヒントでもいいので教えてください。
すでに開かれてるエクセルのブックにアクセスするには、どうすればいいでしょうか？
つまり
エクセルファイルとして存在してるブックを開いて、操作するやり方はわかったのですが、
(Workbooksオブジェクトにaddメソッドで、ブックを登録)
すでに開いてるエクセルファイルを、VBSから操作する方法がわかりません。
(VBAeditorみたいな感じでの、VBSの使い方を知りたいです。)
VBSではどうするのでしょうか？
うまく説明できないんですが、どうかよろしくお願いします。
0681680
NGNGrubyでは
excel_instance = WIN32OLE.connect('EXCEL.Application')
で、すでに開いているエクセルのアプリケーションオブジェクトを
取得できました。
失礼しました。
0682デフォルトの名無しさん
NGNG勉強するなら、VBSじゃなくて、ExcelのVBAじゃないと。
VBSって言った人、絶対勘違いしている。
ExcelのヘルプにVisual Basic(VBA)のヘルプもあるので、
それを熟読して、VBAの文法などの方は入門書を買うと良い。
後オブジェクトの操作で分からない部分は、Excel専門のスレが
あるから、そっちで聞いた方が絶対に早い。
0684デフォルトの名無しさん
NGNGRubyからExcelの操作といっているのでたぶんVBSでいいのでは?>>681が正解だと思うよ。
ちなみにVBSではこんな感じ。CreateObjectではなくてGetObjectになるね。
Set xlApp = GetObject( ,"Excel.Application") 'カッコ内カンマあり(第1項省略、第2項クラス)
Set xlBook = xlApp.ActiveWorkbook 'ファイル名を指定するときは⇒xlApp.WorkBooks("hoge.xls")
Msgbox xlBook.Name
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
0685デフォルトの名無しさん
NGNG無効にしたいんだけど、何か方法ないですか？
0686デフォルトの名無しさん
NGNGIf Me.Size.Width > 1000 And Me.Size.Height > 500 Then
MsgBox("無効")
Exit Sub
Else
MsgBox("Form1_Resize")
End If
0687デフォルトの名無しさん
NGNGごめんなさい。
"ﾒｿｯﾄﾞまたはﾃﾞｰﾀﾒﾝﾊﾞが見つかりません。"
と出ます。
0688デフォルトの名無しさん
NGNGEnabledプロパティがTrueの場合はイベントの発生そのものを抑制することはできないが、
別にイベントの生成そのものを殺す必要なんてない。
イベントが発生したときに行う処理を、ある条件（この場合はフォームが
ある大きさ以上？以下？）が成立する場合だけ実行するようなコードを
書けばいいだけの話。
>>686が言いたいのはそういうことでしょう。
0689デフォルトの名無しさん
NGNG>無効にしたいんだけど、何か方法ないですか？
Form_Resizeに
If Me.Width > 1000 Then
Me.Width = 1000
End If
If Me.Height > 500 Then
Me.Height = 500
End If
って書く
綺麗に制御したかったらサブクラス化しな
0690デフォルトの名無しさん
NGNGそれは「フォームがある大きさを超えないようにする」処理であって、
「Form_Resize ｲﾍﾞﾝﾄをﾌｫｰﾑがある大きさになったときに無効」にする
処理ではないと思うけど。。
天然なのか、それとも質問者に的確な表現力がないとみて意訳してるのかな？
0691デフォルトの名無しさん
NGNG0692デフォルトの名無しさん
NGNG0693デフォルトの名無しさん
NGNGSet xlApp = GetObject( ,"Excel.Application")
と書いてあるんですが、
"Excel.Application"っていうキーワードは、どこで調べればいいんでしょうか？
例えば、IEを、操作したいときは、なんて書くんですか？
あと、それぞれのアプリケーションのメソッド(?)は、どこで調べればいいんでしょうか？
Excelは、VBEditorを起動して、オブジェクトブラウザから、メソッドとか調べられるんですが
それ以外は、どうすればいいでしょうか？
(VisualStudioを買うしかないですか？)
0694デフォルトの名無しさん
NGNGサブクラス化してメッセージを破棄しちゃえばイベントは起こらなくできたと思う。
Resize以外のイベントではそうやって無効になったことがある。
きっと質問者がほしいのはそういう情報でないとは思うが。
0695デフォルトの名無しさん
NGNGVisual Studioにも、大して載っていません。(IEのはあったとは思うが)
「Excel.Application」は、Excelのヘルプに載ってます。
Excelのヘルプ内のVisual Basicの項にある。
オブジェクトブラウザでは説明が無いし。
WordはWordのヘルプ、AccessはAccessのヘルプに
載っています。
ちなみに、Visual Studioと言っても、プログラミング用の
情報が欲しいだけなら、MSDN Onlineとして公開されているので、
それを見るのが良いと思う。(MSDN ライブラリ)
http://www.microsoft.com/japan/msdn/default.asp
そう言う意味でVBSを勉強すると言うのは不正解なんだがねぇ。
と嫌味。
0696デフォルトの名無しさん
NGNGVBでもサブクラス化ってできるんでしょうか？
CではSetWindowLongを使って試したことがあるんですが、
VBでのやり方はどんな感じになるんでしょう？
GotFocusをキャンセルして別の処理(子ウインドウにフォーカスさせる）
をさせたいのですが、GotFocus内で処理すると、一瞬、ウインドウが
表示されてしまうので。
0697デフォルトの名無しさん
NGNG0698デフォルトの名無しさん
NGNGども。簡単ではないみたいですねぇ。
0699デフォルトの名無しさん
NGNG>>439を使えばIDEは落ちないし、レジストリも汚さないから、多少はマシかと。
0700デフォルトの名無しさん
NGNG初心者なのでどのようなことができるのかも
いまいちわからず、いい発想がでてきません。
0701デフォルトの名無しさん
NGNGほれ
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/modcore/html/deovrworkingwithofficeapplications.asp
いずれもこれらOfficeのActiveXコンポーネントの多くはVBからでもVBSからでも
さらには接続する機能のあるRuby等他言語からでも共通に利用可能だ。
そういう意味で区別して勉強する必要はない。
第一RubyからVBAは動かないし、勉強ねぇと嫌味。
0702デフォルトの名無しさん
NGNG打ち上げ花火の着火装置をVBで自動制御するという事ですか？
具体的にどんなインターフェイスで接続されているのかを書いてもらわないと、レスが書き辛いですね
0703デフォルトの名無しさん
NGNGVB６．０で、ファイルをアーカイブするツールを作成しているのですが、
ファイルアーカイブ中に画面が固まらないように、ダイアログを表示し
そこによくファイルを転送しているときにWindowsで、ダイアログが表示されるな
イメージのダイアログを表示したいのですが、何かいい方法はありますでしょうか？
具体的な方法ありましたら教えてください。
0704デフォルトの名無しさん
NGNGまずは他人が読んで理解できる日本語を書く事をお勧めします。
単にAVIアニメーションを表示したいだけ?
0705デフォルトの名無しさん
NGNGマルチ。某掲示板でもおなじことを（ｒｙ
0706デフォルトの名無しさん
NGNG0707デフォルトの名無しさん
NGNG花火を描画するスクリーンセーバーみたいなのと考えればいいんじゃね？
0708デフォルトの名無しさん
NGNGそのオブジェクト群の説明や用法がVBAのヘルプに入っている。
VBSのヘルプや解説には、簡単な例がある程度なのだから、
サンプルや情報が遥かに充実しているVBAを勉強した方が早い。
Excelにでは、実現する方法が分からない時に、自動マクロ記録
機能を使って出来たコードを参考にする方法もある。
何から使うにしても、VBAで説明されている情報が充実している。
Rubyで記述するにしても、VBAを理解して損になる事は無いが、
あなたがそこまでVBSに拘る理由はなんだ?
0709デフォルトの名無しさん
NGNGVBでどうやってファイルの存在を知ったらいいかわからないです。
if(-e $file){
do_something()
}
0710デフォルトの名無しさん
NGNGDir
0711デフォルトの名無しさん
NGNG横レスだけどさ
使い方によるんじゃねぇ？
俺はVBSやってCOMがらみでVBA（この場合階層構造になるんだろうけど）を使うって感じだけどな
人によってはマクロからVBAなんだろうけど、それってWORDとEXCEL覚えるのと変わんないしな
0712デフォルトの名無しさん
NGNGこの場合、VBA = ExcelやWordのコンポーネントで良いのかな?
VBSからでも、使うオブジェクトの情報を見る時は、VBAのヘルプを
見るわけだよね?
ネットで情報を検索しても、VBAでのサンプルが多いから、VBAで
見た方が早いよね。
VBSはVBAのサブセット版だから、VBSには無い部分を除けば、
違和感無く理解できるよね。
マクロからでも、VBSからでも、VB.NETでもWordやExcelを覚えるのと
変わらないのは同じなんだが・・・ (Delphiでも同じく)
対象を変えて、ADOのコンポーネントを使うとしよう。
この場合、ADOの勉強をするよね。
で、例文はVisual BasicやC++で記述されているんだよな。
例文の記述に使われている言語を例文のコードの流れを
理解できる程度には勉強しておくと、他の言語で記述する時に
楽なんだが。
それと全く同じレベルでExcelやWordのVBAって訳なんだが。
Excelの「VBA」のヘルプには、言語仕様の説明ももちろんあるが、
コンポーネントの説明も充実している。
0713711
NGNGVBのサブセットにVBSがあるんでは？
VBSはあくまでロジック書くための規則でしょ
でそれにのっとってVBAが使えるだと思ってたんだけれど
それにADOの例えがあってるとしたら、なおさらVBの知識要るよね
0714デフォルトの名無しさん
NGNG間違っている訳ではないぞ。
http://yougo.ascii24.com/gh/31/003135.html
ちなみに、VBAにあって、VB5.0には無くて、VBScriptにある
関数があった。(同じ時代のバージョンで)
VB6.0になると、その関数(Replaceとか)が言語仕様に盛り込まれて
VBAとVBで言語仕様に実質的な差は少なくなった。
http://www.microsoft.com/japan/msdn/columns/scripting/html/vbsvjs.asp
MS自身が昔とは違う説明をしているのだな・・・
この年度を見ると、VBScript3.x辺りからから変わったんだな。
http://www.google.co.jp/search?q=VBScript+%E3%82%B5%E3%83%96%E3%82%BB%E3%83%83%E3%83%88&ie=UTF-8&oe=UTF-8&hl=ja&lr=lang_ja
VBのサブセットと言う説とVBAのサブセットと言う説の両方が
あるが、VBSが登場した頃は、VBAのサブセットと説明されていた
のです。
VBSは規則でないのだが・・・(明示的な変数型が無いし)
VBSはVBSで一つの言語、簡略化されたVB。
VBAはVBから派生したVisual Basic for Applicationsで記述する。
言語仕様的には、VBAにしかない関数があったり、VBAには無い
関数があったりする程度でほぼ共通。
だから、言語的には VB = VBAとしても同じ事。
ところで、あなた、ExcelやWordのコンポーネントをVBAと呼んで
いるの?
コンポーネントはVBAじゃ無いんだが。VBAは記述する言語部分。
0716701
NGNG人に嫌味いうほどのことじゃねーと思うぞ。(>>695のことな)
アドバイスもいいが押し付けになってはいかんでしょ。
勉強の仕方や考え方も言語の使い方も人それぞれなんだからさ。
質問ｽﾚなんだから、答えるつもりがあるなら、まず聞かれたことを
できるだけ正確に答える。人にこうしろどうしろなんつー態度は
正直大きなお世話、周囲が迷惑いらないよ。
しかし、この板、質問ｽﾚで威張りたいセミ素人が、なんでこんなに多いんだろ?
正直傍目にｶﾝｼﾞﾜﾙｲな。
0717デフォルトの名無しさん
NGNG平気で自分を棚上げできる神経が理解できない。
俺様だけは特別、とでも思ってるのか。
ソープ嬢にこんなところで働くな、説教するオヤジとか
説教強盗みたいでなんか笑えますな。
0718デフォルトの名無しさん
NGNGおれは今日はWindowsの地雷パッチのせいで疲れちまった、何で日本の役人がこんな粗悪パッチを入れるように促してんだかスレ違いsage
0719716=701
NGNGまぁまぁ、ﾋｽ女や爺みたいな逆切れ説教嫌味はｶｺﾜﾙｲに同意だよ。粘着でｷﾓｲもんな。
(一応いっとくが漏れは716&701しか書いていない。他は知らんよ。)
願わくはあなたのカキコが勘違いで自己再帰していませんように...。
0720デフォルトの名無しさん
NGNG↓
0721デフォルトの名無しさん
NGNG0722デフォルトの名無しさん
NGNG出したいのですが、データを書き込む前に全てのＩＤが登録できるデータかどうかチェックして、
１つでも登録できないＩＤがあったらエラーメッセージを表示出したいのですがどういう方法があるのでしょうか？
0723デフォルトの名無しさん
NGNGこれのこと？
ttp://www.atmarkit.co.jp/fwin2k/hotfix/hfb20040507/hfb20040507.html
まーデグレード起こしたMSもどうかしてると思うが、パッチが地雷かどうかを見極めるために
本番環境に当てる前にテスト環境で評価しないか？
0724デフォルトの名無しさん
NGNG何をしたいのはよくわからないけど、
思いのままプログラミングするだけだろ。
0725デフォルトの名無しさん
NGNGプロジェクト→参照設定で「Windows Scripting Runtime」とやらを
参照するようにして、それのオブジェクト群を使え。
オブジェクトやメソッドの一覧はF2キーでオブジェクトブラウザを開く。
詳しいことはヘルプに出てる。
ファイルが存在するかどうかはFileSyetemObjectオブジェクトの
FileExistsメソッドでどうぞ。
0726デフォルトの名無しさん
NGNG0727デフォルトの名無しさん
NGNGとあって、チェックされている数を数えたいんですが、例えばcheck(1),check(2)
と２つだけチェックされていれば２と返すような関数などあるのでしょうか？
0728デフォルトの名無しさん
NGNGそんなFunctionあるかなー？
漏れならシンプルにループでカウントするけど。
0729デフォルトの名無しさん
NGNGそういう発想（関数）をするとVBやってる奴はやっぱOOもわかんない厨房ばっかだ、
って言われても否定しづらくなるから止めれ。
0730かみや ◆QkRJTXcpFI
NGNG当方、4月から前の業者の作ったプログラムを受け取り、前の仕様書もなしでVB6.0にて開発しています。
途中まではハングアップもせずに、導火線の火花さえも、ありませんでした。。。。
ところが！！！！！！納期直前、打ち合わせ直前になって！！！！
開発環境下で、ステップアップで実行初めても、すぐにハングアップしてしまいます。。。
いちおうDoEventsを盛り込んでも、ステップを終了してもハングアップして
VBが落ちてしまいます。。。打ち合わせ直前でこうなりやがって焦ってます(>_<)
考えられるトラップはどこでしょう？
今、自分なりに考えたのですが、全モジュールにOption Explicit
してて、Dim文がｽﾞﾗｰっと並びまくってます･･･これって、逆効果ですよね？？？
むかーし1から作ってたときなんか、宣言がある一定の数を超えたとき
ハングアップした記憶があります。。。
ほかには何か、テクニックがありますでしょうか？
玄人サマ、アドバイスお願いします!!!!
0731デフォルトの名無しさん
NGNGあんたのプログラミングレベルが低いから。
書いてあるコードの意味。なんにも分かってないでしょ。
0732デフォルトの名無しさん
NGNGむしろプログラム自体より環境に問題がありそう
他のプログラムはちゃんと動く？
他のソフトやレジストリだとかＤＬＬだとか
ＶＢやプログラムを動かなくする要素は沢山あるから
動かないならまずＶＢ、関連のランタイム、ＯＳその他もろもろを戻す
問題ないならおかしくなる直前の段階までコードを戻す
戻したら書き換えた部分を詳しく検証
出来ないなら受け取った場所から一からやり直し
0733かみや ◆QkRJTXcpFI
NGNGどんぴしゃだ･･･
確かに、少しおかしくなった後すぐに再起動して、
立ち上がったらすぐに何かのアプリケーションをアンインストールしたんだとおもう。
そのときに、何かでっかいやつを消して、DLLを消してしまったんだとおもう。。。
んー、
とゆうことは、VB6.0を、入れ直し。すれば元に戻る可能性が出てきますな！
むしろこれで開始当初から悩んでいた
行 782: ｸﾗｽ MSDBGrid.DBGrid(ｺﾝﾄﾛｰﾙ dbgStress) はﾛｰﾄﾞされていません。
とかのコントロールエラーも解消されそうだ！！！
しかし、もう打ち合わせには間に合わない･･･
極力のことはやる。だが、しかし、
>>731
よ、たぶんキミはマでもSEでもないただの学生だろう。実際にそう思う。
ソフト屋、ハード屋目指すにせよ、かみやのような考えをもつような奴にはなるな・・・
決して
「奇 跡 が 起 こ る プ レ ゼ ン 1 時 間 前 時 間 が 止 ま る」
などと現実逃避するような奴にはなるな！
0734デフォルトの名無しさん
NGNG本人はネタのつもりなんだろうけど、ネタ師としても（もちろん、ＰＧとしては推して知るべし...）
才能なさそうだからあんまり相手にしないほうがいいと思うがどうだろう。
0735デフォルトの名無しさん
NGNGGW明けで、思わず会社辞めてしまった新人って感じがするけど
0736デフォルトの名無しさん
NGNGＨＳＰに毛が生えたようなもんだろ。
0737デフォルトの名無しさん
NGNGOSは「WindowsXP Personal Edition」です。
「RasDial」でRASの接続を行い、
「RasHangUp」でRASの切断を行う処理を行っております。
プログラム起動をして初回の接続は問題無く動作し、
切断する事も出来ます。
ですが、続けて同じRASに接続しようとした場合
エラーコード「668」（接続を終了しました。）
が返されてしまい、接続する事が出来ません。
Wind98SEでは正常に動作しておりました。
この現象について何かご存知の方はいらっしゃいますでしょうか？
0738デフォルトの名無しさん
NGNG0739デフォルトの名無しさん
NGNG「関数」を作るなら、For Each ... Nextで数えるようにすれば
Indexに欠番があっても使えるからそうするように。
引数はObject型にしてCheck(x)ならCheckを渡し、戻り値で
チェックされた個数を返すようにする、というのが一例。
Public Function GetCheckedCheckBoxCount(ByVal CheckBoxes as Object) As Long
...
For Each C In CheckBoxes
...
みたいな。
引数を増やして「チェックしていない数」「グレーの数」を取れるように
するのもありだ。
0740デフォルトの名無しさん
NGNGオブジェクト変数を宣言しています。
そのコントロールが存在するフォームと、WithEventsを使ってイベントを監視しているクラスの
両方に同じイベントプロシージャがある場合、どういう順番でイベントが発生するかという点は
何によって決まるのでしょうか？
ちなみに、両方のイベントプロシージャにブレイクポイントを置いて調べてみましたが、あるとき
はフォームのイベントが先に走り、またあるときはクラスの方のイベントが先に走ります。
0741デフォルトの名無しさん
NGNGたぶん、登録した順だと思うけど仕様としては定まっていないと思う。
COMの仕様としては定まっているのかな？
だとしたらその仕様のとおりだろうけど、VBのイベントプロシージャが
COMの仕様で実現されていると定まっていないような。
悩みすぎ？ｗ
0742デフォルトの名無しさん
NGNGコントロールの配列ってFor Each 使えなかった気がする。
VBって変な制限多すぎだよ。
0743740
NGNGどもです。
私の方もぐぐったりして調べてみましたが、やはり発生順は不定という結論に落ち着きそうです。
とりあえず今回は、フォームとクラスのイベント両方に同じコード書くというベタな方法で回避しますた。
0744デフォルトの名無しさん
NGNG0745デフォルトの名無しさん
NGNGあやふやな知識で書き込むなよ。
ただし、配列と言う割には UBound() と LBound() が使えない。
0746デフォルトの名無しさん
NGNG「コントロール配列」は違うよ。
こんなことも知らん奴に限って口調が尊大なのはなぜだろう。
0747740
NGNGイベントの発生順に依存する処理を書いてしまったがために発生した不具合を、です。
言葉足らずｽﾏｿ
0748デフォルトの名無しさん
NGNGおおそういうことか。
それはスマンかったな。
しかし、コントロールの配列でも For Each は使えるよ。
ただ変数の型が Variant でないとダメと言われてしまうから、｢変な制限｣というのには同意するよ。
0749デフォルトの名無しさん
NGNG0750デフォルトの名無しさん
NGNG0751デフォルトの名無しさん
NGNGランタイムだけでなく、
DB系なら、Jetのバージョン、MDACのバージョン、独自に使用している
コンポーネント、dll、iniファイル 等々、それこそきりがない。
DB系は特にこれに注意したいところだ。
0752デフォルトの名無しさん
NGNGIUnknownインターフェースを持ったオブジェクト型の変数を返すメソッドを
持ったコレクションを指定するということになってるんじゃないっけ？
だから自作コレクションクラスではFunction NewEnum() As IUnknown
だっけ？こんなのを作るとFor Each...Next対応になるし。
コントロール配列は実態はコレクションだから対応しているんだろう。
For Each...Nextで配列変数を扱うときはIUnknownを返すメソッドが
ないから、カウンタ変数（？）の側をVariantにすることでエラーに
ならないようにしている・・・ということだと理解してるんですが。
違うっけ？なんか最後の説明があやふやだな。
0753デフォルトの名無しさん
NGNGマシンスペックからするとＯＳはWIN98？
それならリソースに制限があるので常駐ソフトがおおければ
常駐ソフトの使用状況でハングするよ。特にｌｉｓｔｂｏｘを多く使
っていない？
ａｔｏｋも悪さをするから要注意だね。
0754デフォルトの名無しさん
NGNG0755デフォルトの名無しさん
NGNG割り込みをかけまくったりメモリを喰いまくったり。
というのをDOS時代には経験した気がするけどWindowsでは気にしたことはない。
0756デフォルトの名無しさん
NGNGま、現実にはＭＳのＸＸのせい、とか言ってる奴の９割方は単に自分の無能を（その自覚もなしに）
責任転嫁してるだけなんだが。
0757デフォルトの名無しさん
NGNGインターフェースってあるじゃないですか。
VB6自体みたいな、コードのウィンドウとフォームのウィンドウはMDIっぽく処理できて、
イミディエイトとかプロジェクトエクスプローラとかプロパティウィンドウは、
ドラッグしてフロートにしたり、画面のハシにドラッグしてドッキングできたりするじゃないですか。
そんな感じのインターフェースを自作のソフトで使いたいんですが、
どうしていいのか、どう調べていいのかわかりません。
そもそも可能なのかもわかりません。
教えてください。
0758デフォルトの名無しさん
NGNGあんた阿波徳島の人だね。あまりかっかせずにね？
特定のバージョンａｔｏｋがＯＮの状態でフォントを変更した時にハング
する事がある。
ＶＢ６ではないがｏｆｆｉｃｅ２０００で終了時にかならずエラーに
なる（これは、自動文章作成ツールをキャンセルすれば解消
するが。。。）
>755
ｗｉｎ９８（ＭＥ）以下は残念ながら１６ビットをベースにしたＯＳ
なので、リソースにＤＯＳ時代の制限があるよ何なら、常駐ソフト
をいくつか常駐させた状態でコンボボックス辺りを数張ってコンボ
ボックスデータをａｄｄｉｔｅｍしてごらん、見事に動かなくなるよ、、、
0759デフォルトの名無しさん
NGNGおお、2chに阿波徳島の人いるのか?
うちのかーちゃんが「家」の家計簿パックのファンだぞ。3年も愛用してV3にVerUpもしたぞ。
入力がとっても楽だそうだ。ラベル印刷もいいな。(ごめんAtokは使ってないけど。)
データをExcelに書き出すADDIN作ってくれ。税金対策で独自に年集計やりたいんだそうだ。
0760デフォルトの名無しさん
NGNG特定のバージョンのってあんたなあ
atok＝悪さをするというような書き方するなよ
一度でもバグのあったソフトは悪さをするから注意しろだと？ふざけてるな
しかも内容がVBと関係ないし。たちのわるいクレーマーのようだな
0761デフォルトの名無しさん
NGNG755は"DOS時代のATOK"について話しているような
0762デフォルトの名無しさん
NGNGhttp://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=44409&lngWId=1&txtForceRefresh=51020045375786745
ここらへん。
0763デフォルトの名無しさん
NGNG理想的です。
なんか難しそうですががんばってみます。
ありがとうございました。
0764デフォルトの名無しさん
NGNGすまんです。旧バージョンのアドレス書いちまった。↓が最新版。
ttp://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=46061&lngWId=1
0765デフォルトの名無しさん
NGNGTabDockでサイト内検索して、そっちの最新版を落としましたので大丈夫です。
わざわざどうも。
0766デフォルトの名無しさん
NGNGDo
～
Next_Syori:
Loop
Exit sub
Err_Syori:
～
Goto Next_Syori
End sub
このように複数回エラー処理を行いたいのですが、
２回目の実行時エラーからはエラー処理に飛ばずに実行時エラーが出てしまいます。
この方式だと複数回のエラー処理は出来ないのですか？
0767デフォルトの名無しさん
NGNG質問する前に、MSDNくらい見てください。
0768デフォルトの名無しさん
NGNGerrorからの復帰はgotoではなくresumeを使う。
0769デフォルトの名無しさん
NGNGエラー処理ルーチンがアクティブになっている間 (エラーの発生と Resume、Exit Sub、Exit Function、
または Exit Property ステートメントの間) は、カレント プロシージャのエラー処理ルーチンはエラーを処理できません。
この辺が原因ですか･･･？
つまりResume、Exit Sub、Exit Functionまたは Exit Propertyがくるまでは
エラー処理ルーチンはアクティブなままなので
上記ソースでは２回目は実行時エラーになってしまうということでしょうか。
0770デフォルトの名無しさん
NGNGResumeもしくはResume Nextを使うと
エラーの起こった行もしくはエラー発生行の次の行に
処理が移ってしまいますよね？
それがしたくないのでGotoを使ったのですが
どうやらマズイみたいですね。
（ＤＢ登録処理でSQL文が失敗したデータは無視して、
次のデータ処理に移るというプログラムを作りたかったのです）
エラーが起こる処理前にOn Error Resume Nextをしておいて
その後にErr.Number<>0だったらエラー処理行に飛ばすようにします。
0771デフォルトの名無しさん
NGNGGoto Next_Syori
じゃなく
Resume Next_Syori
0773デフォルトの名無しさん
NGNG２つのつまみの間の数値を読み取ったりしたいんですが....
さらに4つのつまみで、それぞれのつまみの間の数値を読み取ったりなどできないでしょか？
0774デフォルトの名無しさん
NGNG設計上の問題があるのですが
言ったほうがいいでしょうか？言わないほうがいいでしょうか？
0775デフォルトの名無しさん
NGNGもまえ>>768か？
やさしいな・・・このスレで人間に出会えるなんて
>>774
そんな質問すんじゃねえっ
0777775
NGNGなんでだっ、なんであやまるんだっ
これじゃあ、俺が悪者みたいじゃないか
畜生、俺だってこんな人間になろうとしてなったわけじゃないんだああ
えっと、こっからどうして俺がこんな人間になったかって話になるんですけど
ちょっと長くなるけどいいですか？
0778デフォルトの名無しさん
NGNGVB6が入っていないマシンにインストールしました。
その後SP6でコンパイルしたバージョンアップしたexeを、そのマシンのインストールした場所に
上書きコピーをすると、それは動作しなくなりますか？
0779デフォルトの名無しさん
NGNGっていうか、試してみたほうが早いかと。
0780デフォルトの名無しさん
NGNGdim a() as byte
dim b() as byte
ってあって、
a,bそれぞれ50byteのデータが入っているとして、
そこでaの末尾にbをくっつけて、
aが100byteのバイト配列になるような処理を書きたいんですが、どうするといいですか。
ReDim Preserveでbのぶんだけaのサイズ拡張して、
ループ回して一つ一つ代入していったら、一応できたんで、まぁこれでも良いかとも思うんですが、
もっといい方法はありますか？
0781デフォルトの名無しさん
NGNGCopyMemoryっていうAPI使え。
0783デフォルトの名無しさん
NGNG>>781の通りCopyMemoryが速くて良いと思うけど、
だいぶ機械よりの処理するから諸刃の剣。
たいして速度を求めないならループによる代入で良いと思う。
0784デフォルトの名無しさん
NGNG0785デフォルトの名無しさん
NGNG関数化すりゃええやん
0786デフォルトの名無しさん
NGNGが、何故かWindowsXPではOpenする時に5秒程度のWaitが発生してしまいます。
CompileしたのはVB4.0とかなり古いのが原因なのかとも思っていますが、
別にこの辺りにVersionなんて関係あるのかと疑問。
同じ構文でもVCなら問題なく動きますし。
もし何かご存知の方がいらっしゃいましたら、御教授下さいませ。
ちなみに、APIの宣言は以下の通りです。
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
0787デフォルトの名無しさん
NGNGMIDI音源の関係と予想。
0788デフォルトの名無しさん
NGNGA = CStr(A) & CStr(B) でできるべ。
Byte型の配列は文字列と相互変換できるから。
0789デフォルトの名無しさん
NGNG0790デフォルトの名無しさん
NGNGそれって中身が文字データじゃなくても問題ないの？
0791デフォルトの名無しさん
NGNG今しがた、配列Aに0～49、配列Bに50～99入れて確認。
合体後の配列Aは0～99まで100要素ちゃんと出来てます。
この場合、CStr(A)は文字コード&H0001, &H0203・・・しめて25文字50バイト
の文字列になる。（UNICODE）
それと同様にCStr(B)も文字列化していて、それらの
連結結果がバイト型配列に代入されるとき、また0, 1, 2・・・98, 99に
分解されるという仕組み。
0792デフォルトの名無しさん
NGNGCStrなんか使っちゃダメでしょう。
使うならMidB$とかLeftB$みたいにBが付いた文字列関数を使わなければ。
それから、バイト型の動的配列でないと文字列は代入できないはず。
0793デフォルトの名無しさん
NGNG？
0794デフォルトの名無しさん
NGNG文字コードにかかわる問題を少しでも知ってる人なら
CStrなんて動作が明示的に定義されてない関数は怖くて使えない。
「動的」配列云々の話はやってみれば猿でもわかる。
0796デフォルトの名無しさん
NGNG0797きっき
NGNG0798デフォルトの名無しさん
NGNGＶＢでテトリスとか作れるのですか？ ヒントください。
自分かなり初心者です。
0799774
NGNG作れるのか、作れないのか
それのヒントかぁ
答えを言わずにヒントを出すのは難しいなぁ
0800VBer
NGNGhttp://www.google.com/search?num=50&lr=lang_ja&q=%76%62%20%E3%83%86%E3%83%88%E3%83%AA%E3%82%B9
0801デフォルトの名無しさん
NGNGググれ
>>798
参考までに
http://pc5.2ch.net/test/read.cgi/tech/1059892659/
0802デフォルトの名無しさん
NGNGやり方を教えてください
0803デフォルトの名無しさん
NGNGクラスにタイマーオブジェクト渡したらどうなん？
0804デフォルトの名無しさん
NGNGコネクションは以下ようになっていますが
Dim db As New Connection
db.CursorLocation = adUseClient
'接続は９０秒
db.CommandTimeout = 90
db.Open Connectionstring
タイムアウトでエラーが出ます。
インターネットＶＰＮでＳＱＬＳＥＲＶＥＲに接続しているのですがなぜタイムエラーが出るのでしょう
９０秒もあれば十分なような気がするのですが・・・・
ちなみにネットワークはPINGを打つと
５００msから３００msかかります
ＳＱＬＳＥＲＶＥＲ側の接続？
0805よくわからんでレス
NGNGなんか根本的にだめだろ。
タイムアウトしてるのはコードがおかしいからです。
直接関係ないけどコネクションなのに変数名がdbとかもきもいし。
勉強して出直してこいって感じだ。
ttp://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_s11.htm
でも読め。そしてMSDNも読め。
0806デフォルトの名無しさん
NGNGいや、これでいけましたが。
個人的にはネッワークの混み具合かなともおもっているのですが
普通の拠点はＰＩＮＧ打つと５０ｍｓぐらいだったのですが
ある地点だけは３００ｍｓもかかるのでそう思ってます。
他はＯＫだったのですが・・・
ＶＰＮは重いのかな？
がんばってみます。
ＶＰＮでＶＢをデータベースをアクセスしている人ています？
0807よくわからんでレス
NGNGふーん。
じゃあシステムDSNつくって普通に接続できるかチェックしてみれば？
0808デフォルトの名無しさん
NGNG＞＞じゃあシステムDSNつくって普通に接続できるかチェックしてみれば？
普通には接続できるのです。
原因がわからなくて。timout=0（無限）にするといけるのかな？
今度やっえみようかなとおもっています。
0809デフォルトの名無しさん
NGNGこれをHTTPのみではなくHTTPSも使えるようにバージョンアップしようとし
ていますが、なにか良いライブラリはありませんでしょうか？
BASP21 Proはライセンス（再配布）の問題でダメで、winsockはWin98上
でのSSL通信に対応していないいないっぽいのダメでした。
＃過去ログが読めないみたいなのでチェックしてません。すいません。
＃いちおうググっては見ましたがめぼしいものが見つからないので・・・
0810よくわからんでレス
NGNGあんなー。お前はっきりいっとくけどな。
timeoutを変更するのもいいけどな。
接続に1分半以上かかるようなシステムまともに使用できるわけねーだろ。
今度やってみようかと思いますじゃねーよ。
システムDSNで接続できるってことはコードがおかしいんだろ。
コネクションストリングあたりがあやしんじゃねーか？
0811よくわからんでレス
NGNGWinInet APIでできそうだけどな。本当にぐぐったか？嘘つくな。
0812デフォルトの名無しさん
NGNG先ずは、ぐだぐだ言う前に>805を読んで検討しなおせ。
そのサイトの他のページにはチューニングと言うか、
パフォーマンスを確保する為にコーディング上で注意すべき
事項も明確にされている。
>'接続は９０秒
>db.CommandTimeout = 90
CommandTimeOutはクエリ等を実行した時に終了待ちを
する時間。
接続のタイムアウトは、ConnectionTimeOut。
デフォルトは15秒。
接続できない事とは直接関係無いとは思うが、わざわざ
クライアントカーソルを使っているのは明確に目的や理由が
あるんでしょうか?
0813809
NGNG0814デフォルトの名無しさん
NGNG＞＞接続に1分半以上かかるようなシステムまともに使用できるわけねーだろ。
確かにそうですね。とりあえず原因を知りたいのです。
思うにＰＩＮＧ打って５００ｍｓもかかるようなネット環境ではできないのでと。
そのあたりを知りたいのです。80msなら十分使用になるのですが。（実際にデータも更新も参照も）
ＶＢのＤＣＯＭ辺りがかなり接続負荷になってるのでしょうか？
ともかくコネクションストリングをもう一度見てみます
0815809
NGNG書き込みミスです。
>>811
WinInetでSocketレベルでのSSL通信はできますか？
現在Socket使ってHTTPサーバと直接お話しするような作りに
なっていてかつ工数・金額をかけない、という制約から見送
りました。
0816よくわからんでレス
NGNGおまえさ。何歳で何年目よ？
まず
ネットワークの状態が悪い
のと
SQLServerに接続できない
のは切り離して考えたらどうなんだ？
システムDSN経由だと正常に接続できるんだろ？
まず、何歳で何年目なのか言え。
0817よくわからんでレス
NGNG一生できますか？できますか？って言ってろ。
0819デフォルトの名無しさん
NGNGＡＤＯでＯＬＥＤＢを使っているのです。
ＯＤＢＣは使っていません。書き方が悪かったかも知りませんが
ネットワークの状態に負荷があるとき（今回は１０拠点の位置で調べる）
接続できないのです。（タイムアウトを多くしても）
どこかで負荷がかかってるとしか思えないのです。
0820デフォルトの名無しさん
NGNGふーん。
じゃあできないんじゃないの？
0821デフォルトの名無しさん
NGNG仮にそれで解決するとして
じゃあ解決しなかったことが、このスレの住人に答えられるのかね（ｗ
答えることなんて残ってねえと思うぞ
素直に素人に物教える技術はないって言ってりゃいいものを
特に８１６おまえだ
0822よくわからんでレス
NGNGお前の話聞いてるとうんこもらしそうだな。
ようするにVBと関係ないわけだな。
0824よくわからんでレス
NGNG俺が現場にいればこんなとこで聞かないで自分でなんとか解決するけどな。
0825デフォルトの名無しさん
NGNG＞＞俺が現場にいればこんなとこで聞かないで自分でなんとか解決するけどな。
おまえにできるとは誰も思ってないよ！
スレから消えろ。
0826デフォルトの名無しさん
NGNGパチパチ
0827デフォルトの名無しさん
NGNGConnectionTimeoutとCommandTimeoutを取り違えている事を
理解していないようだから進展しそうも無いな。
ネットワークが遅いなら、非同期処理とか遅いなりのやり方は
あるが。
0828デフォルトの名無しさん
NGNG0829よくわからんでレス
NGNGおまえの技術力が低いからてんぱってるんだって事を忘れたら駄目だな。（笑）
0830デフォルトの名無しさん
NGNGいまの話題は「お前人にそんなこと聞くか？」っていうような低レベルな話なの？
Form1からForm2の……っていう例の質問と同じぐらいの？
傍目にはなんかそうは思えないんだが。
あまりに馬鹿な質問とかならともかく、感情的になるぐらいなら最初から
レスしなきゃいいと思うんだけどどんなもんかね。
0831デフォルトの名無しさん
NGNGやったことない分野なのにそうは思えないの？
すごいね。エスパーになれるよ！
0832デフォルトの名無しさん
NGNGおまえが高いとも思えんが。
悔しければ役に立ちそうな意見でも言ってから吠えれば。
今ならお前なら吠えてるだけ。消えろ。
0833デフォルトの名無しさん
NGNG煽ってないで勉強したら？
0834デフォルトの名無しさん
NGNG必死になって自分に正当性があるっていいたいのはわかるが
俺は８２１だが８０９じゃないぞ
なんつうかスレの質問の仕方が悪いのは仕方ないとしても
うんことか何歳で何年目とか
おまえの人間性の汚さに腹が立ってるだけ
会社でなんかいやなことでもあったの ぼ く？
0835デフォルトの名無しさん
NGNGオマエモナー
0836デフォルトの名無しさん
NGNGどうすればいいでしょうか。
例えば１０の２０００乗は何ケタになるか調べたいのですが・・。
0837デフォルトの名無しさん
NGNG0838デフォルトの名無しさん
NGNG質問が不明瞭。いったい何をしたいんだ？
0839デフォルトの名無しさん
NGNG例えば１０の２０００乗は何ケタになるか調べたいです。
１０＾２０００を変数にいれてLENとかで調べようとしたら
どんな変数つかってもオーバーフローしてしまうので・・・。
0840デフォルトの名無しさん
NGNG２００１ け
0841デフォルトの名無しさん
NGNG高校は出てるんだよね？数学的帰納法知ってる？
10^0 = 1, 10^1 = 10, 10^2 = 100, ......
∴10^2000は2001桁でしょ？
ていうかこれと文字列のバイト数がどう繋がるのか意味不明なんだけど。。
0842デフォルトの名無しさん
NGNG0843デフォルトの名無しさん
NGNGう～～ん。
その解答自体が知りたいのでなく
とんでもなく長い（例えば２００桁）を越える文字列の長さを測る
ロジックの組み方が知りたいのです。
そんな文字列を格納してもオーバーフローしないデータ型とか存在しないですか？
0844デフォルトの名無しさん
NGNG絶対こう言い出す奴がいると思った。
基数が10だからたとえが悪いってか？
別に10じゃなくても同じこと。
0845デフォルトの名無しさん
NGNGおちょくってんの？新手の釣りですか？
200桁の文字列って何？200文字？
200文字どころか10Gバイトまで扱えるはずだけど。
0846デフォルトの名無しさん
NGNGそれにはどんなデータ型使えばいいのですか？
おちょくってないですよ。
普通に知りたいです。
0847デフォルトの名無しさん
NGNGLen関数なら 2^31文字まで数えてくれるんじゃないかな？
もしかしたらこういったものが欲しいのか？
http://www.google.com/search?num=50&lr=lang_ja&q=%E5%A4%9A%E5%80%8D%E9%95%B7
0848デフォルトの名無しさん
NGNG文字数か？ならLen
0849デフォルトの名無しさん
NGNG>>839で
>どんな変数つかってもオーバーフローしてしまうので・・・。
と言っているからやっぱり200桁じゃないの
0850デフォルトの名無しさん
NGNGﾊｧ?
0851デフォルトの名無しさん
NGNGMidBとMidB$の違いは
Nullが使えるか使えないのってことで良いかな？
0852デフォルトの名無しさん
NGNGそうだろ?>>846
0853デフォルトの名無しさん
NGNGいやだからLENで調べるために変数で格納したいのですが
どんなデータ型なあ２０００桁を越える文字列を格納できるかな・・・と。
>>845によると１０Gを越える文字列を格納できるデータ型が存在するとの事ですが。。。。
0854デフォルトの名無しさん
NGNGいえ。たまたま１０って言っただけです。
とにかく「長い文字列を入れてもオーバーフローしない文字列はありますか？」
質問はそれだけにしぼります。
0855デフォルトの名無しさん
NGNG>>847が求めているものだろうが、なぜかスルー。
0856デフォルトの名無しさん
NGNG2000桁ってどんな文字列なの？
想像もできん
0857デフォルトの名無しさん
NGNGすません。
0858デフォルトの名無しさん
NGNGつまらん釣りは止めれ。
釣りでないなら2000桁の文字列という意味不明な言葉をきちっと説明しろ。
0859デフォルトの名無しさん
NGNGとにかく格納したいんですよ。
いちど格納できさえすればLENで測る時だけ文字列に置き換えればいいとおもうので。
>>847は確かに便利ですが今知りたいのは計算結果でなく「VB６でのロジックの組み方」なので。
0860デフォルトの名無しさん
NGNGじゃあ場合によって答えの数字列が2進数になっても10進数になっても20進数になってもいいのか?
0861デフォルトの名無しさん
NGNGではデータ型一覧みたいなものが見たいです。
いまマニュアルが手元になくて・・・。
0862デフォルトの名無しさん
NGNG0863デフォルトの名無しさん
NGNGStringじゃ駄目なのか？
例えば
"abcdefghij" は1桁、10桁どっち？
1桁だったら俺は知らん
0864デフォルトの名無しさん
NGNGとにかく格納したいんで。
別に２進とかでもかまいません。
とにかく長い文字列（数）を格納できるデータ型を何かしりませんか？
0865デフォルトの名無しさん
NGNG0866デフォルトの名無しさん
NGNG>>863
STRING、VARIANT、LONGで余裕でオーバーフローしてしまったのでここにきました。
ここまで文章書くことにはなるとは・・・。
データ型一覧でググった方がはやかったかな。
0867デフォルトの名無しさん
NGNG格納はStringでできるが。
0868デフォルトの名無しさん
NGNGじゃぁもう来なくて良いよ。意味わかんないし。
0869デフォルトの名無しさん
NGNG殺意を覚える文章だな。たとえ釣りだとしても。
0870デフォルトの名無しさん
NGNG0871デフォルトの名無しさん
NGNG釣りだったのか・・・
0872デフォルトの名無しさん
NGNG0873デフォルトの名無しさん
NGNG特になにもしなくても多倍長演算ができるぞ。
0874デフォルトの名無しさん
NGNG0875デフォルトの名無しさん
NGNG最初はロジックまできけたらな。と思ってここにきましたがもういいです。
さっきまでググってたら色々出てきたので
データ型を自分で調べて自分で考えますわ。ども。
0876よくわからんでレス
NGNGお前のは文章とはいわんよ。
ただの単語の羅列だ。断片的で読み手を混乱させるだけだ。
0877デフォルトの名無しさん
NGNGLeftBとLeftB$の違いは
Nullが使えるのと使えないってことでいいのかな？
0878デフォルトの名無しさん
NGNG0879デフォルトの名無しさん
NGNGサンクス
君のおかげで解決したYO
0880デフォルトの名無しさん
NGNG$なしの関数はStringでなくVariant返すってことだったはず。
0881デフォルトの名無しさん
NGNGそうだったのか
マジで知らなかったよ・・・
DBがらみがメインだから$なしはNULLが使えるって間違った覚えかたしてた。
>>878
さっきは強がっちゃった。ごめん。
0882デフォルトの名無しさん
NGNGs = 10^2000
って書いてオーバーフローしたんだろうなぁ。
0883デフォルトの名無しさん
NGNGようするに言語仕様から勉強しなおせってことだな。
0884デフォルトの名無しさん
NGNGs = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
0885デフォルトの名無しさん
NGNGs& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s& = "1"
0886デフォルトの名無しさん
NGNG?vartype(trim$(""))
両方ともvbstringが返ってくるよ！
0887デフォルトの名無しさん
NGNGどうでしょう・・・。
可能で有れば、明日にでも押入れにしまってあるCD一式を
PCにしインストールしようと思ってるのですが。
0888デフォルトの名無しさん
NGNGDim s As String
s = "1"
for i = 1 to 2000
s &= "1"
next i
0889デフォルトの名無しさん
NGNGぶー 実行できません
0890デフォルトの名無しさん
NGNG当たり前じゃん。文字列入ったVariant型の変数を引数に渡すと、
VarTypeはVariant型を現す値を返すとでも？
0891デフォルトの名無しさん
NGNGFORMの上にTabをおき、更にそのTabの上にいくつかのボタンをおきます。
その状態でボタンからボタンへの移動をキーボードの方向キーを使って行うのですが、
その際にキーボードからのイベントはどのオブジェクトで取得できますか？
0892デフォルトの名無しさん
NGNG恐らく今年の新卒あたりがGW空けに研修終わって実務に入らされて、
んでテンパっちゃったと見たが、どうよ？
0893デフォルトの名無しさん
NGNG>>891
コマンドボタンはKeyDown拾えないっぽいなー。
サブクラス化するしかないかも？
0894デフォルトの名無しさん
NGNGへ？フォームのKeyPreviewをTrueにしとくのではダメなのか？
そういうことではないのかな？
0895デフォルトの名無しさん
NGNGとは言ったものの
VBで質問ってことはやっぱ実務なのかねえ？
ホビーユーザーだとむしろドトネットの方行くだろうし・・・
0896デフォルトの名無しさん
NGNGコマンドボタン上にフォーカスがあるときに方向キーを押すと、キーイベントが発生する前に
フォーカスが移っちゃう。あと、イベントも取得できない（他のキーは大丈夫）。
良い案があればいいんだけど、俺はどうやっていいかわからない。
識者の助言プリーズ。
0897デフォルトの名無しさん
NGNG君の言っていることはWinの当たり前の仕様のように思える。
何が問題なのかわからんのだが。
ちなみにTabStripとコマンドボタンのフォーカスの移動は
キーボードからはカーソルキーではなくTabキーで行うのがWinの仕様だ。
0898デフォルトの名無しさん
NGNGゲームにWindowsの仕様じゃない要求があることは簡単に分かるだろうに。
TABでフォーカス移動するゲーム。そんなものやりたくない。
0899デフォルトの名無しさん
NGNGメニューを全て一つずつ空間開けてくれと言われた事。
VBメニューエディタ的に表現するとこんな感じ。
ファイル
・・・新規作成
・・・
・・・開く
・・・
・・・上書き保存
理由は「くっついていたら間違って選ぶ事があるから」だそうだ。
画面のプロパティでメニューのフォントサイズを大きくするようにしたらと言ったら、
「他のソフトまで大きくなるから困る」ってなんやねんそれ。
愚痴スマソ。
0900デフォルトの名無しさん
NGNGなんで？って思うような要求もあるね。得に工場で使われるようなやつ。
お客さんは必要だから金出して仕事頼んでんだろーなーって思うように
なってからは気楽だけどね。
お客様は神様です。
0901よくわからんでレス
NGNGactivecontrolとform.keydownを組み合わせてなんとかすれ。
っつーかこんなものもわかんねーくせに煽るな。
おまえが>>891じゃないならすまん。
0902よくわからんでレス
NGNG0903デフォルトの名無しさん
NGNG俺は逆にそんなんで一番(ﾟДﾟ)ﾊｧ?って感じる感覚の方が分からない。
一応その要求には合理性があるじゃん。
昔からＰＣ触ってるヲタクな人には理解できないかもしれないが
大半の人はキーボードでよりむしろマウスでメニュー操作するわけで、
その場合確かに項目の選択ミスというのは起こりがち。
(ﾟДﾟ)ﾊｧ?ってそりゃ要するにあんたが人を見下したいだけなんとちゃうのかと。
0904デフォルトの名無しさん
NGNG人を見下している903。
0905デフォルトの名無しさん
NGNG以下略
0906デフォルトの名無しさん
NGNG僕なんか全人類に対してはぁ？って思ってるよ。
? len(String(2000,"9"))
2000
0907デフォルトの名無しさん
NGNGソースの編集中に Homeキーを 押すと その行の左端にある文字の左横に
カーソルが移ります。
1列目に カーソルを移したい場合は、Homeを もう一度 押すしかないのですが、
それは 面倒なので 一回で １列目に 移動させる方法は ないでしょうか？
0908デフォルトの名無しさん
NGNG行の先頭が1列目じゃないのかｗ
0909デフォルトの名無しさん
NGNGどうしてもわからない部分がでたので質問します。印刷にはVS-VIEWを
使っていてactionプロパティに[全ページ印刷(11)]の値を渡して印刷
しています。この状態で印刷途中にストップする方法はないでしょうか
？killdocを使ってみたのですが全く効かず、ダイアログを表示してキ
ャンセルボタンを押そうにもすぐにダイアログが消えてしまい間に合わ
ない事が多いです。何か解決策を知ってる方がいたら、教えてください
0910デフォルトの名無しさん
NGNG俺は逆に「他のソフトではメニューの操作を間違わないのか？」なんて思っちゃったりするへたれですが。
0911デフォルトの名無しさん
NGNGインデントを行わず全ての行を一列目から記述する。
あるいはHomeキーを二回押下する操作をシミュレートさせるソフトを探すか作る。
0912デフォルトの名無しさん
NGNG$なしの文字列関数がVariantを返すってどういうことですか？
0913デフォルトの名無しさん
NGNGどういうことですか？ってどういうことですか？
0914デフォルトの名無しさん
NGNGＣｏｍｂｏＢｏｘなんですが、入力不可で選択だけにして、○か×かを選択できる
ようにしたいのですが、どうすればいいのでしょうか？
○と× 以外に 何もないのが 選択されてしまうのですが、何もない表示を
とりたいのです（表示しないようにしたい）
0915よくわからんでレス
NGNGどうせ何回言ってもMSDNなんてよみゃしないんだろうから
親切に教えてやるよ。
コンボボックスのプロパティーを全部いじれ。
そうしたら道がひらける。
0916デフォルトの名無しさん
NGNG古いマシンだからMSDNをインストールする余地がない。
残念！
0917デフォルトの名無しさん
NGNGあ、すまん、あと初期値入れれ。○か×どっちかコードで選択しれ。
0918よくわからんでレス
NGNGじゃあお前はあれか。
なんかわかんないことがあるたびここで聞くわけか。
くっだらねーしつもんを。
0919デフォルトの名無しさん
NGNG0921デフォルトの名無しさん
NGNG0922よくわからんでレス
NGNGは？しっかり答えてますが。
0923デフォルトの名無しさん
NGNG書き込んでるってわけだな。
そういうことにしよう。
0924デフォルトの名無しさん
NGNG0925デフォルトの名無しさん
NGNGグリッドの上にラベルって書けばいいじゃん。
0926デフォルトの名無しさん
NGNG0927デフォルトの名無しさん
NGNG100円ショップに売ってるよ。
0928デフォルトの名無しさん
NGNG0929デフォルトの名無しさん
NGNGできません。
0930デフォルトの名無しさん
NGNG0931デフォルトの名無しさん
NGNG0932デフォルトの名無しさん
NGNGFormが使われなくなったときインスタンスは消える。
LoadとはFormsコレクションへ参照を追加すること。
FormをLoad(暗黙的なLoadも含む)しなければUnloadする必要はなく
Formへの参照がなくなった時点でインスタンスは消える。
FormをLoadしていれば、Unloadしてなおかつ、Formへの参照が
なくなった時点でインスタンスは消える。
0933デフォルトの名無しさん
NGNG１行が
Call ctlXXXXXXXXX.setXXXXXXXX(Format(Mid(mXXXXXXXX(mintXXXXXXXXXX - 1).XXXXXXX, X, X), "XXX")
& Format(Right(mXXXXXXXX(mintXXXXXXXXXX - 1).XXXXXXX, X), "XXXX") & tmpXXXXXX & "X"
, XXXXXXX.GetXXXXXXXXXXXXXX(mXXXXXXXX(mintXXXXXXXXXX - 1).XXX, mXXXXXXXX(mintXXXXXXXXXX - 1).XXXXXX
, mXXXXXXXX(mintXXXXXXXXXX - 1).XX) & StrConv(Format(mXXXXXXXX(mintXXXXXXXXXXXX - 1).XXXXXX(mintXXXXXXXXXX - X)
, "XX"), vbWide), mXXXXXXXX(mintXXXXXXXXXX - 1).XXXXXXXX(mintXXXXXXXXXX - X))
のようなコードです。
0934デフォルトの名無しさん
NGNG0935デフォルトの名無しさん
NGNG消せばどうにかできるぞ
0936デフォルトの名無しさん
NGNG昨日の釣りの人？今日も意味不明な文章ご苦労なこった。
しかしそんだけタイプするの結構大変だと思うんだが、そこまでして
するほど釣りって楽しいのかねえ。
0937デフォルトの名無しさん
NGNGVariant型を返していることを実感できる方法は無いですか？
0938デフォルトの名無しさん
NGNGTrim(Null)
はエラーにならないけど
Trim$(Null)
はエラーになるって事じゃ実感できないかな
0939Not 937
NGNGNo.938
「Trim$(Null)はエラーになるがTrim(Null)はエラーにならない」
Variant型に詳しい>>938はこう語る。
(略)
実際にやってみた。....
確かにTrim$(Null)はエラーになるがTrim(Null)はエラーにならなかった。
へぇへぇへぇへぇ....
知らんかった。
0940デフォルトの名無しさん
NGNGtrim(null)の返り値はstring型じゃないんですね。
実感できましたm(_ _)m
0941931
NGNGデータが入ってるんですけど、新規には ならないのでしょうか？
0942デフォルトの名無しさん
NGNG0943デフォルトの名無しさん
NGNG根本的におかしいんじゃねーの？
0944デフォルトの名無しさん
NGNGごめんなさい
0945デフォルトの名無しさん
NGNG管理者の運用形態等について質問です。
①VSSDBと、実ファイルの関係性について。
(VSSからtxtファイル等をCHECKOUTして編集してCHECKINしても実ファイルには、
反映されないが、VBを通して編集すると実ファイルに反映されるのは何故か？等)
② ①を踏まえて、txtファイル、docファイル等は、どうやって実ファイルに反映させれば良いのか？
②’VSSを導入したら、基本的にVSSを通さないと、ファイルの取得、更新は出来ないのか？
③リリース用の最新ソース一覧は、実ファイルフォルダをコピーして構わないのか？
それとも、毎回、別フォルダに最新を全部取得しないといけないのか？
④２箇所(2サーバー)でのファイル管理は可能か？
(毎朝、本サーバからVSSアーカイブを取り副サーバに反映させ、
夜、副サーバの差分実ファイルを本サーバに戻す。等)
⑤VSSアーカイブの復元は上書きで良いのか？
それとも一旦全削除後に復元を行わないと行けないのか？
⑥VSSアーカイブがあれば、実ファイルフォルダの中身が飛んでも復元出来るのか？
それとも別に、実ファイルもバックアップを行う必要があるのか？
①～④は、ある程度、検索したのですが見つかりませんでした。
有意義なサイトもご存知でしたら紹介して下さい。
宜しくお願い致します。
0946デフォルトの名無しさん
NGNGunloadすればコントロールは初期化されるはずだけど。
もしかして、unloadじゃなくてhideしてない?
0947デフォルトの名無しさん
NGNG「実ファイル」ってなんですか?
0948デフォルトの名無しさん
NGNGおもしろいことに。
0949デフォルトの名無しさん
NGNG>931の質問に対する回答には目を通したのか？
UnloadしてもTerminateイベントが発生しない状況(他から参照されている)なら、インスタンスは残っている。
0950931
NGNGあと unload me とかしても me.hide と同じなんでしょうか。
自分のForm内に次へなどのボタンを 設置して それが押されたら
新しいFormを開いて、元のを閉じたいのですが・・・。
0951デフォルトの名無しさん
NGNG0952デフォルトの名無しさん
NGNGおまえ、MSDNインストールしてないだろ。
0953デフォルトの名無しさん
NGNG>Terminateイベントって どうすれば発生するのでしょうか？
unloadされ、参照されなくなった時点で自動的に発生する。
>あと unload me とかしても me.hide と同じなんでしょうか。
unloadとhideは違う。hideは表示されなくなるだけでloadされたまま残る。
>自分のForm内に次へなどのボタンを 設置して それが押されたら
>新しいFormを開いて、元のを閉じたいのですが・・・。
新しいフォームをしてshowして、unload meする。
0954945
NGNGテキストファイル等の事です。
VSSDBてのは、Visual SourceSafeの仮想DBの事です。
宜しくお願いします。
0955デフォルトの名無しさん
NGNG0956デフォルトの名無しさん
NGNG>1)と2)
「何処の」実ファイルに「何が」反映されないのか？
あるクライアント上のテキストファイルをメモ帳で開いて編集保存しても実ファイルが更新されないって事か？
>2'
そりゃそうだ。
>3)
複数人で開発しているなら、全員がチェックイン後に新しいフォルダに最新を取得してビルドしたほうが安全だろ。
>4)
出来るかどうかわからんが、何でそんなめんどくさい事を？
>5) 6)
VSSアーカイブって何？
って、やってみりゃわかる事ばっかだな・・・
0957デフォルトの名無しさん
NGNGMSDNインストールしなさい。不正コピーならしね。
そもそもVBだけなら20MBも容量つかわないだろ。
0958947
NGNGVSSには「実際のファイル」なんて概念はないよ。
あるのはリポジトリとそこから取り出したコピーだけ。
シャドウフォルダを設定すれば自動で最新のコピーが作成されるから、
それで代用することになると思う。
0960デフォルトの名無しさん
NGNGアクセスのテーブルＡをレコードセットＡでひらいて
テーブルＢをレコードセットＢでひらいてＡからＢへ流すのと
アクセスのテーブルＡをレコードセットＡでひらいて
テーブルＢにconnection.execute()のinsertでＡからＢへ流すのと
どっちが早いというのはありますか？ケースバイケースですか？
0961945
NGNGありがとうございます。
>>947さん。
ありがとうございます。
もう少し具体例をあげて質問してよりでしょうか？
⑦ある程度、開発が進んだプロジェクトフォルダにVSSを導入した時点で、
元々のファイル管理運用形態(実ファイルをサーバーから落としたり上げたりする)は、
出来なくなるって事で良いのでしょうか？
⑦’それまでは、実ファイルがあったって事ですよね。
⑧VSSでの管理をやめた場合は、元の実ファイルフォルダで、元々のファイル管理運用形態に戻す事は、
できないのでしょうか？
⑧’VSSでの管理をやめた場合は、最後に最新ファイルの取得で全ファイルを取得し、
それに対して、元々のファイル管理運用形態(実ファイルをサーバーから落としたり上げたりする)を
しなければならないのでしょうか？
⑨シャドウフォルダは、知っています。ここは、リアルタイム更新なのですね。
ですが、ここのファイルをコピーして編集して再度、VSS環境に戻すのは、マニュアルにありますが、
面倒ですよね。
半分質問では、ないですが宜しくお願いします。
0962947
NGNG>7
出来ないわけじゃないですが、手間が増えるだけでメリットがありません。
>8'
そういうことになります。
>9
ええ、シャドウフォルダは編集には向きません。
編集が必要なら、通常通りチェックアウトして作業する方がいいでしょう。
0963945
NGNG大変有難う御座いました。
おかげさまで運用形態が見えてきた気がします。
営業所から本社へのアクセスが増えて重くなるような気がして、
固定観念で現状通り、ソースを本社サーバと営業所サーバで管理しようと思いましがた、
作業フォルダの内容を毎回書き換える訳ではないので、必要ない気がしてきました。
ほんとに、有難う御座いました。
0964945
NGNG⑩VSSDBを作成した時点で、作成元になった実ファイルとは、全然関連性はなくなるのでしょうか？
0965デフォルトの名無しさん
NGNGなくなります。
0966デフォルトの名無しさん
NGNGいくつになるか知るにはどうしたらいいのでしょうか？
0967デフォルトの名無しさん
NGNGＶＢスクリプトを作りたいのですが、どのように記述すればいいのでしょうか？
0968デフォルトの名無しさん
NGNGまずFTPの使い方から覚えてください。
0969デフォルトの名無しさん
NGNG0971960
NGNGレコードセット→コマンドで
速度を調べたんだけど１ぽうでは同じはやさで
もういっぽうではレコードセット→コマンドのほうが
１０倍はやかった
Addnew-updateというコードは基本的に遅い？
0972デフォルトの名無しさん
NGNGレコードセットにaddnewするとinsertした後、selectでその行を再取得してた気がする。
そのせいじゃないかな。
0973デフォルトの名無しさん
NGNG0974デフォルトの名無しさん
NGNG0975974
NGNG>>972の言うようにaddnew後にselectで再取得しているというのも
（真偽は知りませんが）あると思うが。再取得がなくても単純にaddnew
が遅い。というか根本的にレコードセットの処理が遅い。
0976960
NGNGえ！まじですか？
でも考えてみればそうですね....つじつまが合うし
＞副問い合わせでINSERTする方が速い予感。
もう少しヒントくれませんか....
0977デフォルトの名無しさん
NGNGAddNewとInsertの速さは使ってるDBによって違った気がする
AccessはAddNewが早いけど
SQL ServerはInsertの方が早かったと思う。
実際比べたこと無いけどね。
スピードを気にするなら↓これで
insert into TABLE_A select * from TABLE_B
0978960
NGNGありが㌧！
＞AccessはAddNewが早いけど
＞SQL ServerはInsertの方が早かったと思う。
実験してみます
＞insert into TABLE_A select * from TABLE_B
確かにこれははやそうです。項目になんらかの加工を加えるとなると
鬼のようなSQLの長さになりそうですね......
0979デフォルトの名無しさん
NGNGへー。どちらもVBからの操作での比較？
ちなみにどこでその情報を？
0980デフォルトの名無しさん
NGNGなんかでググると検証したページが出てきたはず。たしか。
0981デフォルトの名無しさん
NGNG質問スレっていうのは、答える方は答えるのが好きで、くだらない質問でも
それをネタに答え方の練習をしてるんだよ。つまり自己満足。
善意や厚意は二の次だ。
で>>931よ・・・
とりあえずMSDNインストールすれ。
したら「Visual Basic フォームの有効期間」で検索してそのページ嫁。
あと「Formクラスのカスタマイズ」も。
Terminateイベントというのは、フォームでもクラスでもその他でも、
遅くともプログラムが終了するまでにはどこかで発生する。
ブレークポイント張って見張ってみりゃわかるだろ。
ブレークに引っかからなかった？それは主に以下の２通りの場合だ。
・エラーで落ちた
・Endで終わった
0982デフォルトの名無しさん
NGNGしょうがないな。
ttp://www.microsoft.com/japan/developer/library/VBCon98/vbconlifecycleofvisualbasicforms.htm
0983デフォルトの名無しさん
NGNGどっちかってと部下をリストラさせる練習してるやつの方が多いんじゃねぇ？
こんな上司の下で働けないって思わせる（ｗ
0984デフォルトの名無しさん
NGNG自分で考えた痕跡すら感じられないあふぉな質問する新人に
対する適当な解答ばかりですが。
0986デフォルトの名無しさん
NGNGまともな質問にまともに回答するのは自分も勉強になって
いいんだけどね。。。
0987デフォルトの名無しさん
NGNGまともな質問にはまともに回答してますが。
0988デフォルトの名無しさん
NGNG0989デフォルトの名無しさん
NGNG0990デフォルトの名無しさん
NGNG同じ質問に何回も同じ事を答えたくない。
MSDNは質問前必読事項だ。
>>909＝989
スルーされてる意味を考えれ。
それとプリンタの仕様を調べた方が幸せになれるぞ。
0991ミナツキ サヤ ◆SAYAC2HJWE
NGNG0992デフォルトの名無しさん
NGNG0993デフォルトの名無しさん
NGNGそれなら別に答えなきゃいいじゃん
実はおまえは答えたいんだろ
素直になれ
0994デフォルトの名無しさん
NGNGhttp://pc5.2ch.net/test/read.cgi/tech/1084544243/
0995デフォルトの名無しさん
NGNG\nでラベルやインプットボックス等の改行をさせれないので非常に困っています。
0996デフォルトの名無しさん
NGNG0997995
NGNG自己解決スマソ。
ついでに埋。
0998デフォルトの名無しさん
NGNG0999デフォルトの名無しさん
NGNG1000デフォルトの名無しさん
NGNG1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。