在VB中制作VC中具有PUSHLIKE风格的复选框

原创 2004年09月08日 01:18:00

'Code By 魑魅魍魉
'mailto:DemonStudio@hotmail.com

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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()
Op.Value = True
Ch.Value = 1
SetWindowLong Command1.hwnd, -16, &H50008000
SetWindowLong Ch.hwnd, -16, GetWindowLong(Ch.hwnd, -16) + &H1000
SetWindowLong List1.hwnd, -20, &H105
SetWindowLong Text1.hwnd, -20, &H105
SetWindowLong Op.hwnd, -16, GetWindowLong(Op.hwnd, -16) + &H1000
SetWindowLong Op1.hwnd, -16, GetWindowLong(Op1.hwnd, -16) + &H1000
End Sub

效果如下:

巧算星期几

 巧算星期几 基姆。拉尔森基姆拥有计算机学科的博士学位。他对数据库,算法和数据结构有着浓厚的兴趣。他的联系地址是            (原文为丹麦文--译者注) 31,DK-5270,Odense ...
  • ycrao
  • ycrao
  • 2000-11-24 16:32:00
  • 8267

VC++之列表控件(CListCtrl)中加入复选框

 目的:使列表框(CListCtrl)的每个项(item)前面有个复选,用来标明是否选中,提交数据是只选择选中的方法:为列表框(CListCtrl)多加一个LVS_EX_CHECKBOXES风格 m_...
  • iuhiao
  • iuhiao
  • 2008-02-12 19:55:00
  • 979

VC CListBox中加复选框

一个带有复选框的列表控件,VB、Delphi……里有,VC工程,VC中的CListBox, CListCtrl没有复选框。自已重绘一个,或可以去网上找一个别人做好的现成的类。 MFC有一个CChec...
  • wj3319
  • wj3319
  • 2011-09-25 22:41:16
  • 3293

MFC 利用checkbox 做成切换开关按钮

VC实现切换开关
  • wuan584974722
  • wuan584974722
  • 2014-05-05 14:30:26
  • 7382

使VC中CListBox带有复选框

  • 2011年01月14日 10:21
  • 3KB
  • 下载

VC中给列表控件CListCtrl添加复选框

目的:使列表框(CListCtrl)的每个项(item)前面有个复选,用来标明是否选中,提交数据是只选择选中的 方法:为列表框(CListCtrl)多加一个LVS_EX_CHECKBOXES风格...
  • zx249388847
  • zx249388847
  • 2016-05-15 23:06:58
  • 2214

VB MSHFLEXGRID MSHFLEXGRID 绑定 CHECKBOX 另一法,推荐

Private Sub HFlexgrid_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)    单击...
  • cncco
  • cncco
  • 2010-03-20 18:02:00
  • 903

VB 给Excel中的checkbox 所在单元格赋值

需求: Excel 中有多组checkbox复选框,需要把选中的复选框和未选中的复选框标记入库。 如果选中则给1没有选中给所在单元格赋0 先上图: VB : Set myDo...
  • thl331860203
  • thl331860203
  • 2017-06-06 18:23:08
  • 1424

VB 单选框、复选框的应用

  • 2008年06月18日 10:27
  • 2KB
  • 下载

VB如何生成WINDOW XP风格界面!

 虽然WindowsXP的界面非常华丽。但是令人遗憾的是,我们用VB写的程序除了菜单和窗口的外观是XP风格外,其他控件还是一如既往的是普通风格。我想,有的程序在XP下有XP的风格,VB也一定有办法实现...
  • 520vc
  • 520vc
  • 2010-01-17 11:58:00
  • 371
收藏助手
不良信息举报
您举报文章:在VB中制作VC中具有PUSHLIKE风格的复选框
举报原因:
原因补充:

(最多只允许输入30个字)