VB创建汉字窗体1
来源:百度文库 编辑:神马文学网 时间:2024/05/25 18:31:39
VB创建汉字窗体
2009-09-17 08:28
rem .bas文件中的
Public Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Public Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function GetRgnBox Lib "gdi32" (ByVal hRgn As Long, lpRect As RECT) As Long
Public Declare Function CreateRectRgnIndirect Lib "gdi32" (lpRect As RECT) As Long
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF010&
Public Const RGN_AND = 1
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
rem ______________
窗体中的
Private Sub Form_DblClick()
End
End Sub
Private Sub Form_Load()
Dim Rct As RECT
Dim hRgn1, hRgn2 As Long
With Me
.FontName = "宋体"
.FontSize = 100
End With
BeginPath hdc
TextOut hdc, 10, 10, "你好", 6
EndPath hdc
hRgn1 = PathToRegion(hdc)
GetRgnBox hRgn1, Rct
hRgn2 = CreateRectRgnIndirect(Rct)
CombineRgn hRgn2, hRgn2, hRgn1, 1
DeleteObject hRgn1
SetWindowRgn Me.hwnd, hRgn2, True
End Sub
2009-09-17 08:28
rem .bas文件中的
Public Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Public Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function GetRgnBox Lib "gdi32" (ByVal hRgn As Long, lpRect As RECT) As Long
Public Declare Function CreateRectRgnIndirect Lib "gdi32" (lpRect As RECT) As Long
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF010&
Public Const RGN_AND = 1
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
rem ______________
窗体中的
Private Sub Form_DblClick()
End
End Sub
Private Sub Form_Load()
Dim Rct As RECT
Dim hRgn1, hRgn2 As Long
With Me
.FontName = "宋体"
.FontSize = 100
End With
BeginPath hdc
TextOut hdc, 10, 10, "你好", 6
EndPath hdc
hRgn1 = PathToRegion(hdc)
GetRgnBox hRgn1, Rct
hRgn2 = CreateRectRgnIndirect(Rct)
CombineRgn hRgn2, hRgn2, hRgn1, 1
DeleteObject hRgn1
SetWindowRgn Me.hwnd, hRgn2, True
End Sub
VB创建汉字窗体1
如何用VB创建汉字窗体
VB创建不规则窗体经验总汇 | 异次元软件世界
vb窗体所有事件(1)
VB - 浅谈圆角窗体
Excel用户窗体技术—创建数据输入窗体
vb数据窗体架构的说明
vb窗体所有事件(4)
vb窗体所有事件(2)
vb窗体所有事件(11)
轻松打造VB.NET特殊窗体
delphi下用windowsapi创建窗体
delphi下用windowsapi创建窗体
Excel创建简单的数据输入窗体
VB中动态创建控件
使用VB创建服务器端组件
VB创建多线程应用程序(二)
VB.NET中多窗体同步的解决方案
Visual Basic自适应窗体设计经验-开发频道-VB-天极网
Visual Basic2自适应窗体设计经验-开发频道-VB-天极网
如何消除MDI主窗体在创建MDI子窗体时的闪烁
VB示例:VB中使窗体右上角的X按钮失效
VB 用API创建动态菜单示例
深入探讨VB.NET创建临时文件操作方法