1001コメント310KB

(´д`)ｱﾊｧ… VB初心者質問スレ Part22

レス数が950を超えています。1000を超えると書き込みができなくなります。

0001HTML化チェック済み

NGNG

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

NGNG

>>895
Line単体はしらないが、別のビットマップに線を書いて、
AlphaBlend のAPIで重ねるとかはダメ?

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

NGNG

初歩的質問かもしれませんけど…
テキストを印刷するプログラムを作りたいんです｡
で、printerオブジェクトを使えば
書体や印刷部数の設定ができることはわかったんですが､
文字の色の設定の仕方がどうしてもわからないんです｡
面倒かもしれないですけど教えてください｡

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

NGNG

>897

オブジェクトのプロパティを見よ

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

NGNG

>>897
ヘルプだと、printer.ForeColor がすぐに出てこないな・・・うちだけだろうか

0900897

NGNG

>>898
> >897
>
> オブジェクトのプロパティを見よ

ん？何ていうプロパティですか？

0901897

NGNG

>>899
それだ！
私もヘルプに載ってないし､入力候補にも表示されないんです｡
でも試しておくべきでした｡どうも失礼しました｡

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

NGNG

VB.NETインストールにシステムドライブの空き容量が４Ｇと有りますが
現在空きは４００Ｍしか有りません。
切り直さなければならないでしょうか？

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

NGNG

>>901
オブジェクトブラウザ

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

NGNG

VBで0.1秒毎に正確に表示するストップウォッチを作るにはどうしたらよいでしょう。
timerプロジェクトを使い、0.1秒毎に表示するとすると、表示の処理に0.02秒ぐらい
かかるためか、誤差が出てしまいます。0.01秒毎だともっと遅くなるのでたぶん
そうでしょう。Load_From()でforを使いずっとループさせておいてtimerの処理は
変数変更のみにし、forの中のifで表示処理をするみたいなのをやりましたが、
落ちてしまいました。

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

NGNG

俺はＶＢ房だが
ちょっと、質問させてくれ
企業のシステムは生産性を考えＶＢで組んでいるのが大半だと思う。
同じプログラムを組むのにＶＢとＣ＋＋では、労力が違う
では、労力を使ってＣ＋＋で組むメリットって何？

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

NGNG

>>905
自己満足

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

NGNG

>>905
私しの会社の基幹システムはＶＢ５ですが
ちなみに、一部上場企業です。

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

NGNG

でもVC++も慣れたらVBとさほど労力に差はないけどね。
VBで作る業務システムくらいなら。

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

NGNG

業務システムは、ＶＢが一番だと聞きましたが、何か？

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

NGNG

>>909
何が一番なの？

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

NGNG

慣れるまでがねえ。

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

NGNG

顧客にとって言語の選択は関係のない事。
コストを考え見積を検討するだろう
開発側は、コストを考えＶＢを選択するだろう。
（業務システムの場合）

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

NGNG

システム開発で需要の多いのはＶＢでしょ？

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

NGNG

VCはGUIとDBアクセスが面倒だからね。

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

NGNG

VB.NETは使ったこと無いんですが、VB6と同じコストなんでしょうか

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

NGNG

>>904
小さいアイコン位の大きさではどうか？

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

NGNG

まだ、日本ではC++を使いこなせる人は少ないと聞いた。
たしかに、VBよ++のほうがいいだろう
でも、++が使いこなせないのなら,誰でも出来るVBのほうが安心。

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

NGNG

? VBよ++

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

NGNG

>>904
「正確に」0.1秒更新を保証する方法はない。
むしろ表示は適当な間隔で停止時の時間だけを正確に取得する方が利口だと思う。

>>905
APIをガリゴリに使ってウインドウズメッセージを自前で処理するようなコードを書くときは
素直にVC使わせろと思いました。
そこまで労力を使わせてまでVBにこだわるなよ＞上司

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

NGNG

Outlookで、VBAとBASPを使っているのですが、
「[email protected]」の
最初の８文字だけ（上の例だと「M0002687」）を取得するには
どうすればいいのでしょうか？

以下のようにやったのですが、

EMAILSendername = "[email protected]"
IDMag = objBasp.Match("/^(.{8}) /", EMAILSendername)
msgbox IDMag

「0」と表示されてしまいます

0921ひきプロ

NGNG

IDMag = Mid(str, 1, InStr(1, EMAILSendername , "@") - 1)

0922ひきプロ

NGNG

DMag = Mid(EMAILSendername , 1, InStr(1, EMAILSendername , "@") - 1)
間違った…

09231 ◇(略)

NGNG

>>890
ワシもそうおもうだわさ。

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

NGNG

VBしか使えないからVBを使うのか、楽だからVBを使うのか。
とりあえず、VBしか使えない奴のコードは見るとだいたい解るね。

0925904

NGNG

>>919
お答えありがとうございました。できました。
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
Dim start As Long, now As Long

Private Sub Form_Load()
  start=GetTickCount
End Sub

Private Sub Timer1_Timer() '間隔は100ミリ秒毎
  now=GetTickCount
  Label1.Caption=now-start
End Sub

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

NGNG

Windowsの終了時にForm_Unloadでユーザーからの入力待ち（Fileのセーブをするか？など）
の時にWindowsの終了を入力が終わるまで待たせるにはどのようにすればよいのでしょう？

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

NGNG

>>925
GetTickCountよりtimeGetTimeの方が正確という噂あり。

0928ひきプロ

NGNG

>>926
Form_Unloadの引数にCancelというのがあるので
これに1を入れるとアンロードがキャンセルされます。
しかしこの場合、QueryUnloadにこの処理を書くほうが良い気がします。

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

NGNG

>>928
レスありがとうございます。
Form_QueryUnloadでCancelを1にするとWindowsの終了自体もCancelされて
しまうので都合がよくないのです。
Excelとかみたくファイルの保存のダイアログを出してSAVEが終わったら
そのままWindowsも終了してくれるとありがたいのですが・・・

0930ひきプロ

NGNG

QueryUnloadで、
if UnloadMode = vbAppWindows then
　　'処理を書く
end if
みたいにすればウインドウズの終了時の処理が書けると思います。
Cancel=1なしで書いてみては？

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

NGNG

FormのUnloadやらQueryUnloadでCancel=1にしたときに動作って
OSによってちがくない？気のせいかな？

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

NGNG

ポインタがボタンの上に来ると、ステータスバーに
そのボタンの説明が表示されるようにするには
どのようにすればよいのでしょうか。
すごく簡単なことかもしれませんが教えてください。

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

NGNG

MouseMove捕らえればいいんじゃないの？

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

NGNG

すみません。
DataReportに関してですが、ツールボックスでShapeという囲み線
を印刷できると思いますが、その線を太くしたいと思ってます。
プロパティを見てもそのような設定が見当たらないのですが、
Data Reportでは無理なのでしょうか？レポート専用の
開発ソフトを買わないで済ませたいのですが。

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

NGNG

(*´д`*)ｱﾊｧ…

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

