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

[表示 : 全て最新50 1-99 101- 201- 2chのread.cgiへ]
Update time : 11/28 15:34 / Filesize : 67 KB / Number-of Response : 246
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

1 名前：デフォルトの名無しさん mailto:sage [2007/08/21(火) 12:40:16 ]: ここは Visual Basic ～6.0 の質問スレです。
質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、
「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。

VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。

○ 質問者の心得
　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。
　二．VBScript、インストーラーなどはこのスレでＯＫ。
　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。
　四．荒らしは相手しない。

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

MSDN Online Japan ホーム
　www.microsoft.com/japan/msdn/default.asp
Visual Studio 6.0 Service Pack 6
　msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx
Google
　www.google.co.jp/

※「まず自分で調べる」クセを身につけよう。
45 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 12:11:19 ]: IDEでデバッグ実行しているとき以外にもなんらかの方法で
Debug.Printの出力を表示させることはできないでしょうか？
46 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 16:04:45 ]: >>45
debug.printはやったこと無いのでわからんが
OutputDebugStringなら出力できるよ
VC6持ってればの話だけど
47 名前：デフォルトの名無しさん mailto:sage [2007/08/27(月) 15:17:27 ]: 実行時にならどこかにログを吐かせるんだが。そうじゃないのかな？
48 名前：デフォルトの名無しさん mailto:sage [2007/08/27(月) 18:29:55 ]: OutputDebugStringはできたので、Debug.Printも同様な方法があるんじゃないかと
思って聞いてみたのですが。
Debug.Printを入れた時と消したときで、コンパイルしてできたexeファイルに差異がありますし。
49 名前：デフォルトの名無しさん [2007/08/27(月) 22:54:45 ]: ちょっとお尋ねしたいのですが、
VB6で特定のフォームを表示しているフォームのすぐ背面に
持ってくることは可能でしょうか？
ウインドウズ任せでなく、任意の表示順にしたいのですが、
なかなかいい方法が見つからなくて困っています。
よろしくお願い致します。
50 名前：デフォルトの名無しさん [2007/08/27(月) 23:01:14 ]: VBでサムネイルを作る最も良い方法を教えてください。
よろしくお願いします、
51 名前：デフォルトの名無しさん mailto:sage [2007/08/27(月) 23:29:24 ]: >>49
つ｢Moveメソッド｣｢Zorder｣
52 名前：デフォルトの名無しさん mailto:sage [2007/08/27(月) 23:30:39 ]: >>50
つ｢StretchBlt｣
53 名前：デフォルトの名無しさん mailto:sage [2007/08/27(月) 23:31:52 ]: >>49
win32APIのSetWindowsPosを使う

>>50
まず、そのサムネイルはどのような形でＶＢから扱えるのかを教えて
54 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 15:39:25 ]: >>前スレ998
終わったスレは邪魔にしかならない。
とっととDAT落ちするように埋めることの何が悪い。

今後もアクセスされるべき重要な情報があれば、
とっくにどっかの誰かが引用なりなんなりしてるわ。
55 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 15:59:33 ]: 980越えていれば24時間ほど書き込み無ければ自動的に落ちるが中途半端に埋める馬鹿で延命
遅いスレで950で次を立てると両方のスレでグダグダ
次スレを立てるタイミングを考えろ糞野郎って事だ
56 名前：デフォルトの名無しさん mailto:sage [2007/08/29(水) 16:05:06 ]: まあまあ
VBを愛する者同士仲良くしようZE☆
57 名前：デフォルトの名無しさん [2007/08/30(木) 21:14:38 ]: すみません、ちょっとお伺いしたいのですが、例えばフォームにテキストボックスを２つ（Text1、Text2)、
マスクエディットコントロールを２つ（MaskEdBox1、MaskEdBox2)を貼り付けただけのものを起動させ、
別途作ったプログラムからAPIを使ってこのフォームのコントロールに値を入力したいと考えています。
その場合まずFindWindowでフォームのウインドウハンドルを取得して、その子ウインドウ（コントロール）
のハンドルをGetWindowで取得するところまではできたのですが、取得したハンドルが４つのコントロール
のどれにあたるのかの判別方法がよくわからないのです。
GetWindowTextを使うとテキストボックスであればデザイン時に設定しておいたTextプロパティの値が取得
できるようなのですが、マスクエディットコントロールにはTextプロパティが無いようなので何も取得出来ず、
判別が出来ませんでした。
今はGetWindowPlacementでウィンドウの描画位置を取得して何とか判別できるようになったのですが、これ
だとフォームのデザインを変更するたびに別途作ったほうのプログラムも修正しなければなりません。
もし何かもっとスマートなやり方がお解かりになる方がおりましたらどうかご教授願えないでしょうか？
どうぞよろしくお願い致します。
58 名前：デフォルトの名無しさん mailto:sage [2007/08/30(木) 23:32:21 ]: >>57
長いからななめ読みし貸してない
とりあえずMSDNはみた？
59 名前：デフォルトの名無しさん mailto:sage [2007/08/30(木) 23:44:58 ]: >>58
はぁ？何が言いたいんですか？
60 名前：デフォルトの名無しさん mailto:sage [2007/08/31(金) 00:43:34 ]: >>57
＞もし何かもっとスマートなやり方がお解かりになる方がおりましたらどうかご教授願えないでしょうか？

