トップページ⇒tech
985コメント293KB

v(・∀-)b VBプログラマ質問スレ(6.0以前) Part25

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
VBの質問スレです。

前スレはこちら
  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/test/read.cgi/tech/1050151126/

VB.net関連スレ
【老若】VB.net質問スレ【男女】 (Part2)
http://pc2.2ch.net/test/read.cgi/tech/1043629429/

Win32 API関連スレ
Win32API 質問箱 Build10 (979)
http://pc2.2ch.net/test/read.cgi/tech/1047819779/

心得
壱.質問する前に過去ログにも目を通してみる。
弐.質問する前に MSDN などで調べてみる。
参.VBScript もこのスレでOK。
四.インストーラーなどの質問もOK。
五.荒らしは相手しない。
六. VB情報募集中。
七. VB.NETはスレ違い
0159デフォルトの名無しさんNGNG
>>158
無意味に大変
0160デフォルトの名無しさんNGNG
>154

FACKだね
0161デフォルトの名無しさんNGNG
>>158
v(・∀-)b ウラヤマシイダロ
0162デフォルトの名無しさんNGNG
>>160

FUCKだろ
0163デフォルトの名無しさんNGNG
サブクラス化が悪いとは言わん
つーか、やらないとできないこともあるしね
でも覚えたてでうれしくて、しなくても済むことまで
面白がって(かっこつけて?)使ってるヤシを見ると、
なんだかゲンナリする・・・・
0164デフォルトの名無しさんNGNG
>>163
デバッグで死ぬ思いさせたれ。
0165デフォルトの名無しさんNGNG

>163
サブクラス化しないで
>152
をやる方法は?
0166デフォルトの名無しさんNGNG
ない
0167デフォルトの名無しさんNGNG
ぴったりのページ
http://fumiyuki-web.hp.infoseek.co.jp/tech/tech005/
0168デフォルトの名無しさんNGNG
なんだジエンかよ。
0169163NGNG
>>165
その場合はサブクラス化しかないよ
あるいは、サブクラス化を行う市販OCX、ユーザーコントロールの貼り付け。
俺はこういう用途用に、サイズ制限用ユーザーコントロールを自作して、
それ貼り付けるだけでリサイズ制限できるようにしてある。
0170デフォルトの名無しさんNGNG
v(・∀-)b
0171デフォルトの名無しさんNGNG
すみません、多分すっごい基礎・・というかガイシュツな質問かもしれませんが教えてください。

小数値でで、23.3(23時間30分を表す値)を
23.5という小数値に変換したいのです。
計算式を考えているのですが、どうもいい方法が思いつかなくて。。。

何かスマートでいい方法があればご教授下さい。
0172デフォルトの名無しさんNGNG
20倍する。INT。あたりがヒントでできないか。
0173デフォルトの名無しさんNGNG
1.小数部を取り出す。
2.X/6で完了。
0174デフォルトの名無しさんNGNG
うまい
0175172NGNG
あ、勘違いした。スマソ。
0176デフォルトの名無しさんNGNG
小数を整数に変換後、また小数に変換するのは大変危険です。


Dim a As Double
Dim b As Long
Dim c As Double

For a = 0.01 To 1 Step 0.01
b = a * 100
c = b / 100
If Str(a) <> Str(c) Then
MsgBox "なんじゃこりゃー"
End If
Next
0177176NGNG
あれ?
なんか違う
0178デフォルトの名無しさんNGNG
>>176
>大変危険
それを回避する方法はさんざんガイシュツなわけだが。
0179デフォルトの名無しさんNGNG
B = Fix(A) + (A - Fix(A)) * (5 / 3)
A は変換前、 B は変換後
間違ってたらスマソ。
0180デフォルトの名無しさんNGNG
>>152
http://homepage3.nifty.com/salv/hp-old/03pc/vb/03vbpg005.htm
これを少し弄るだけで出来る
0181122NGNG
>>126
あ、そうか。そんな単純な事でよかったんですね。
有難うございました&スレ汚しスマソ。
0182sageNGNG
winsockコントロール使って確認君にアクセスしようとしたらできませんでした。
普通のページならちゃんと読み込めるのに。
cgiとかそういうのにはうまくアクセスできないんでしょうか?
0183デフォルトの名無しさんNGNG
>>182
んなわきゃない
0184デフォルトの名無しさんNGNG
みなさんすまんかった。
自分なりに調べてグローバルIPに変換して、それで接続してみた。けどだめみたい。
ファイヤーウォールに蹴られてるんかな?それとも片方がLANの中のやつでどれもグローバルIPがいっしょだからだめなんかな?
みんなにはくだらんかもしれんけどおねがい!教えて。
0185デフォルトの名無しさんNGNG
>>184
RFCくらいは知っててやってる?
原因追求のやり方とかわかっている?
TELNETで手動で取ってくるくらいはできる?
0186デフォルトの名無しさんNGNG
>>185
レス番ちがった。185は182宛てね。
0187デフォルトの名無しさんNGNG
>>184
プログラム組む前にネットワークの勉強をしろ。
本屋行け。
0188デフォルトの名無しさんNGNG
>>184
まずは、テクニカルエンジニア(ネットワーク)の資格でも取れ。
話はそれからだ。
0189デフォルトの名無しさんNGNG
>>187-188
なにを偉そうに・・・
0190デフォルトの名無しさんNGNG
>>189
わかってるならこたえてやれよ。
0191デフォルトの名無しさんNGNG
>>189
しょうがないだろ。VBとは関係ない話なんだから。
0192デフォルトの名無しさんNGNG
>>184
とりあえずLAN内ならうまくいくんだね?
だったらマジでVBの話じゃないからネットワークを勉強してくれとしかいえないだろう。
LAN内で動かないならまずそこで動くようにしよう。
0193デフォルトの名無しさんNGNG
>184
ttp://www5e.biglobe.ne.jp/~aji/3min/
を隅から隅まで読んだ後に再度質問してくれ。
0194デフォルトの名無しさんNGNG
msdn、過去ログ、一応目を通し、ググったりもしたんですが、
既出だったら、すいません。

