|
|
VB中將某個(gè)窗口置頂，可以使用下面API：
Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_TOPMOST& = -1
' 將窗口置于列表頂部，并位于任何最頂部窗口的前面
Public Const SWP_NOSIZE& = &H1
' 保持窗口大小
Public Const SWP_NOMOVE& = &H2
將窗口置頂時(shí)可以用下面語句：
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE ' 保持窗口最前
但應(yīng)用上面方法將窗口置頂后，窗口中的FlexCell表格將無法正常使用下拉框功能，將表格的某一列設(shè)置成下拉框選項(xiàng)的方法也根本不會(huì)錯(cuò)。
下面是將表格的第3列設(shè)置成下拉框選項(xiàng)的源碼：
temp1=Grid1.Rows-1
Grid1.Column(3).CellType = cellComboBox '打開下拉框功能
With Grid1.ComboBox(3)
.Locked = True '鎖定此列只能輸入的字符
.Clear
For temp2 = 1 To temp1
.AddItem "第" & temp2 & "行"
Next temp2
End With
簡(jiǎn)直真奇怪！
|
|