君は一つ一つの文を短くしたほうが良いよ。
61 名前：デフォルトの名無しさん mailto:sage [2007/08/31(金) 10:20:55 ]: >>57
一つ聞きたいけど、MaskEdBoxに値を入力しているのはどうやってやってるの？
GetWindowTextが出来ないんじゃ、SetWindowTextも出来ないのでは？
62 名前：デフォルトの名無しさん mailto:sage [2007/08/31(金) 11:04:00 ]: >>57
VB側プログラムが普通の作りなら
GetWindowLong(hwnd, GWL_ID)
で特定できる可能性はある

VB側プログラムを自由に変更できるならSetPropでプロパティを付けておけばよい
63 名前：デフォルトの名無しさん mailto:sage [2007/08/31(金) 11:29:06 ]: 特定するだけなら、62の方法でいいな
もしくはGetWindowLongで、UserDataを与えておくとか
64 名前：デフォルトの名無しさん mailto:sage [2007/08/31(金) 11:29:52 ]: 間違えた、SetWindowLong
65 名前：57 mailto:sage [2007/08/31(金) 19:42:01 ]: >>61
SetWindowTextは別アプリに対しては使えないそうです。別アプリの場合はSendMessageのWM_SetTextで
やるみたいです。
でも確かにマスクエディットにはTextプロパティがないので、仕方がないのでSendMessageのWM_KeyDown
で１文字ずつ送ろうと思ってます。まだ試していませんが。。。

