VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/06/21(Tue) 15:44 |
| 投稿者 | ： おじん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: マウスの位置を取得 |
> 最初の部分の意味はよく理解できませんが？
例えば、Formに高さHeightの小さいDirListBoxとLabelを置き、
dir1.path="c:\"
とすれば、DirListBoxの右には縦方向のスクロールが表示される
はずです。もし表示されなければ、DirBoxの高さHeightをより
小さくするか、フォルダーの数が多いイフォルダーに変える。
ここで、Sample=103にあるコードを真似し、次のコードでテスト
します。マウスがスクロールの位置にある場合このイベントが発生
しないので、Ｘ、Ｙの値は表示されません。下記「やりたいこと」
のためにはDirListBoxの右端のＸ値を取得する必要があります。
それで、今回の質問になりました。
Private Sub Dir1_MouseMove(x as single, y as single, ....)
'クリックした位置にマウスを移動
SetCursorPos MoP.x, MoP.y
'その位置を表示
Label1.Caption = "マウス座標 X=" & MoP.x & " Y=" & MoP.y
End Sub
> > やりたいこと：
> > コントロールの端を摘んで、resize（拡大・縮小）をしたい。
> 上記を実現するなら、リサイズ枠をもったウィンドウのコントロールを作成すれば可能です。
> GetWindowLong SetWindowLong SetWindowText 等のAPIを使用
> (SampleNo=151)
> 参考図 hhttp://bbs4.aimix-z.com/gbbs.cgi?room=hanafusa
初めはPictureBoxの中にDirListBoxを貼り付けてやっていたのですが、
見かけが好きになれず、裸のDirListBoxに、という経緯があります。
もう一度チャレンジしています。
わけのわからない質問をして申し訳ありませんでした。
ありがとうございました。（人間ドック＝異常なし、めでたし目出度し）。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）