Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61486 / 76732

←次へ　｜　前へ→


	【19864】Re:背景の透明化(?)

ちん - 04/11/18(木) 9:46 -


	引用なし

	パスワード

▼ケン坊さん：
>はじめまして。2つほど聞きたいことがあるのですが、
>
>サイクロトロンというソフトを見たのですが、
>あれはユーザーフォームの形を変えたり透過したりしているのですが
>あれはどのようにしたら、できるのですか？？？？
>
>もう一つの質問は、PSET(x,y)というのを知ったのですが、
>何故か実行できませんでした。
>ちなみに線を引く、LINEというのも実行できませんでした・・・
>
>アドバイスお願いします！！
おはようございます。ちんといいます。
透過についてですが、丸くフォームを切り抜く関数と、四角くフォームを切り抜く
関数を掲載します。

（１）標準モジュールへの定義
Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function CreateRoundRectRgn Lib "gdi32" ( _
　　　　ByVal X1 As Long, ByVal Y1 As Long, _
　　　　ByVal X2 As Long, ByVal Y2 As Long, _
　　　　ByVal X3 As Long, ByVal Y3 As Long) As Long

Private hRgn　　As Long
Declare Function GetActiveWindow Lib "user32" () As Long
Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Public Function xGetActiveWindow() As Long
　　xGetActiveWindow = GetActiveWindow
End Function

（２）ユーザーフォームの定義
　ユーザーフォームにボタンを２つ配置して下さい。
Private Sub CommandButton1_Click()
　　Dim hwnd As Long
　　hwnd = xGetActiveWindow
　　hRgn = CreateRectRgn(0, 0, 300, 300)　 '*** 四角形の大きさ
　　
　　SetWindowRgn hwnd, hRgn, True
End Sub

Private Sub CommandButton2_Click()
　　Dim hwnd As Long
　　hwnd = xGetActiveWindow

　　hRgn = CreateRoundRectRgn(0, 0, _
　　　　　　　　　　300, _
　　　　　　　　　　300, _
　　　　　　　　　　320, 320)　　　　　　　'*** 円形の大きさ
　　　　　　　　　　
　　
　　SetWindowRgn hwnd, hRgn, True

End Sub

以上、参考までに・・・

3 hits

▼

【19764】背景の透明化(?) ケン坊 04/11/16(火) 16:26