>>62
おっしゃられているウインドウのIDというのが難しくてよくわかりません。
ここのサイト(ttp://www.winapi-database.com/Window/Class/GetWindowLong.html)でGetWindowLongのサン
プル（マウスカーソルの位置にあるウインドウの情報を得るもの）をダウンロードして、コントロールを色々貼り付
けてテストしましたが、GWL_IDはテキストボックスだとText1とText2でそれぞれ違う値になるのですが、コンボボ
ックスだと全部同じ値になってしまい、これだと判別出来ないのでは？と思いました。というかそもそもウインドウ
のIDというものがどういう使われ方をするものなのかがわからないのでそれ以前の問題なのですが。。。

>>63
同じ理由でUserDataというのもよくわかりませんｗ
できればフォーム側のプログラムに手は加えたくないです。

お答え頂いたみなさんどうもありがとうございます。
ご提示頂いた方法を調べる過程で色々と勉強になりました。
一応GetWindowPlacementでやりたいことは実現出来ているので、もっと良い方法は気長に探そうと思います。
66 名前：デフォルトの名無しさん mailto:sage [2007/09/01(土) 17:43:48 ]: >>65
だから、とりあえずMSDNオンライン見れと：
msdn2.microsoft.com/en-us/library/ms633591.aspx
67 名前：デフォルトの名無しさん [2007/09/01(土) 18:35:45 ]: [XP,VB6]
初心者質問で申し訳ありませんが、調べてもわからなかったので、
教えて頂けますか？

[質問]
FORM_LOADの時にsetfocusすると
「プロシージャ呼び出し、または引数が不正」となり処理中止します。
ある条件の場合はフォーカスを変えたいのですが、
この場合、tabindexなどを全て変更したりする必要があるのでしょうか？
また別の方法があるでしょうか？
これに付随して、IMEプロパティもオフにしたいのですが、
リストビューに存在しないので設定方法がわかりませんでした。

宜しくお願い致します。
68 名前：デフォルトの名無しさん mailto:sage [2007/09/01(土) 19:06:48 ]: >>67
Load時はまだオブジェクトが出来ていな状態だから、
TabIndexを一番低い値にするとか、
ロードした後にsetfocusするとかしかない
69 名前：デフォルトの名無しさん mailto:sage [2007/09/02(日) 00:24:38 ]: >>67
もしくはForm_Activeで出来るかな。試してないのでよろしく
70 名前：デフォルトの名無しさん mailto:sage [2007/09/02(日) 00:41:07 ]: form.show
form.setfocus
71 名前：67 [2007/09/02(日) 04:31:38 ]: >>68 >>69 >>70
みなさんありがとうございます。
70さんの方法で、
Form1.Show
ListView1.SetFocus
とすれば、ロード時のセットフォーカス実現できました！
showすれば良かったのですね＾＾
ありがとうございました！
72 名前：デフォルトの名無しさん [2007/09/02(日) 16:27:07 ]: フォルダにあるテキストをリストボックスに表示しているのですが<BR>
リストボックスでテキストをダブルクリックして表示させることはできますか？<br>
また、サンプルプログラムとかありますか？
73 名前：デフォルトの名無しさん mailto:sage [2007/09/02(日) 17:06:26 ]: >>72
> フォルダにあるテキストをリストボックスに表示しているのですが<BR>
> リストボックスでテキストをダブルクリックして表示させることはできますか？<br>
> また、サンプルプログラムとかありますか？

フォルダにアルテキストを（リストボックスに）表示させているのに、
なんで、ダブルクリックして表示させにゃならんの？不思議
74 名前：デフォルトの名無しさん mailto:sage [2007/09/02(日) 22:51:07 ]: >>72
意味不明だからもうちょっと分かり易く、やりたいことを具体的に日本語でOK。
75 名前：デフォルトの名無しさん [2007/09/02(日) 23:53:12 ]: イントラネットに接続されている機器のIPアドレスをMacアドレスを
指定して習得したいのですが可能ですか？
サンプルなどありましたら、提供していただけると助かります。
76 名前：デフォルトの名無しさん mailto:sage [2007/09/03(月) 00:25:08 ]: >>75
参考：
rarpに対応して撥ねない機器なら、rarpを使ってできるかも？
77 名前：デフォルトの名無しさん mailto:sage [2007/09/03(月) 01:17:14 ]: >>72
リストボックス内にテキスト形式のファイル名でもリスト表示しているのか？
でテキストボックスに選択したテキストファイルの内容を表示？
つ｢DblClickメソッド｣
優しすぎるか？
78 名前：デフォルトの名無しさん mailto:sage [2007/09/03(月) 14:36:25 ]: ファイルの削除にKILLコマンドを使うのはお薦めできないらしいのですが
どのような理由か教えてください。
79 名前：デフォルトの名無しさん mailto:sage [2007/09/03(月) 20:59:02 ]: >>78
よく分からないけど、指定されたファイルがなかったら or 削除出来なかったらエラーが出るくらいしか思いつかん
on error ～で引っかけて対処しておけばエラーで止まることもないから俺は使ってるけど
80 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 01:10:23 ]: そういえば、VBでKillコマンドって使ったこと無いな
なんかkillっていうと、プロセスの強制終了ってイメージがある
81 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 02:51:33 ]: >>78
今の今まで聴いたことが無い
ソース見せてくれ
82 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 09:01:32 ]: そういえばなにげにFSOつかうよな・・・・
確かFSOは条件少し指定できたっけ？
忘れたが
83 名前：78 mailto:sage [2007/09/04(火) 09:17:33 ]: >>79-81
レスありがとうございます。

>>79
ファイルが無いとか、ロックされているケースは私もon error で対処しています。
これだけの問題ならKILLを使いたいと思います。

