高考问答治疗扁平尤好的医院:vb写程序
来源：百度文库 编辑：高考问答 时间：2024/04/27 17:20:03
RegCreateKey HKEY_CURRENT_USER, _
"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKey
regcreatekey后面的路径对编写下面的程序是必须的吗 我的意思是说这个
Software\Microsoft\Windows\CurrentVersion\Policies\Explorer路径对这个程序起作用 对吗 我用别的注册表路径能和上面这个路径的引用起到同样的效果吗 谢谢回答啦！！！
Dim L As Long
L = 1
RegSetValueEx hKey, "notraycontextmenu", 0, REG_DWORD, L, 4
MsgBox "已禁止使用任务栏中的右键快捷菜单! 请重新启动计算机，试用任务栏中的右键快捷菜单。"
RegCloseKey hKey
End Sub
前后当然是联系在一起的了，前面的是取出你要完成任务必须操作的注册位置，具体说取出键的hKey值，在后面代码中对这个键值进行改写（设置）。不过这段代码不是太精练，可以用一行代码将两行合并一行就好读了。
因工作量较大,故提供如下代码供参考,你可改动代码来满足要求.必须自己动手,才能从中掌握VB图形功能精髓.关于随机文件的读写操作请查阅谭浩强的"QBASIC语言教程"
'图片框显示文字函数
Public Function xp(colvb As Variant, xx As Variant, yy As Variant, txt As Variant)
Picture1.ForeColor = colvb 'QBColor(14)
Picture1.CurrentX = xx
Picture1.CurrentY = yy
Picture1.Print txt '
End Function
'按指定位置颜色显示文本
Picture1.Cls
colvb = vbWhite
xx = 100
yy = 150
txt = "℃"
wp = xp(colvb, xx, yy, txt)
yy = 350
txt = "100"
wp = xp(colvb, xx, yy, txt)
'按要求位置颜色画线
Picture1.ForeColor = vbWhite
Picture1.Line (450, 700)-(500, 700)
Picture1.Line (450, 1000)-(500, 1000)
Picture1.Line (450, 1300)-(500, 1300)
Picture1.Line (450, 1600)-(500, 1600)
这里再提供一句柱形图的代码,其中record_jmm(0)变量请给予定义和赋值.
Picture1.Line (0, 2117.5 - record_jmm(0) * 42.35 / 2)-(1095, 4235), vbRed, BF
该回答在由回答者修改过