CADVBA,删除多段线重复节点,并生成新数组
写了,不完善,有时成功,有时失败,高手看看,是不是还有简单的办法?Fori=0Toj-3Step2 Δx=pp(i)-pp(i+2) Δy=pp(i+1)-pp(i+3) Ifi+3=jAndΔx<0.00000001And
作者: thormars 发布时间: 07-07
在 VB 中SetupDiClassGuidsFromName和SetupDiGetClassDevs用法?
SetupDiClassGuidsFromName和SetupDiGetClassDevs,其中第一个主要是根据系统设备类型的名称获得其的GUID,第二个函数根据第一个函数获得的GUID来具体得到每种系统设备类型的设备。 请举一个详细的例子。
作者: yiran519 发布时间: 07-15
前些天有人说起的那个循环显示20-50的问题,确实有点意思,琢磨了两句代码
原帖具体内容忘记了,大概是要在label1上循环显示20到50再到20,反复循环。20,21...49,50,49...21,20,21...49,50,49.....这个要用if就很容易实现,不用if就得琢磨琢磨,呵呵昨天忽然想起这个问题,琢磨了两句VBcodePrivateSubForm_Load()Timer1.Interval=300Timer1.
作者: yachong 发布时间: 07-17
如何读取一个程序列表窗口的内容,并选择指定列表里的内容???
vb外的一个程序,有一个窗口,列表内容为aaaaabbbbbcccccdddddfffff如何读取并模拟鼠标点击选择指定的内容,例如选择ccccc(如果读取内容不能实现,能选择指定内容也许)
作者: duaozhuan0 发布时间: 07-17
有点麻烦的SetParent
PublicDeclareFunctionSetParentLib"user32"(ByValhWndChildAsLong,ByValhWndNewParentAsLong)AsLongform1和form2(form2中有text1)SetParentform2,0 时form2脱离form1text就不具有焦点也无法用键盘输
作者: wangyupc 发布时间: 07-17
VB如何快速运行外部程序
发现用SHELL或者SHELLEXECUTE都好,运行一个外部程序起码需要三秒才能打开,但直接运行一秒左右就行了.为什么会差那么多,有什么方法能够快一些运行呢?
作者: penguinhzf 发布时间: 07-16
动态添加的checkbox始终第一个赋不到值!
我想动态创建3个checkbox,但是下面的代码却创建了4个checkbox!而且发现创建后msgboxCheck1(0).Tag始终是空的!并不是想象中的得到Test0!我设置了Checkbox1空间的index是0.应该如何改创建3个checkbox,而且第一个checkbox的Tag值是Test0??VBcodePrivateSubForm_Load()Di
作者: jcreatorqijiash 发布时间: 07-16
vb 求richtextbox当前光标所在的第几个字符
vb求richtextbox当前光标所在的第几个字符multiline=False文本是单行的!!!!
作者: seeklonely 发布时间: 07-16