>>81
「kill vb 　ファイル　削除　(お勧めしません)」　でググってみて下さい。
ちなみにそのサイトでは、
System.IO.File クラスの Delete メソッドを使用する事がお薦めのようです。

この方法は、Microsoft Scripting Runtimeにチェックを入れたり、
インスタンスの生成や、使用後の参照の開放等、手続きが面倒なので
KILLを使いたいのですが深刻なバグがあるのなら、
Deleteを使用した方が良いと思い、質問させて頂きました。
84 名前：83(78) mailto:sage [2007/09/04(火) 09:21:32 ]: すいません間違えました。
>>82さんの言うＦＳＯでした。

正　FileSystemObject (FSO) の DeleteFile メソッドを使用する事がお薦めのようです。
誤　System.IO.File クラスの Delete メソッドを使用する事がお薦めのようです。
85 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 10:34:51 ]: Killで問題になるとすればユニコードのみの文字を使ったファイル名かな
86 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 11:08:18 ]: FSOはWindowsScriptHostについてくるコンポーネントだっけ？
VB6標準のじゃないってことを理解して使ってればOKだけど
客先に入れたら動かんってことも結構ある。
87 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 12:19:40 ]: >>86
インストーラー作れば問題ないな
というか、VBで作ったソフトの場合インストーラー必須じゃない？
88 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 12:21:13 ]: ライセンス上問題だと思いますが。。
89 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 13:00:48 ]: FSOは再配布出来ないのか
じゃあ、IEｘｘ必須とやるしかないな
90 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 14:24:35 ]: あの、日本語を指摘するかたはそれでもプログラマーですか
コードの「読み」書きが最も大切だと習わなかったのですかね
91 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 14:44:54 ]: 仕様と違ってたらそのプログラムは使えん。
日本語が不自由な奴が仕様を正しく理解できるとは思えん。

>>90 みたいなプログラマーはいらん。
92 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 16:23:04 ]: フォルダ単位を実行する時はＦＳＯで
内部で作る作業ファイルとかはＫＩＬＬだな

ＫＩＬＬは確かに好ましくないって聞いてるけど
楽なんだよな('A`)
93 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 17:25:42 ]: >>89
WSH単体のインストーラも公開されている。

しかもWindows 98/2k以上には何らかのバージョンがインストール済みなので、
バージョンの違いに頭を抱えなくて済むならそれでいい。
94 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 17:26:21 ]: >>91
その言い草はなんです！
あなたみたいなプログラマー（かどうかも疑わしい）こそいりません
95 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 17:26:45 ]: ＞System.IO.File クラスの Delete メソッドを使用する事がお薦めのようです。
VB6じゃない
96 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 17:27:22 ]: ごめん後のレス見てなかった
97 名前：デフォルトの名無しさん mailto:sage [2007/09/04(火) 17:47:41 ]: >>94
人の日本語にはケチをつけるのかｗ
98 名前：デフォルトの名無しさん [2007/09/05(水) 12:00:52 ]: [XP,VB6]
宜しくお願いします
エクスプローラからフォルダをＶＢで作成したツールにドラッグし、
ツール側で内容を読み込んでいるのですが、
ドラッグされた際に、エクスプローラよりも背面になっています。
なんとか前面に表示させたいのですが、良い方法があればお教え願えますか？
99 名前：デフォルトの名無しさん mailto:sage [2007/09/05(水) 17:14:29 ]: 常にウインドウを手前に表示したいってこと？
Win32APIのSetWindowPosできたはず
VB6 SetWindowPosでぐぐればサンプルみつかる
100 名前：デフォルトの名無しさん mailto:sage [2007/09/05(水) 17:41:48 ]: >>98
ドラッグ先の自作アプリが手前にあり、エクスプローラが後ろにいる状態で
エクスプローラのファイルをドラッグ&ドロップしても、自アプリが後ろに来ちゃうって事？
それとも、一度エクスプローラをカレントにしてからと言う事？
101 名前：デフォルトの名無しさん mailto:sage [2007/09/05(水) 18:18:36 ]: 普通にどこかのコントロールにSetFocusすればいいはず
102 名前：98 [2007/09/06(木) 12:32:23 ]: 返事遅れて申し訳ありません
常に前面では無く、エクスプローラから
フォルダをドラッグされて、処理する場合に前面に表示したかったのです
あと100さんのご質問の答えとしてはカレントにしてからとなります

