vb改变字形的代码是什么_怎样修改VB代码的字体大小?

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer

'Private Declare Function GetKeyNameText Lib "user32" Alias "GetKeyNameTextA" (ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Const WM_GETTEXT As Integer = &HD

Private Const WM_GETTEXTLENGTH As Integer = &HE

'Dim a As Long

Dim GetIParam As Integer

Dim GetString As String

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

GetString = Space(255)

'a = SendMessage(CLng(Text1.Text), WM_GETTEXTLENGTH, 0, 0)

Text1.Text = Command1.Handle.ToInt32

SendMessage(CInt(Text1.Text), WM_GETTEXT, 255, GetString) '255是缓冲区的长度

'GetKeyNameText GetIParam, GetString, Len(GetString)

MsgBox(GetString)

End Sub

取消

评论