Question

vb 中check控件如何在text控件 中显示

Answer 1

控件：Text1，Check1.代码如下。
＝＝＝＝＝＝＝＝＝＝＝
Option Explicit

Private Const SWP_NOSIZE = &H1
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
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

Private Sub Form_Load()
SetParent Check1.hwnd, Text1.hwnd
SetWindowPos Check1.hwnd, 0, 0, 0, 0, 0, SWP_NOSIZE
End Sub

Answer 2

把check控件放在text控件上面，
private sub form_load
Check1.BackColor = &H8000000E&
Check1.Zorder
end sub

Answer 3

在check里的value属性中填入相应的值就行了