結果として101さんのお答えで実現できました！
みなさんありがとうございました＾＾
103 名前：デフォルトの名無しさん [2007/09/07(金) 10:18:00 ]: VB2005について質問があるのですが、どのスレッドで聞けばよろしいでしょうか？
初心者です。
104 名前：デフォルトの名無しさん [2007/09/07(金) 12:16:03 ]: [XP、VB6]
質問があります。
現在イメージボックスを使用して画像を表示しているのですが、
画像の上に文字を表示して保存したいと考えています。
ピクチャーボックスであればすぐできると思いますが、
こちらだとボックスの大きさがコロコロ変わるので困ります。
(Stretchのようにサイズ変更されずに圧縮してくれれば良いのですが)
宜しくお願い致します。
105 名前：デフォルトの名無しさん mailto:sage [2007/09/07(金) 12:42:44 ]: イメージボックスって何？Imageコントロールの事か？
106 名前：デフォルトの名無しさん mailto:sage [2007/09/07(金) 12:48:07 ]: ここで良いよ>>103
107 名前：104 [2007/09/07(金) 12:57:22 ]: >>105
すいません。Imageコントロールの事です＾＾；
108 名前：デフォルトの名無しさん mailto:sage [2007/09/07(金) 19:21:04 ]: >>107
ピクチャーボックスを使えば、すぐ出来るとの事なので
画面表示にはImageコントロールを使って
ピクチャーボックスをvisible=falseにして、文字描画と保存処理を行えばよいのでは？
pictureオブジェクトは、set picturebox.picture = image.pictureで共有できる
ただ、文字を書き込むってAPI使わんでもスグ出来たかどうかちょっと疑問だが
109 名前：104 [2007/09/08(土) 07:04:47 ]: >>108
レスありがとうございます。
実は一度考えた方法なのですが、ピクチャーボックスの幅が自動で
大きくなってしまったり、元の画像の大きさを縮小したりできなかったので
諦めていました。
ピクチャーボックスへの文字描画は
Picture1.CurrentX = 800 'X座標
Picture1.CurrentY = 30 'Y座標
Picture1.Picture = Image1.Picture '画像取り込み
Picture1.Print "2007/09/08 06:58:14" '文字表示
とかやれば一応文字が反映されています。
あとはsavepictureかなにかやれば良いのだろうと思います。
もう一つ問題があって、現在Imageコントロールを使っていると言いましたが
写真を一枚一枚処理するのでは無く、複数枚の写真をいっきに処理
しなければなりません。なのでピクチャーボックスで一つずつ処理する方法では
実現が難しいという事もあります。(でも、できない事は無いと思います)
110 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 09:37:50 ]: >>109
事前に処理するファイルパスを変数に入れておいてループ取り出しながら繰り返せばいいんでなくて？
絶対に複数の画像を同時に処理しなければならない理由とかあるの？
111 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 10:56:35 ]: 質問があります。

VBScriptで時刻を表示させる時に　午前１０時以前でも "9:xx:xx" ではなく "09:xx:xx" と、ゼロを入れて２桁で時間を表示したいのですが、なにか表示形式指定のオプションみたいなものがあるのでしょうか？

それとも時間、分、秒と別々に取得して自前の関数で補正しないとだめでしょうか？
112 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 11:03:56 ]: >>109
その方法で、ビットマップに文字列が保存されるかなぁと疑問だったんだが出来るならいいけど
複数枚の写真が、動画のようなもので時間的に余裕が無いということだろうか？
それともバッチ処理のように、ファイルを連続でということなら>>110が書いているような方法で良い訳だが

ちなみに時間短縮ならAPIを使って、DCを自分で作って(CreateCompatibleDCなど)
そこにimage.picture.handleを選択して(SelectObject)
文字列を書き込んで(TextOut など)
って事をすれば良い
こうするととりあえず、DCを画像ごとに生成する必要が無いのでちょっとは早くなるかも
113 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 11:15:17 ]: >>111
VBSはformat使えないし、formatdatetimeがヘボだから
自分で関数作るのがいいかもね
114 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 11:36:04 ]: >>113
レスどうもありがとうございます。