コンパイル環境:VB6.0、DriectX7.0、OS:Windows98
実行テスト環境:DirectX8.0a、OS:WindowsXP

DirectDraw の SetForeColor と、DrawText で、文字表示するプログラムなのですが、
Windows XPだと、すべて 黒 で表示されてしまいます。
原因はなんでしょうか?

下らない質問かもしれませんが、どなたか、教えて下さい。
0195デフォルトの名無しさんNGNG
VBで画像ビューワーを作ってるんだが、
テキストボックスにファイル名を入れて開くというコマンドボタンを押したら表示するという簡単な物なんだが、
開くボタンを押す以外にも、
ファイル名を入力→「エンターキー」「タブキー」を押しても画像を表示させるにはどうしたらいい?

0196デフォルトの名無しさんNGNG
>>195
サブクラス化
0197195NGNG
>>196
Subプロシージャを作って、keyPressで制御すればいい?
0198デフォルトの名無しさんNGNG
>>196
その程度のことでサブクラス化する必要は全くない
0199デフォルトの名無しさんNGNG
FormのプロパティーのTagって、何に使うもんなん?msdn見ても今市つかみ所
がない
0200デフォルトの名無しさんNGNG
>>199
たとえば、テキストボックスで文字列が変更されたときに、
Me.Tag = "変更されました"
なんて入れておくわけだ。

そんで、QueryUnload で Tag の値を確認して、「変更されています。保存しますか?」
てな感じの確認メッセージを出す、と。

漏れがよく使うのはこれかな。
0201199NGNG
>>200
それって、内部変数を持たせちゃいかんの?プロパティーを使う必要性があまり
感じられないんだけど、利点はあるんけ?
0202デフォルトの名無しさんNGNG
>>201
内部変数はそのフォームだけの情報。
Tagはすべてのフォームに共通して存在する情報。
って使い分けるとか。
0203デフォルトの名無しさんNGNG
>>202
えっ?
0204デフォルトの名無しさんNGNG
意見がないなら口をださない。
0205203NGNG
>>204
いや、「Tagてすべてのフォームで共通するの?」て聞きたかったんだけど。
IDEで初期状態で設定した値は共通するだろうけど。
0206デフォルトの名無しさんNGNG
>>205
聞きたいことは正確に聞け。

同じ値って意味じゃないぜ?
フォームのCaptionはすべてのフォームがもっている情報だろ?
でも内部変数は作ったフォームだけが持っている情報だろ?
0207203NGNG
>>206
なんじゃ、そんな意味で言ってたのか。スマン
Tagプロパティの値を複数のフォームで共通して使いまわせる
って意味で言ってんのかと思った。
どのフォームでも必ずTagプロパティがあるって言いたかったわけね。
0208デフォルトの名無しさんNGNG
>>200
もちろん、内部変数でもいいんだけど、外から見たいときってあるよね。
大昔のVBって、プロパティの自作ができなかったんじゃなかったっけ。