NGNG

>>932
み～くんパパにサンプルがある。

0937932

NGNG

>>933、936
ありがとうございます。
コードの書きかたがよくわかってないので不安ですが
MouseMoveでやってみます。

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

NGNG

数十個のボタンが密集して配置してあります。
マウスがボタンの上を通過すると、そのボタンの色が青になります。
マウスカーソルがボタンの上にある限り、そのボタンの色は青のままです。
カーソルを他のボタンの上に移動させると、今まで青かったボタンはデフォルトの灰色に戻り、
現在マウスカーソルが乗っているボタンが青くなります。

・・・・てな感じのものを作りたいんですが、どう書けばいいんでしょう？
ボタンのMouseMoveを使えば色を変えられるんですが、カーソルが離れた際の処理が思い浮かびません。
とりあえず、それぞれのボタン.MouseMoveに、自分以外の色クリアの処理を行う処理を書いてみたんですが、
他のボタンが何十個もあるので、やたら長くなります。
VBでここらへんをスマートに解決するにはどうしたらいいんでしょうか？

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

NGNG

直前に青かったボタンを覚えておけばええんでない？

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

NGNG

>>938
ボタンをね、コントロール配列にすれば良いのよ（ｳﾌｯ

0941次スレのテンプレ

NGNG

(*´д`*)ｱﾊｧ… VB初心者質問スレ Part23

v(*´д`*)b ｱﾊｧ…
ﾌﾞﾋﾞﾀﾝがどんな厨房疑問でもやさしく答えるﾌﾞﾋﾞ。
ﾌﾞﾋﾞﾀﾝは時に私であり、時には別の人ﾌﾞﾋﾞ。
関連スレは>>2ﾌﾞﾋﾞ。

　　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/test/read.cgi/tech/1044028945/
　　Part22 http://pc2.2ch.net/test/read.cgi/tech/1046354784/

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

心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでOK。
四．インストーラーなどの質問もOK。
五．下ネタもたまにならOK。
六. ﾌﾞﾋﾞﾀﾝ情報募集中。

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

NGNG

次スレのテンプレが出てきて質問するのも気が引けるのですが。

MDIフォームでボタンメニューとツリービューを使いたいと思ってます。
ＭＤＩフォーム上でCoolBarを縦に使う方法を知りたいのですが、可能でしょうか？
または、上部にCoolBar、左側にPictureBoxのようなコントロールを張り付けるとか。

エクスプローラのファイルビューのところがMDIの子フォームになっているようなイメージです。

可能、不可能だけでもいいです。
CoolBarでバンドの向きとかverticalのプロパティでは駄目って事は解りました。
MDIフォーム上でイベントを拾えればそれでＯＫなんでつが・・・。

グレープシティ（旧文化オリエント）では出てるんですけどね。
あれって（自分的に）使いたいコントロールが少ない割にはそれなりの値段するからなぁ。

0943932

NGNG

すみません。先程の、ツールバーのボタンの説明を
ステータスバーに表示するという件について質問です。
Toolbar1_MouseMoveプロシージャで、ポインタが
今どのボタンの上にあるかを

Select Case Button

Case （ボタンのキー）
StatusBar1.Panels(1).Text = "あいうえお"
：
：
End Select

というふうに書いてみました。
一つ目のボタンはうまく表示されたのですが、
残りでも一つ目のボタンと同じ文が表示されてしまいました。
(それぞれのボタンについて異なる文章を書いています）
どのようにしたら他のボタンでも正しく表示されるでしょうか？
↑ものすごく間違ったコードを
書いているかもしれませんがよろしくお願いします。

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

NGNG

>>943
MouseDown イベントのヘルプよく読んで
Button 引数の意味を理解しなさい

0945944

NGNG

×MouseDown
○MouseMove

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

NGNG

>>921-922
そういう時のために、Left()があるのでは？

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

NGNG

>>946
あれ？突っ込まない約束でみんな来てたんじゃないの？（ｗ

0948943

NGNG

>>944
一応ヘルプは見ていたつもりでしたが…すみません。
Buttonは押されたボタンなんですね。
では、x、yの座標で位置を知らなければならないんですか？
このボタンはx=0～いくつまで　とか設定して。

0949943

NGNG

↑ボタンの幅に合わせてScaleWidthを設定して
Case　x=1　などとすればよいのでしょうか？

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

NGNG

>>949
とにかくやってみれ。試行錯誤するのが一番勉強になるわけで。

0951名無しさんだよもん ◆ZAYX.QGihc

NGNG

とりあえず次すれ

(*´д`*)ｱﾊｧ… VB初心者質問スレ Part23

http://pc2.2ch.net/test/read.cgi/tech/1047743187/

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

NGNG

ぬるぽがこのスレに興味を持ったようです。

　 ∧＿∧
　（　´∀｀）＜　ぬるぽ

0953943

NGNG

とりあえずx座標をいちいち設定したら
横の動きには反応するようになりました。
しかしツールバーから縦方向に出たときに反応してくれない…

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

NGNG

Accessの質問です。

Win32APIのDeleteMenuを使うと、アプリケーションウィンドウのコントロールメニューを
無効化できますが、この状態でも、[Alt] + [F4]のキーストロークには応答し、終了して
しまいます。コントロールメニューの表示状態に関わらず、WM_CLOSEメッセージそのもの
を受け付けなくする方法はありませんか？
(Access97なので、AddressOf演算子は使用できず、サブクラス化は不可能です)

イメージとしては、VBアプリケーションの

Private Sub Form_QueryUnload (Cancel As Integer)
Cancel = -1
End Sub

のような動作を実現したいのです。

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

NGNG

ACCESS総合相談所その７
http://pc2.2ch.net/test/read.cgi/bsoft/1043996834/

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

NGNG

>>955
あっちでまともなコメントが付くとは思えない。

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

NGNG

まだ終わってないからあげとくＹＯ！

0958755

NGNG

ポップアップ表示の前にESCを送ることでとりあえず回避しました。

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

NGNG

ActiveXってWEBサーバがLINUXでもうごきますか？
（もちろんブラウザはIEです）

よろしければ教えてください。

0960bloom

NGNG

http://www.agemasukudasai.com/bloom/

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

NGNG

VB6.0です。
ListBoxのHeightは、
項目の高さの倍数分しか変更できないみたいなんですが、
これを自由なサイズに変更する方法はありませんか？

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

NGNG

>ActiveXってWEBサーバ
なんですかその「WEBサーバ」のActiveXって？
Apache?

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

NGNG

>>961 IntegralHeight

0964959

NGNG

すみません、説明が足りませんでした。
WEBサーバはApache、OSはLinux（Redhat)です。
つまりWebサーバがIISでなくても、ブラウザがIEであれば、
ActiveXは動くのかということを知りたいのです。

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

NGNG

>>964
WebサーバとActiveXの関連を教えてください。

0966959

NGNG

>>965
WebサーバからActiveX（コントロール、が抜けてました）を
DLし、ActiveXを介して画像のやりとりを行います。

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

NGNG

DLも画像のやりとりも通常のHTTPに則ってるのなら、サーバには関係ない話だと思うが。

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

NGNG

テキストボックスのスクロールバーのValueって取得できないよね？

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

NGNG

>>968
EM_GETTHUMB なんかじゃだめかい？
EM_* 系のメッセージをさがせば結構色々使えるぞ。

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

NGNG

あ、TXTBOXやMSFGRIDコントロールでスクロールバーとセルがぴったり
あうようにするにはどうすればいいのでしょうか？
ネットにころがっているコードはほとんど厳密にTWIPを定義している
ようです。スクロールバーのTWIPを知る方法はないもんでしょうか？

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

NGNG

>>970
SysInfo コントロールの
.ScrollBarSize じゃないのん？

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

NGNG

オブジェクトのプロパティ値を取得するのに
プロパティ名を変数で指定することは出来ますか？
Dim A As String
A = "Top"
とでもして
Text1.Top の値を取得したいのよ。

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

NGNG

>>972
うまいやり方は知らないけど
Label1.Caption = getpro(Text1, "Top")
などとして読み込める関数でも作っては？

Public Function getpro(ob As Object, pro As String)
Dim Ret
Select Case pro
Case "Top"
Ret = ob.Top
Case "Left"
Ret = ob.Left
Case Else
Ret = ""
End Select
getpro = Ret
End Function

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

NGNG

WSHをVBSで書いているのですが、
comdlg32.ocxを使わないで
「名前を付けて保存」ダイアログを出す方法が知りたいです。

お客さんにocx等は入れたくないといわれて困ってます。

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

NGNG

>>974
GetSaveFileName

0976974

NGNG

>>975
ありがとうございます。

それって、comdlg32.dllですよね？

APIビューアで拾った定義をそのまま貼ったんですが、
全然動かないんですよ。
vbsだとasとか使えなくていつになってもエラーが消えないんです。

もしよかったら使い方のサンプルとかないでしょうか。

0977974

NGNG

と思ったら、VBSではDeclare使えないじゃないですか。

どーしよう・・・。

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

NGNG

>977
無理。開発環境Orフォームありじゃなきゃ、あのダイアログは出せない。
ActiveX作ってOCXじゃありません。って言い張るのがベストとは言わんがベター。

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

NGNG

>>976-977
なんか悪いことしちゃったね。ごめん。
(VBは知ってるが、VBSはほとんど知らないもんで・・・)

0980974

NGNG

当たり前の質問かもしれませんが、
VBで作ったActiveXのDLLって、

VBランタイムがなきゃ動かないですよね？

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

NGNG

>>980
うん。余計酷くなるね…

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

NGNG

ある程度 C か C++ がわかるなら、BCC でも拾ってくれば？
コモンダイアログのサンプルも Web に落ちてるでしょ。

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

NGNG

>>973
情報Thanks!
やっぱり翻訳する関数を自作するしかないのかなぁ・・・・

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

NGNG

逆コンパイルってどうやるの？

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

NGNG

>>984
時間を逆回転させる

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

NGNG

>980
ttp://www.seraphyware.jp/dev/prod/seraphyscripttools/
ttp://csx.jp/~tsuchiya/
コモンダイアログを出現させることの出来る、VB製でないCOMラッパー。

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

NGNG

Picture1に画像を読み込ませたいんですが、コードを以下のようにしたんです。

Pricate Sub Form_Lond()
Picture1.Picture = LoadPicture("画像１.gif")
End Sub

でもエラーが出てしまうんです。

LoadPicture("画像１.gif")のところを
LoadPicture("c:\windows\ﾃﾞｽｸﾄｯﾌﾟ\画像１.gif")
みたいに入れたら上手くいくんですが、はじめに書いたような方法で
表示する方法は無いのでしょうか？
おしえてください

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

NGNG

>>987
ChDir

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

NGNG

あるHPのハイパーリンク（そのページにあるもの全て）だけ
を何か変数に入れて表示したいのですが、
どのようなコードを書けばいいのでしょうか？

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

NGNG

httpを使ってhtmlを取得。
htmlを解析してハイパーリンク先とその文字列を取得。
それを変数に代入。

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

NGNG

adodbを使ってデータベース一覧させたいのですが
どうすればいいですか
テーブル一覧とフィールド一覧はできたけど
データベース一覧だけできないので誰か教えてください

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

NGNG

埋め埋め

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

NGNG

埋め埋め埋め

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

NGNG

生き埋め　

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

NGNG

(*´д`*)ｱﾊｧ… VB初心者質問スレ Part23
http://pc2.2ch.net/test/read.cgi/tech/1047743187/l50

レス数が950を超えています。1000を超えると書き込みができなくなります。

(*´д`*)ｱﾊｧ… VB初心者質問スレ Part22

(´д`)ｱﾊｧ… VB初心者質問スレ Part22