VisualFreeBasic控件_Picture 画板

用于代码绘画的画板

控件只是空白一片（实际上是属于一个子窗口）
需要在绘画事件中，写画画代码。如何用代码画画，请看代码篇里的相关教程。

Function Form1_Picture1_WM_Paint(hWndForm As hWnd, hWndControl As hWnd) As LResult
   Dim gg As yGDI = yGDI(hWndControl, GetSysColor(COLOR_WINDOW),True) 'WM_PAINT事件里必须用这行初始化 yGDI 
   '若不用 yGDI 也可以直接使用API，必须使用 BeginPaint 初始化才能画，然后返回 TRUE，没有这样绘画的必须返回零。
   'Dim ps  As PAINTSTRUCT
   'Dim nDC As HDC = BeginPaint(hWndControl, @ps) '初始化并获取DC
   'EndPaint(hWndControl, @ps) '结束绘画

   Function = TRUE ' 告诉系统，我们自绘了（yGDI必须WM_PAINT初始化，若API必须用BeginPaint初始化），不需要系统绘画。
End Function

当控件被显示时，就会触发此事件，然后你在这里画画，就显示出画的内容了。
何时需要画，是操作系统根据情况来触发本事件的，假如要手动触发事件，那么用下列代码

Picture1.Refresh 

常用事件：单击、双击、鼠标移动，鼠标按下、鼠标释放 等
常用属性：Picture1.Refresh

自己画，配合鼠标事件，可以做任何事情，可以写控件，可以写。。。