1001コメント310KB

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

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

0001HTML化チェック済み

NGNG

08561 ◆ExGQrDul2E

NGNG

>>853
もちろんUNZIP32.dllが相手のパソコンにすでにあるかどうかのチェックも行っているし、
Windowsのバージョンの違いによる
system
system32
のどちらを使うか、という問題にも対処したあるからだいじょうぶ。
UNZIP32.dllを共有ファイルとして使用するかどうかの設定もバッチシ。

08571 ◆ExGQrDul2E

NGNG

Windows9Xだとsystemフォルダーを使い、NTアーキテクチャだとsystem32にUNZIP32.dllをコピーする。

08581 ◆ExGQrDul2E

NGNG

UNZIP32.dllを解凍目的（インストール目的）に使うだけならレジストリ登録とかもいらないからレジストリについて心配する必要は無い。

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

NGNG

とりあえずNGワード入れといた
ExGQrDul2E

08601 ◆ExGQrDul2E

NGNG

>>859
死ね

0861852

NGNG

>>855
すいません。ちょっと言葉が足りなかったようです。
abc,"123,456,789" というCSVデータがあったとして、そのままカンマ区切りを
してしまうと、abc "123 456 789" というデータになってしまうのです。
"でくくられているところのカンマで区切らないやり方がどうもうまくいきません。
なんとかならないでしょうか?

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

NGNG

>>861
今どうやってるかによるけど、
Ｗクオーテーション内かどうかのフラグを立てるだけですむのでは？

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

NGNG

>>861
べたなやり方だけど、頭から１文字ずつ取っていって、
”があったらフラグON、次の”でOFFにして、ロジックで文字列くっつけていけば？

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

NGNG

それしかないな。うん

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

NGNG

>>861
ダブルクォートを含む文字列データはどうするんだ

と言ってみるﾃｽﾄ。

08661 ◆ExGQrDul2E

NGNG

>>861
Windowsでもファイル名で使ってはいけない文字があるように、
CSVでも禁止文字があるだろ。
それはどんな文字だ？

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

NGNG

>ExGQrDul2E
あのさ、知らない間にVBランタイムなんか入れるようなもん作らないで欲しいんだけど。
最低でもVB製って事だけは明記してくれよ。
DL回避になるから。

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

NGNG

>>866
ExGQrDul2Eですか？（ｗ

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

NGNG

>>861
まともに処理させたいなら Split() を使ってはいけない。
InStr() を駆使してダブルクォーテーションをきっちり調べろ。

>>865
Excel なんかでは、ダブルクォーテーションで囲われた領域の中でダブルクォーテーション
を 2 つ並べると 1 文字のダブルクォーテーションとして認識される。

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

NGNG

>>867
CSV の禁止文字？はつみみです。

0871ＧＩＦ

NGNG

アニメーションＧＩＦをリソースにしたいのですが、これは可能でしょうか？
ＢＭＰしかリソースにする方法がわかりません。
またリソースにできるのでしたらどうやって使うのでしょうか？

08721 ◆ExGQrDul2E

NGNG

>>867
おまえはVB使いじゃないな。
>>868
どうした？
>>870
そりゃそうだな。今回はオレがバカだった。

08731 ◆ExGQrDul2E

NGNG

>>871
WebBrowserコントロールだとGIFがアニメーションする

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

NGNG

>>872
おにぎりは 3 つ、具は梅干し、しゃけ、たらこにすること。

08751 ◆ExGQrDul2E

NGNG

>>874
バカなオレにもわかるように言ってくれ。

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

NGNG

>>872
VB使いだが問答無用でインストールされるのはいやだな。

08771 ◆ExGQrDul2E

NGNG

>>876
スパイウェアとかだったらいやだけど、
アプリの動作に必要で、それ以外にはまったく影響しないdllなら勝手にインストールされても気にならないけどな。
そういう人もいるんだなあと参考にする。

08781 ◆ExGQrDul2E

NGNG

2chSoft005
エロといえば森川ゆかり

ttp://www.interq.or.jp/guitar/lead/tripod-vip-eria/user-knight/a020.zip

Windowsスタートメニュー　→　プログラム　→　2chSoft　のところのショートカットを起動する。
ソフトの削除はエクスプローラではなくコントロールパネル→プログラムの追加と削除から行う。
画像は\Program Files\フォルダに入っている。
今回はjpgでなくpngファイルなので画質劣化無しの高画質だ。

↑UNZIP32.dllを実際に使ったアプリ

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

NGNG

ここはあんたの日記帳じゃない。

08801 ◆ExGQrDul2E

NGNG

>>879
個人のホームページの掲示板は荒らさないが、2chでは好き勝手発言させてもらっている。

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

NGNG

>>877
VB のランタイム等がシステムとかに「まったく影響しない」事は立証できるか？

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

NGNG

>>880
あんまり図に乗ってるとアク禁依頼が出るんじゃ？

08831 ◆ExGQrDul2E

NGNG

>>881
それはマイクロソフトが悪い、ということにする。

08841 ◆ExGQrDul2E

NGNG

>>882
実は2chをやめたく、自分では中毒でやめられないからアクセス禁止になるためにわざとあばれている。

08851 ◆ExGQrDul2E

NGNG

2chに寿命を、時間を奪われているが、自分からは絶てない。
だからどうかアク禁にしてオレを楽にしてくれ。

0886アシュル ◆adhRKFl5jU

NGNG

修行が足りないようだな。

08871 ◆ExGQrDul2E

NGNG

>>886
はじめてみるコテハンだな。
オレのソフトのことか？
オレはデスクトップの壁紙変更ソフトも作れるぞ。

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

NGNG

見えないけど異常にスレッドが伸びてるなぁ・・・

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

NGNG

漏れがランタイムを勝手に入れて欲しくないのは、
VBで作られたソフトなんてロクなもんじゃないから、という理由。

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

NGNG

>>884
そう自白すると誰もアク禁依頼出さなくなる罠

0891VB最強・だ・ぞ♪

NGNG

ウヒンドウズインストールするときに強制的にランタイム入れるようにすれば良かったのにね

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

NGNG

>889

こうなったら意地でもおまえのマシンにVBランタイムぶっこんでやる！

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

NGNG

透明度を指定して描画する方法を教えてください。

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

NGNG

藤本
トロ、ワンモア

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

NGNG

line命令とか使うときに
透明度を指定して描画する方法を教えてください。

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/

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

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

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