在线等!!!!!!!----如何获得计算机名并在textbox中显示?*****每个问题20分

[lvenx]

如何获得计算机名并在textbox中显示?

如何设置快捷键?比如按F3

就实现 Text1.SetFocus

每个问题20分 快啊

[online]

Text1.Text = Winsock1.LocalHostName

[rainstormmaster]

Option Explicit

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim strString As String
'Create a buffer
strString = String(255, Chr$(0))
'Get the computer name
GetComputerName strString, 255
'remove the unnecessary chr$(0)'s
strString = Left$(strString, InStr(1, strString, Chr$(0)))
'Show the computer name
Text1.Text = strString
End Sub

[dreamreality]

对于那个setfocus的可以放一下label,然后设置快捷键,但有一个前题那就是他的tabindex一定要在textbox的前面，比如说一个是textbox是2那么label一定是1才行的

[SaySorry]

添加一个不可见菜单项
快捷键给定位 F3
Text1.SetFocus

[xzp1030]

Option Explicit
'一个text，一个command
Private Sub Command1_Click()
Text1.Text = Environ("ComputerName")
End Sub

[mmcgzs]

如果想真正实现快捷键必须使用子类
使用
registerhotkey
setwindowlong
callwindowproc
等api