どちらにせよ、(VB.NETでは一回削除されたし)古い仕組みにはちげーねー。
0209デフォルトの名無しさんNGNG
大昔っていつのVBだ? VB5からしかろくに知らんからそれよりも前か。
0210199NGNG
>大昔のVBって、プロパティの自作ができなかったんじゃなかったっけ。
激しく納得した。そういうことね。
0211182NGNG
telnetでアクセスしたけどダメだったんですよ。
os win2k
open www.ugtop.com 80
GET /spill.shtml HTTP1.0
ってやったら404not foundで。
ブラウザならwww.ugtop.com/spill.shtmlでアクセスできるんですが・・・
どうなってるんでしょうか
0212182NGNG
↑
訂正
GET /spill.shtml HTTP/1.0 ね。
ちなみにGET / HTTP/1.0 だと英語のページになるし・・・
ん〜
0213デフォルトの名無しさんNGNG
-- 終了 --
0214デフォルトの名無しさんNGNG
>>211
バーチャルホストを使っていると思われ。
HTTP/1.1でHostヘッダを使用したら取得できたよ。
0215デフォルトの名無しさんNGNG
0216211NGNG
おー、サンクス>>214
できました。
Hostヘッダが必要だったんですね。
ヘッダなしでやってたよ
0217デフォルトの名無しさんNGNG
ここのスレタイ、目潰しされて笑ってる…不気味な奴。
0218デフォルトの名無しさんNGNG
ウインクだろ。
つーか顔AAが気に入らないからって重複スレあげる奴ウゼー
0219デフォルトの名無しさんNGNG
0220インストーラー作りたいさんNGNG
VBで作ったアプリのインストーラーを作りたいのです。
*.vbpを指定して作成することが出来たような気がしたのですが、
どうやってやればよいのでしょうか?
0221デフォルトの名無しさんNGNG
VBで作ったアプリをインストールするなんて迷惑なだけだからやめとけ。
0222 NGNG
以下のスペックのパソコンを使用してるのですが、このパソコンで使用できる
ビジュアルベーシックのバージョンていくつまででしょうか?

CPU  ペン2の350Mhz
メモリー 120M
OS    WIN98

MSのHPいったのですが、NETしか載ってなくて確認できませんでした・・。
0223デフォルトの名無しさんNGNG
>>222
.NETつかえよバーカ
0224195NGNG
誰か>>195のヒント下さい・・・。
明日提出なんで・・・。
0225あNGNG
>>224
ファイル名を入力するテキストボックスのキーダウンイベントで
押されたキーがtabかenterなのかを判断して
もしそうなら開くボタンと同じ処理。
0226デフォルトの名無しさんNGNG
tabが拾えるなんて聞いたこと無いぞ
0227デフォルトの名無しさんNGNG
>>220
ディストリビューションウィザードか
Visual Studio Installerを使う
0228あNGNG
>>226
キーダウンなら拾えるが?


>>224
'開くボタンの処理
Private Sub OPEN_BTN_Click()

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case vbKeyTab, vbKeyReturn
Call OPEN_BTN_Click

Case Else
End Select

End Sub
0229224NGNG
>>225
キーダウンイベントって、キープレスの事ですよね?
0230デフォルトの名無しさんNGNG
>>226
フォーム上のすべてのコントロールのTabStopをFalseにすれば拾える。
という裏技みたいな方法もあるが、通常はフォーカスが移ったときと
考えるべきかな? 元の仕様が分からんのだが。
0231あNGNG
>229
キー「ダウン」!!!!!!!
0232224NGNG
>>228
>>231
ありがとうございます〜。
キーダウンって参考書に載ってないんで・・・。
VB初心者なんでスミマセン・・・。
0233224NGNG
>>228
これだと、エンターを押した場合は画像開けるのですが、
タブの場合だと、開くボタンにカーソルが移るだけになってしまうんですが、どうすれば
タブキーでも画像を開けるようになるんですか?
0234デフォルトの名無しさんNGNG
>>233
「>>230」!!!!!!!!
0235あNGNG
>233
Case vbKeyTab, vbKeyReturn
なのにエンターキーだと
Call OPEN_BTN_Click
が呼ばれてタブキーだと呼ばれない?
そんなはずはない。
もう一度よく確認。

フォーカスが移動するのは別問題。
テキストボックスのExitイベントで抑止できる。
0236あNGNG
スマソ、VBにexitはないみたいだ
0237デフォルトの名無しさんNGNG
VB4.0という古いやつがあるのですが。
これを使って株の自動注文システムみたの
くめないでしょうか?

具体的にはIEの注文画面のある特定の数字を拾い
この数字が既定の値、または変位がいくつになった時に
自動で株注文をボタンをクリックし自動で買う数量
や損切りの額などを入力し注文をだすというものです。

