vb listbox控件中的某些项如何设置为默认选中？

Posted 2023-05-06

参考技术A 可以用别的来实现的。
如果你一定要用listbox控件的话可以这样解决：
做一个listbox控件数组，第一个放1～30000，第二个放30001～60000……
始终只有一个显示，其余的都隐藏，而且数组元素的位置、大小都一致。
当拉到一个控件的最后一个元素还往下拉，而且还有下一个的话就这个控件隐藏，下一个控件显示，而且焦点是第一行
当拉到控件的第一个元素还往上拉，而且不是第一个控件，那么就这个控件隐藏，上一个控件显示 参考技术B 如果是单项选择的ListBox，那么只要把选项设为当前选项即可：
List1.ListIndex
=
5
'把第6项设为默认选中
如果是多项选择的ListBox（MultiSelect属性不为0），则可以用Selected属性：
List1.Selected(2)
=
True
'第3项默认选中
List1.Selected(4)
=
True
'第5项也默认选中

vb中怎样设置窗体中的控件为透明

半透明也可以

参考技术A 窗体透明
Private 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
Const HWND_TOPMOST = -1
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Dim lTime As Long
Dim lTime As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
Private Sub Form_Load()
Dim rtn As Long

Me.BackColor = RGB(255, 255, 255)
BorderStyler = 0
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, RGB(255, 255, 255), 100, LWA_COLORKEY
SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX _
, Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, _
Me.Height \ Screen.TwipsPerPixelY, 0本回答被提问者采纳 参考技术B 只有Label控件可以设置透明，其它都不行。 参考技术C 除了特殊几个控件，其它的没办法直接设置透明或者半透明。。。

如果要实现这些效果，需要调用系统的API来实现，具体你可以百度一下