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

Question

如何获得计算机名并在textbox中显示?如何设置快捷键?比如按F3就实现  Text1.SetFocus每个问题20分  快啊

Answer 1

Text1.Text = Winsock1.LocalHostName

Answer 2

Option ExplicitPrivate 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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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