なるほど～そうですか。そしたらこんな感じで自分で作ってみました

今までは
MsgBox ( Time )
で実行結果 "9:12:34"だったのを、

MsgBox( Right( "0" & Hour( time ) ) & ":" & Right( "0" & Minute( time ) ) & ":" & Right( "0" & Second( time ) ) )
として、実行結果"09:12:34"になるようにしました
とりあえずこれで＾＾；

どうもありがとうございました
115 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 11:47:18 ]: Right(xxx,2)では?と一応突っ込んでおくがw
116 名前：114 mailto:sage [2007/09/08(土) 11:57:16 ]: あ～　失礼しました＾＾；
おっしゃるとおり
MsgBox( Right( "0" & Hour( time ),2 ) & ":" & Right( "0" & Minute( time ),2 ) & ":" & Right( "0" & Second( time ),2 ) )
でした！

あとちなみに
MsgBox FormatDateTime( Time, vbShortTime ) & ":" & Right( Minute( Time ), 2 )
でもなりました

もう少し短くならないかな＾＾；
117 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 12:05:23 ]: >>116
Windowsの”地域と言語のオプション”で左右されそうな希ガス
118 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 12:09:37 ]: >>116
短くするよりも、精度上げた方がいいけどね
time関数は一度しか使わないで、戻り値を変数に入れてからの方が良いよ
119 名前：114 mailto:sage [2007/09/08(土) 12:13:05 ]: >>117-118
まじですか

そしたら
Dim aTime
aTime = Time
で、
MsgBox( Right( "0" & Hour( aTime ),2 ) & ":" & Right( "0" & Minute( aTime ),2 ) & ":" & Right( "0" & Second( aTime ),2 ) )
って感じにしました

勉強になりますm(_ _)m
120 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 13:37:53 ]: >>109
一応、ピクチャボックスに書き加えたものまで含めて保存したい場合は、
Picture1.PictureでなくてPicture1.Imageの方を保存ね。
121 名前：デフォルトの名無しさん [2007/09/08(土) 19:03:46 ]: VBから他の言語へ「とらば～ゆ」するのって、簡単ですか？
基本的なアルゴリズムが理解できてとOSの知識があればOKだと思うんですが。
122 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 19:15:33 ]: >>121
問題ないんじゃない
PCの知識も必要かもしれないが
123 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 19:30:00 ]: VBしかできない奴のほうがどうかしてる
124 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 20:56:57 ]: >121
他の言語に移行できないヤツはVBも理解できていない
125 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 22:25:54 ]: インターネットトランスファコントロールで
動画ファイルをダウンロードするのはどうしたらいいのですか？
text,jpg,zipなんかはできるんですけど
なぜか動画は同じ方法ではダウンロードできません
もしかしたらこのコントロールではむりですか
参考になるヒントなど教えてください。
126 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 23:00:39 ]: 動画にも色々あるんだが
127 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 23:16:28 ]: すまん
.flvファイルです
128 名前：デフォルトの名無しさん mailto:sage [2007/09/08(土) 23:39:07 ]: >>127
flvか
ダウンロードの方法は、保存支援サイトが何をやってるか見ればわかるだろう
129 名前：デフォルトの名無しさん mailto:sage [2007/09/09(日) 01:51:16 ]: やりかたは変わらない。
DL厨対策に動画のURLの取得が一筋縄でいかないようになっているだけ。
130 名前：デフォルトの名無しさん mailto:sage [2007/09/09(日) 09:17:20 ]: なるほどこのコントロールでできるのですか
もう少しじっくりコードを見直してみます。
131 名前：デフォルトの名無しさん mailto:sage [2007/09/09(日) 10:36:27 ]: VB6からＶＢ2005に以降したのですが、
ＶＢ6のときにあった、ディストリビューションウィザードがなくなって
セットアップディスクが作成できなくて困ってます。
別のツールかなにかで作るのでしょうか？
お勧めがあったら教えてください。
132 名前：デフォルトの名無しさん mailto:sage [2007/09/09(日) 11:26:36 ]: >>131
VSI (Visual Studio Installer)
133 名前：132 mailto:sage [2007/09/09(日) 11:27:41 ]: ごめんこれはVB６だった。
VB2005は知らんです。
134 名前：109 [2007/09/09(日) 18:07:15 ]: >>110
>>112
>>120
レスありがとうございます。
申し訳ありません。話がややこしくなってしまいました。
いっきに処理しなければならないのは忘れて下さい。
私が勘違いしていました。
おっしゃる通りバッチのような感じで処理できます。

