月 | 火 | 水 | 木 | 金 | 土 | 日 |
---|---|---|---|---|---|---|
29 | 30 | 31 | 1 | 2 | 3 | 4 |
5 | 6 | 7 | 8 | 9 | 10 | 11 |
12 | 13 | 14 | 15 | 16 | 17 | 18 |
19 | 20 | 21 | 22 | 23 | 24 | 25 |
26 | 27 | 28 | 29 | 30 | 1 | 2 |
昨日に引き続いてアドイン関連。 ちょっと反則ワザに近いが、アドインを使用しているIDEのウィンドウハンドルを取得する方法。
Private mVBInstance As VBIDE.VBE '有効な値が入ってると仮定 Private Function GetIDEhWnd() As Long GetIDEhWnd = FindWindow("wndclass_desked_gsk", mVBInstance.MainWindow.Caption) End Function
"wndclass_desked_gsk"は私の環境*1で SPY++を使って調べた結果なので、他環境では違う値になるかも?
*1: Win2K+VB6SP5 and Win95SE+VB6SPなし
このページにリンクを張りたい人はご自由にどうぞ。
疑問・感想・要望・不満・文句・愚痴等々ありましたら↓までメール下さいましm(_ _)m