じつは今結構勝っていまして、この手法を是非自動化したい
と思いまして聞いたのです。
もねがいします。
0238224NGNG
>>235
さっきのやつをそのままコピペして、
OPEN_BTN_ClickのとこだけCommand1_Clickに変えただけなんですが無理でした。
0239224NGNG
>>236
では、どうすればいいんですか?
0240デフォルトの名無しさんNGNG
>>237
がんがってプログラムを作ってウプしてください
それでこのスレのみんながお金持ちになれば
あなたは英雄です
0241あNGNG
>>239
漏れが作ってみて大丈夫だったのでソースうぷした。
試してみてくれ。
http://www.puchikomi.net/php-bin/uploader/datafile/puchikomi441.zip
0242237NGNG
>>240
レスありがとう。
ではVB4.0で自動注文は可能とみてよろしいですか?
プログラムさえ出来れば言語は簡単なほうがいいと思ったのと
今手元にある言語はそれしか無かったもので
質問しました。

しかし仮に出来るとしても、説明書ないから難儀しそう・・


0243224NGNG
>>241
ありがとうございます〜。
それを作りたかったんです〜。
ただ、スクロールバーを付けると、やはりタブでは開けなくなってしまいます。
かといって、TabStopをFalseにするわけにもいかないので・・・。
(教授のexeはきちんとタブで開く&移動する)
もう少し、頑張ってみます。
0244あNGNG
>243
すまん、わからん。
サブクラス化しかないと思う、、が、
>198いわく、他に方法がらしい。
気になるので方法希望!
0245 NGNG
>>237

おなじこと考えている人がいてびっくりしました。
しかも私もちょうどVB4を持っています。
もし良かったら一緒に開発しません?
連絡下さい[email protected]

↓これ私w
>>http://pc2.2ch.net/test/read.cgi/tech/1051882835/606
0246デフォルトの名無しさんNGNG
そんなこともできないVBってうんこすぎ
0247デフォルトの名無しさんNGNG
>>237
>>245

VB4 には、インターネット関連の機能は含まれていなかったはず。
となると、Winsock やら Inet やらの API を使うか、その辺のコンポーネントを
探してこなくちゃならない。

あと、当然 https になるんだろうけど、その辺の実装が↑でできるのか
わからん。
0248デフォルトの名無しさんNGNG
>>237
プログラム売買?
禁止されてなかったっけ?
0249248NGNG
あった、あった。一応大丈夫だけど気をつけたほうがいいと思う

プログラム売買
様々な投資基準を基にした一定の条件で、
売り買いの判断をするようにプログラムを組んだコンピューターで株式を運用することをいい、
東証は「一度に行う25銘柄以上の売買」に報告義務を課している。
この売買を行う際に、コンピューターから一度に多数の銘柄が発注されることが多いので、
単純なコンピューターによる売買と同一視されることがあるが必ずしもそうではない。
また、同じ意味で「システム売買」という言葉を使う向きもあるが適当ではない。
0250224NGNG
>>244
あまりにもわからんから、教授にメールしたところ
「TextBox の LostFocus イベントハンドラを作成します。その中味は『開く』
ボタンがクリックされた」時の動作をする(呼び出す)だけ。」
と返信が来たんだが、さらにわからんようになっちまった・・・。
0251 NGNG
>>247
げ、そうなんですか・・・。
ではVBのバージョンいくつからなら、インターネット対応してるのでしょうか?
>>237のようなことが出来るのはバージョンいくつからでしょうか?

>>248
いや、禁止されてなかった・・・はず・・・なような・・・・。
0252デフォルトの名無しさんNGNG
ネタか?なぜにVB4.0?素直に.NET逝かんかい。ゴルァ!
0253デフォルトの名無しさんNGNG
>>250
あー、なるほど。
tabキーを押すとフォーカスが移り、LostFocusイベントが発生する。
そのイベントプロシージャを作って
そのプロシージャ内にファイルのロードの処理しろって事。
フォーカスとか分からんかったら自分で調べれ。すぐ分かるだろうから。
0254デフォルトの名無しさんNGNG
>>250
フォームのほうでタブを横取りして適当なメッセージをTextBoxに投げれば?
0255デフォルトの名無しさんNGNG
つーかLostFocusだとマウスクリックでフォーカスが移動した時どうすんだろ。
フラグ立てるのかもしれないけど汚いなあ。
0256デフォルトの名無しさんNGNG
>>255
まぁ宿題だしな。
作成じゃなくてプログラムを考えるのが主目的な訳で。
0257デフォルトの名無しさんNGNG
そうやってVB厨が大量生産されるわけだな。
0258デフォルトの名無しさんNGNG
んなわけない。
■ このスレッドは過去ログ倉庫に格納されています