ポイントとしては、
・現在Imageコントロールを使っているので、Imageで文字描画できないか
・Pictureボックスしか無ければ、仕方ないけど、ImageのStrechみたいな
　ボックスの大きさを固定しつつ圧縮する技はないか

以上２点です。

Pictureボックスの大きさを気にするのには理由があります。
処理する前にどの位置に日付を描画するのかを目視したいからです。
写真によっては文字の位置や色なども変えなければ見えませんので。
その為、ボックスの大きさは常に一定で、
Imageのような画像のサイズ圧縮が必要になります。
135 名前：デフォルトの名無しさん mailto:sage [2007/09/09(日) 23:59:38 ]: >>134
自分はImage嫌いなのでPictureを二つ用意する。一つは非表示で元画像(等倍)。
表示用にはStretchBltかスクロールバーで表示する。
136 名前：134 [2007/09/10(月) 10:04:06 ]: >>135
レスありがとうございます。
基本的な事で申し訳ありませんが、
ピクチャー１のAutoSizeをTrueにすると、
写真が大きい場合、ピクチャー１が画面上からはみ出るのですが
これをピクチャー２にコピーしてもうまくいきません。
また、AutoSizeをFalseにすると、写真が小さく表示され、やはり無理です。
どのように対処されていますか？
137 名前：デフォルトの名無しさん mailto:sage [2007/09/10(月) 10:15:53 ]: ステータスバーのSimpleTextの文字色、変える方法ってある？
138 名前：デフォルトの名無しさん mailto:sage [2007/09/11(火) 01:57:56 ]: >>136
元画像AutoSize=True
手法1(Stretch)：StretchBltを使って表示画像に転送
手法2(ScrollBar)：表示位置(原点)を保持しておいてスクロールバーを移動させるたびにBitBlt
手法1の場合完結しているが小さい場合に見づらい。
手法2の場合どんなサイズでも擬似的に表示できる。その代わり制御が少し面倒。

他にも色々あるだろうけど、原寸そのままに表示できない場合は、小さくするか
一部だけ表示させるしかないでしょ。
139 名前：デフォルトの名無しさん mailto:sage [2007/09/11(火) 21:28:45 ]: VB6で、WinSockコントロールを使ってのソケット通信について質問します

フォームにWinSockコントロールを複数貼り付けたり
Win32APIのWinSock関係を直接操作したりすることなく
複数クライアントとの同時通信などと言うものは可能なのでしょうか？

WinSockコントロールはひとつのインスタンスでひとつのコネクションしかもてなかったと思うのですが・・・
いかがなものでしょうか
140 名前：デフォルトの名無しさん mailto:sage [2007/09/11(火) 21:31:08 ]: >139
でけます。
WinSockコントロールを配列にして扱うサンプルがMSDNにあるでよ
141 名前：デフォルトの名無しさん mailto:sage [2007/09/11(火) 21:56:09 ]: >>140
ありがとうございます
MSDN漁って見つけることができました。
142 名前：136 [2007/09/12(水) 00:43:16 ]: >>138
色々と情報を頂いて、頑張ってはみたのですが、
私では実現できないようですので、残念ですが今回は諦めます。
お時間頂いてありがとうございました。
143 名前：デフォルトの名無しさん [2007/09/12(水) 23:11:43 ]: 今VBで2chに書き込むプログラム作ろうとしているのですが、どうにも駄目です。
winsockを使用して作ってます。
スレの取得はできるようになったのですが、書き込みの方法がわかりません。
特にクッキーの設定の部分がわかりません。

助けてください。
144 名前：デフォルトの名無しさん mailto:sage [2007/09/12(水) 23:42:59 ]: >>143
迷惑だからやめてください
145 名前：デフォルトの名無しさん mailto:sage [2007/09/13(木) 04:54:56 ]: >>143
HTTPべんきょうしてください

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef