VB代码看不明白，新手求注释。

在VB中，对于对象的属性的设置（修改），采用如下的格式：

对象名对象属性 = 属性值

你的这段代码，有一个特点就是都是设置（修改）控件对象的文本的一些修饰属性：

FontBold ---- 文字的粗体属性

FontItalic ---- 文字的倾斜属性

FontUnderline ----- 文字的下划线属性

这些属性的属性值都采用逻辑（布尔）值，当用True的时候，这些属性有效，当用False属性无效。

例如：

List1FontBold = True

列表框1的文字采用粗体；

List3FontBold = False

列表框3的文字不采用粗体（取消粗体）；

等等

Private item_height As Single

'Private,表示这声明只限于这个子过程(如果写在过程/函数内),如果写在函数外,则表示这声明只限于本模块

Private item_height As Single

'等同于 Dim item_height as single,声明变量item_height为单精度类型

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd _

As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LB_GETITEMHEIGHT = &H1A1

'声明常量，常量值为&H1A1(16制制数，等于十进制数417)

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)

If Not (Source Is List1) Then Exit _

Sub

If List1ListIndex >= 0 Then

List1RemoveItem List1ListIndex

End If

End Sub

Private Sub Form_Load()

List1AddItem "picture"

List1AddItem "list"

List1AddItem "today"

List1AddItem "cat"

item_height = ScreenTwipsPerPixelY SendMessage(List1hwnd, LB_GETITEMHEIGHT, 0, vbNullString)

'ScreenTwipsperpixely 取得屏幕提尔(till)与像素点的比例

'具体这是什么用的语句，自已调试，研究下吧，我没仔细看程序

End Sub

Private Sub List1_DragDrop(Source As Control, X As Single, Y As Single)

Dim new_pos As Integer

If Not (Source Is List1) Then Exit Sub

new_pos = Y / item_height

'这里y的值的单位是Till，不是像素，此句应该是算出鼠标的位置的

If new_pos > List1ListCount Then

Else

List1AddItem List1List(List1ListIndex), new_pos

End If

If List1ListIndex >= 0 Then List1RemoveItem List1ListIndex '清除Item控件内的指定列表

End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

List1Drag

End Sub

在VB中，注册表的读写，可以用自身的SaveSetting、GetSetting函数，但它们读写注册表的位置有限；也可以使用API函数来实现注册表任意位置的读写，但使用起来又比较麻烦。其实，利用微软提供的Windows Script Host对象来 *** 作注册表简单且方便得多。

要在程序中使用该对象，先要通过“工程引用”菜单项，把“Windows Script Host Object Modle”一项引用到工程中。如果没有，说明没有安装。可通过下面的方法安装：我的电脑→控制面板→添加/删除程序→安装WINDOWS→附件→Windows scripting host→确定。然后创建注册表 *** 作对象变量WSH，代码为：Set WSH = CreateObject("WScriptShell")。这样，就可以读写注册表了，其方法、格式和功能描述如下：

1、增加键值：WSHregWrite "注册表完整路径键值名"，键值，"键值类型"

注：regWrite方法的键值类型常用的有：REG_BINARY（新建或写入二进制值）、REG_DWORD（新建或写入DWORD值）、REG_SZ（新建或写入字符串值）。

2、获取键值：Ret=WSHRegRead("注册表完整路径键值名")

注：RegRead方法的返回赋给变量Ret。

3、删除键值：WSHRegDelete "注册表完整路径键值名"

注：RegDelete方法删除一个不存在的键值时要出错，防错方法参见以下代码。

4、d出消息：WSHPopup "消息内容" 注：Popup方法和MsgBox的功能差不多，但比MsgBox的功能弱。下面看看注册表 *** 作的实例：

创建注册表 *** 作变量

Dim WSH

Set WSH = CreateObject("WScriptShell") 禁用注册表编辑器

WSHregWrite "HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionPoliciesSystem

DisableRegistryTools", 1, "REG_DWORD" '

注：如果写入的值1改为0，可解除对注册表编辑器的禁用。查看注册表编辑器是否可用

ret = WSHRegRead("HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionPoliciesSystem

DisableRegistryTools") If ret = 1 Then WSHPopup "注册表编辑器被禁用！"

Else WSHPopup "可以使用注册表编辑器！"

End If 让程序自动运行

WSHregWrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun" + MyName, MyName, "REG_SZ" '

注：MyName是自动运行程序的文件名（含完整路径） 声明，以上是复制过来的，已经测试VB60 vb2008通过

以上就是关于VB代码看不明白，新手求注释。全部的内容，包括:VB代码看不明白，新手求注释。、初学VB,寻求注释,请把处写上注释,谢谢、VB *** 作注册表完整代码和详细注释等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！