当前位置:三九宝宝网 → 宝宝百科 → 宝宝知识 → 正文

VB程序代码时钟指针的相关代码求指教

更新:01-06 整理:39baobao.com
字体:

[MFC简单界面代码]0 ,cyCDlg *dlg1=new CDlg(this); dlg1->Create(IDD_MY_DLG,this); dlg1->ModifyStyle(WS_CAPTION|WS_POPUP,SWP_FRAMECHANGED); dlg1->ShowWindow(SW_SHOWNORMAL); dlg1->S...+阅读

Const y0& = 1110, x0& = 1100, radius& = 750 【这一句看不懂】

'Const 是自定义常量的修饰符,Const y0& = 1110 等价于 Const y0 as long = 1110, &是long类型的简易表达

'从后边代码中可以得出,x0,y0是圆心的坐标,radius表示圆的半径

Private Function oncircle(X As Single, Y As Single) As Boolean 【请问oncircle是时钟指针专用的吗 Boolean是什么】

'这个oncircle没什么特别很不是专用的,只是这个函数的名字而已,你可以换成别的符合变量定义规范的名称、

'Boolean是VB中的布尔类型,有True和False两种值

precision = 55000 【precision是什么意思】

'此处变量precision没有预先申明就使用,不是很好,不过VB可以允许这样的写法,precision本身是精度的意思,现在用来当一个变量名称了

If Abs((X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) < precision Then

' Abs()是取绝对值的

'本身(X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) = radius * radius 是数学里圆的定义公式

'而(X - x0) * (X - x0) + (y0 - Y) * (y0 - Y)算出点(X,Y)到(x0,y0)的距离的平方

'再减去radius * radius就是 点(X,Y)到圆周的距离的平方

'所以IF条件的意思是判断 点(X,Y)到圆周的距离在不在精度precision范围内

oncircle = True 【If 语句看不懂】

Else

oncircle = False

End If

End Function

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

Const LEFT_BUTTON = 1

If oncircle(X, Y) Then 【我看到书上写着 X1 Y1定义object左上角的水平、垂直坐标 X2 Y2则是右下角的 都是这样吗?书上也没写什么前提条件】

'这个Form_MouseDown是一个窗口鼠标按下的事件,事件触发时调用该函数,这个函数是VB定义好的,函数名和参数都不能变

'参数里Button是鼠标事件类型,Shift是说你按鼠标的时候有没有同时按着Shift键,Y是鼠标在窗口上的横坐标,Y是纵坐标,都是单精度类型

'你说的X1 Y1定义object左上角的水平、垂直坐标没错,不过此处说的是鼠标按下时鼠标在窗口上的位置,就是纵横坐标

Line1.X1 = x0

Line1.Y1 = y0

'上边两句说的就是Line1左上角的水平、垂直坐标

If Button = LEFT_BUTTON Then

Line1.X2 = X

Line1.Y2 = Y

Else

Line1.X2 = Line1.X1

Line1.Y2 = y0 - Y

End If

Label1.Caption = ""

Else

Label1 = "鼠标位置不对"

End If

End Sub

本文地址:https://www.39baobao.com/show/39_127037.html

以上内容来自互联网,请自行判断内容的正确性。若本站收录的信息无意侵犯了贵司版权,请联系我们,我们会及时处理和回复,谢谢.

以下为关联文档:

常见电脑错误代码解释及解决方法以下这些蓝屏代码可以提供参考一下: 1)0*0000001E(0*c0000005 0*FDE38AF9 0*00000001 0*7E8B0EB4)KMODE_EXCEPTION_HANDLED ****其中错误的第一部分是停机码(Stop Code)也就是0...

电脑故障启动有故障代码 STOP 0 000000ED0 0爱0x000000ED:UNMOUNTABLE_BOOT_VOLUME ◆错误分析:一般是由于磁盘存在错误导致的, 有时也建议检查硬盘连线是否接触不良, 或是没有使用合乎该硬盘传输规格的连接线, 例如ATA-100...

电脑故障错误代码错误代码678是宽带的故障代码之一。其含义是远程计算机无响应。 1、最近你的计算机有没有动过?特别是ADSL Modem连线、线路有没有动过?请先检查“猫”上信号灯是不是会闪(猫不...

这是个电脑问题电脑蓝屏后的代码帮解决下软件引起的"蓝屏"故障 1、重要文件损坏或丢失会引起"蓝屏"故障(包括病毒所致)。WIN98中VxD(虚拟设备驱动程序)或.DLL(动态连接库)之类的重要文件丢失会出现"蓝屏警告"。解决的办法是利用...

电脑蓝屏代码问题0X0000000a .....是属于IOQ或地址的代码,我认为你的内存嫌疑最大。首先把条子拔下互换插槽试试,不行的话只插一根装系统。要还是不行的话就拿到JS那儿让他给你装。到时,他肯定...

DNF宠物的补丁代码是什么┌ sprite_pet_common.NPK 宠物通用效果 ├ sprite_pet_falcon.NPK 宠物鹰 ├ sprite_creature_amy.NPK 宠物:橙色小鸡 【亚米】 ├ sprite_creature_balam.NPK 宠物:橙色兔子...

华为手机电池电量校准代码相信大家都经历过,华为手机用久了电池不耐用的情况,明明之前60%的电量就能使用一天,而现在100%的电量也只能使用大半天。其实这并不是手机电池容量缩减了,而是电池中存在大量虚...

用js写随机数的代码怎么写?如:3 5js随机数 Math.random(),这个函数返回值是一个大于等于0,且小于1的随机数 所以Math.random() * n 值域为 [0, n) 结合Math.floor()生成一位整数的函数 function randNum(){ retu...

php如何生成HTML页面要详细的生成过程代码很简单,用ob_start压制,然后保存到一个html页面就可以了,写了个小演示 访问时在后面加参数 ?id=xxx xxx为任意数字,你把里面的输出换成你的动态页面就可以了,代码里有解释 ob_star...