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

lvenx 2003-12-15 06:51:11
如何获得计算机名并在textbox中显示?

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

就实现 Text1.SetFocus

每个问题20分 快啊
...全文
4 点赞 收藏 6
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
mmcgzs 2003-12-16
如果想真正实现快捷键必须使用子类
使用
registerhotkey
setwindowlong
callwindowproc
等api
回复
xzp1030 2003-12-15
Option Explicit
'一个text,一个command
Private Sub Command1_Click()
Text1.Text = Environ("ComputerName")
End Sub
回复
SaySorry 2003-12-15
添加一个不可见菜单项
快捷键给定位 F3
Text1.SetFocus
回复
dreamreality 2003-12-15
对于那个setfocus的可以放一下label,然后设置快捷键,但有一个前题那就是他的tabindex一定要在textbox的前面,比如说一个是textbox是2那么label一定是1才行的
回复
rainstormmaster 2003-12-15
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
回复
online 2003-12-15
Text1.Text = Winsock1.LocalHostName
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告