Excel VBA質問箱 IV

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

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


27612 / 76732 ←次へ | 前へ→

【54438】Re:Formに描画(API LineTo など)した絵をBitMapで保存できますか?
発言  neptune  - 08/3/12(水) 23:21 -

引用なし
パスワード
   みなさんこんにちは

又、検証なしの提案になりますが、

1.の問題ですが、
imageを貼り付ける方法ですと、UserFormにimageコントロール1個だけですと

Private Const FormClassName As String = "ThunderXFrame"
Private hImage As Long

Public Function findchild() As Long
Dim ret As Long
Dim hForm As Long

  hImage = 0
  hForm = FindWindow(FormClassName, UserForm1.Caption)
  ret = EnumChildWindows(hForm, AddressOf EnumChildProc, &H0)
  findchild = hImage
End Function

Public Function EnumChildProc(ByVal hwnd As Long, _
               ByVal lParam As Long) As Long
  hImage = hwnd
  EnumChildProc = True
End Function

'子ウィンドウ取得(1個限定^ ^;;)
Private Sub CommandButton4_Click()
  Debug.Print findchild
End Sub

ってな感じでImageのHWNDが取れますから、
最初の質問時のコード 「みそじのおじさん - 08/3/11(火) 14:51 」
のような方法は取れないんですかね?(そのままでは駄目かもしれない)
・・・今日は検証する根性がありません。

2.に関しては、マジックナンバーではなく出来るだけ定数化してやるとか
 しか思い付きません。

前回のサンプルの補足:
(1)
>ret = LineTo(hComDC, img.Width * 10, img.Height * -10)
の10と-10ですが、
>ret = SetMapMode(hComDC, MM_TWIPS)
でMM_TWIPSを指定しているのでtwipsに戻すのなら本当は20なんですが、
大きさ調整で10にしただけです。(本来は20でtwips)
詳しくはMSDNでSetMapModeをお調べ下さい。

>  hdc = GetDC(0) '<<<ここの引数が0なのが疑問です。
>  '0にするとスクリーン全体のデバイスコンテキストのハンドルが取得できる
>  'とありましたが、ここでいうスクリーン全体というのは、Image1を
>  '指しているのでしょうか?
今回はメモリ上に書いているので、「スクリーン全体のデバイスコンテキスト」で
いいと思います。


ごめんなさい。今日はなんか肩がつりそうで根性ありませんでした。
ちなみに私も描画関係は殆どやったことないんで勉強になります。^ ^;;
0 hits

【54392】Formに描画(API LineTo など)した絵をBitMapで保存できますか? みそじのおじさん 08/3/11(火) 14:51 質問
【54394】Re:Formに描画(API LineTo など)した絵を... みそじのおじさん 08/3/11(火) 15:42 質問
【54395】Re:Formに描画(API LineTo など)した絵を... VBWASURETA 08/3/11(火) 16:15 回答
【54396】Re:Formに描画(API LineTo など)した絵を... neptune 08/3/11(火) 16:19 発言
【54398】Re:Formに描画(API LineTo など)した絵を... みそじのおじさん 08/3/11(火) 17:38 質問
【54399】Re:Formに描画(API LineTo など)した絵を... VBWASURETA 08/3/11(火) 17:45 発言
【54401】Re:Formに描画(API LineTo など)した絵を... みそじのおじさん 08/3/11(火) 18:49 質問
【54403】Re:Formに描画(API LineTo など)した絵を... VBWASURETA 08/3/11(火) 20:58 発言
【54408】Re:Formに描画(API LineTo など)した絵を... VBWASURETA 08/3/12(水) 2:49 発言
【54435】Re:Formに描画(API LineTo など)した絵を... みそじのおじさん 08/3/12(水) 19:32 質問
【54437】Re:Formに描画(API LineTo など)した絵を... VBWASURETA 08/3/12(水) 23:04 発言
【54438】Re:Formに描画(API LineTo など)した絵を... neptune 08/3/12(水) 23:21 発言
【54439】Re:Formに描画(API LineTo など)した絵を... neptune 08/3/12(水) 23:23 発言
【54451】Re:Formに描画(API LineTo など)した絵を... みそじのおじさん 08/3/13(木) 16:08 発言
【54454】Re:Formに描画(API LineTo など)した絵を... VBWASURETA 08/3/13(木) 17:52 発言
【54461】Re:Formに描画(API LineTo など)した絵を... みそじのおじさん 08/3/13(木) 22:30 発言
【54462】Re:Formに描画(API LineTo など)した絵を... VBWASURETA 08/3/14(金) 0:34 発言
【54463】Re:Formに描画(API LineTo など)した絵を... VBWASURETA 08/3/14(金) 1:19 発言
【54452】Re:Formに描画(API LineTo など)した絵を... neptune 08/3/13(木) 16:20 発言
【54404】Re:Formに描画(API LineTo など)した絵を... neptune 08/3/11(火) 21:23 発言
【54450】Re:Formに描画(API LineTo など)した絵を... yuu1 08/3/13(木) 15:56 回答
【54464】Re:Formに描画(API LineTo など)した絵を... VBWASURETA 08/3/14(金) 9:15 発言
【54548】Re:Formに描画(API LineTo など)した絵を... みそじのおじさん 08/3/18(火) 11:32 お礼
【54550】Re:Formに描画(API LineTo など)した絵を... yuu1 08/3/18(火) 12:55 回答
【54551】Re:Formに描画(API LineTo など)した絵を... neptune 08/3/18(火) 14:55 発言
【54552】Re:Formに描画(API LineTo など)した絵を... VBWASURETA 08/3/18(火) 15:53 発言
【54559】Re:Formに描画(API LineTo など)した絵を... みそじのおじさん 08/3/19(水) 10:59 お礼
【54560】Re:Formに描画(API LineTo など)した絵を... neptune 08/3/19(水) 13:03 発言

27612 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free