求一段vb代码,初学者谢谢 就是两条垂直线,鼠标随着两条垂直线的交点移动,两条垂直线随着移动,但两条线始终保持垂直 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 界面上放一个picture box 命名为picture1 ,然后粘贴下面的代码Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Cls Picture1.Line (X - 100, Y)-(X + 100, Y), vbRed Picture1.Line (X, Y - 100)-(X, Y + 100), vbBlueEnd Sub 你说的这个,叫做十字光标,或者叫橡皮筋技术 ,好了,关键字给你了,自己google吧 读取注册表RegOpenKey 中的phkResult 是什么用呢?? 高分求助!不够再加 求教一小技巧方法,谢谢!!! 高分求数据采集代码 如何实现Combo的右键菜单,自己的菜单? 关于给标题栏和边框加图片 vc6.0中的dll函数,如何在vb6.0中声明及调用 在text1中双击鼠标(左键或右键),是哪个事件激发?!急 关于VB调用Dll问题,请Help Me? Telnet服务器返回的控制文本颜色的字符串怎样才能在RichTextBox中文本自动识别显示该颜色! VB浏览器搜索 VB数字溢出
Picture1.Cls
Picture1.Line (X - 100, Y)-(X + 100, Y), vbRed
Picture1.Line (X, Y - 100)-(X, Y + 100), vbBlue
End Sub