强制显示窗体
多文档窗体上显示不出子窗体时,可以用下列方法。
例:强制显示frmInquiresRecord
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
SetParent frmInquiresRecord.hWnd, fMainForm.hWnd
frmInquiresRecord.Show
获得本机机器号
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
首先定义
Dim Compu As String * 128
Dim CompuName As String ‘定义机器名
Dim TempLong As Long
Dim X As Integer
TempLong = GetComputerName(Compu, 128) ‘compu为缓冲区
X = InStr(Compu, Chr(0)) ‘chr(0)为null,获得null值在compu中的位置
CompuName = Trim(Left(Compu, X - 1))