VB程序员博客

[滚动][曲线][控件]滚动条画曲线的问题 - VB / 控件

admin — Sat, 04 Sep 2010 06:22:50 +0000

我用VB做界面，在一个图片控件中画曲线。
图片控件下方有一个水平滚动条。
我想实现的效果是拖动滚动条，可以使曲线跟着移动。
请问高手，如何实现？谢谢！picture1+picture2+滚动条

p1做p2的容器，p2设置autoredraw为真，在p2里画图，滚动条滚动p2在一个PictureBox中绘制另一个PictureBox,用滚动条改变其Left值,就能移动第二个PictureBox.

[滚动][曲线][控件]滚动条画曲线的问题 - VB / 控件

admin — Sat, 04 Sep 2010 04:47:04 +0000

p1做p2的容器，p2设置autoredraw为真，在p2里画图，滚动条滚动p2在一个PictureBox中绘制另一个PictureBox,用滚动条改变其Left值,就能移动第二个PictureBox.

[编写][实现][X-键时]我要编写vb实现当按下X-键时电机持续转动放开停止的功能X+、Y-、Y-一样这样写可不可以 - VB / 基础类

admin — Sat, 04 Sep 2010 02:22:58 +0000

Private Sub TimeShowPos_Timer()
While flag >= 0
If falg = 0 Then
cur_pos(0) = cur_pos(0) - cmbStepSize.Text
If flag = 1 Then
cur_pos(0) = cur_pos(0) + cmbStepSize.Text
If flag = 2 Then
cur_pos(1) = cur_pos(1) - cmbStepSize.Text
If flag = 3 Then
cur_pos(1) = cur_pos(1) + cmbStepSize.Text
Wend
r = GT_LnXY(cur_pos(0), cur_pos(1))
End Sub
Private Sub cmdXM_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
flag = 0
TimeShowPos.Enabled = True
End Sub
Private Sub cmdXM_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
TimeShowPos.Enabled = False
End Sub
Private Sub cmdXP_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
flag = 1
TimeShowPos.Enabled = True
End Sub
Private Sub cmdXP_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
TimeShowPos.Enabled = False
End Sub
Private Sub cmdYM_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
flag = 2
TimeShowPos.Enabled = True
End Sub
Private Sub cmdYM_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
TimeShowPos.Enabled = False
End Sub
Private Sub cmdYP_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
flag = 3
TimeShowPos.Enabled = True
End Sub
Private Sub cmdYP_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
TimeShowPos.Enabled = False
End Sub
你得看GT_LnXY是干什么的。
我们没有你的电机，行不行自己试试不就知道了。r = GT_LnXY 是直线插补，就是得到cur_pos(0), cur_pos(1)的坐标，然后直线插补到当前坐标你的思路是对的嘛.

按下时定时器开,弹起时定时器关.

再在定时器里根据按下的按键来周期调用不同的过程.

思路没问题,剩下是你实现的问题了.第一次发帖，感谢回帖

[日历][控件][源码]发个以前写的日历控件(源码) - VB / 控件

admin — Fri, 03 Sep 2010 19:06:51 +0000

图片请看我空间
http://hi.baidu.com/overown/blog/item/1187b69919333d056e068c80.html

纳米盘下载
http://d.namipan.com/d/143485dbf96a1f51f972153d98167037e98bf85fce340000谢谢分享
upupupupupupupupupupupupupupupupupup忘记说了子类化的模块是网上收集的谢谢分享谢谢分享！感谢分享谢谢我也学习下谢谢分享！享受一下好东西自然要顶好象不能下载先谢谢 <
谢谢分享！

[Flash][控件][尺寸]Flash控件尺寸与VB的Form尺寸转换关系 - VB / 控件

admin — Fri, 03 Sep 2010 13:47:35 +0000

在flash中尺寸为宽为320，高为240.320X240
在VB的Form中，设flash控件尺寸.将320X10=3200,240X10=2400
Width=3200,Height=2400
请问：Flash控件尺寸与VB的Form尺寸转换关系？在VB中默认的坐标系统单位为“缇”而不是“像素”,所以你要作像素转换为缇的处理

像素 = Me.ScaleX(缇, vbTwips, vbPixels)
缇 = Me.ScaleX(像素, vbPixels, vbTwips)

像素 = 缇 / 15
缇 = 像素 * 15
统一计量单位有flash 控件有autofit，fullscreen一类的属性。<
缇这个单位是VB默认的单位，很多其他的软件基本上用的都是以像素为单位的
所以在VB里通常都要进行单位转换处理。
Flash里的单位默认为像素，但在VB里调用他的控件，因为控件放在的是VB窗口
或容器中，而这些窗口或容器默认的坐标系统是缇为单位，所以要按像素单位的
理念设置大小就必须进行单位转换，当然，VB的坐标系统单位也可以进行设置，
只要你修改窗口或容器的ScaleMode属性为VbPixels，那么它的坐标系统也会变
为以像素为单位，如果这样设置了，也就不需要进行单位换算了。

[ACCESS][数据库][数据库]VB ACCESS数据库 - VB / 数据库(包含打印安装报表)

admin — Thu, 02 Sep 2010 18:22:47 +0000

有N个数据库被命名为 1 ，2，3，，4。。。。N
1，2，3，4。。。N 是在使用中的数据库
用VB 如何时时监测这些数据库
如果数据表被添加了数据然后把这条记录马上添加到另外的一个汇总数据库中
然后继续时时监测如此循环其中还有个情况打个比方，如果2，3 两台电脑被关了也就是2，3的数据库连不上了则连接其他的数据库，忽略2，3 。如果 2，3 打开了，1又关掉了，则忽略1连接其他的数据库，如此循环时时监测应该由数据库程序完成能不能具体点啊 1 ，2，3，，4。。。。N 数据库的资料更新由规律吗？多久更新一次数据？数据结构为何？1,2,3,4….N 的数据库结构和汇总的数据库结构完全一样更新数据是不定时的
能换个思路吗
对1,2,3,4….N 数据库更新的时候，也对汇总库进行更新，这样就不需要监控了
<
能不能具体点啊 <
估计你是想做数据同步吧，你可以搜索一下“数据热备”是的差不多的意思，而且就是多一个汇总到一起还有没有谁有好的思路啊有哪位大哥大姐还做过这样的例子啊

[Excel][设置][连续]Excel中能否设置不连续的行为打印标题行吗 - VB / VBA

admin — Thu, 02 Sep 2010 08:46:53 +0000

如题：现要设置第1、2、3行+第10、11、12行为打印标题行，操作上能否实现？用程序能否实现？Office版的人气比VB版本的还冷清，转回老本营试试。

一般标题在第一行，你这个……可以，vba先隐藏其他行，打印后再取消隐藏<
后面其他页，只需要显示1-3和10-12行的数据作为标题
***********************
这个什么意思？<
看来微软做成这样，咱们去想去完美的解决方案不太靠谱，哎，结贴吧。

[监控][WebBrowser][后才]问：监控WebBrowser的什么东西有后才可以获取WebBrowser.Document.all的所有对象啊。 - VB / 基础类

admin — Thu, 02 Sep 2010 07:46:59 +0000

问：监控WebBrowser的什么东西有后才可以获取WebBrowser.Document.all的所有对象啊。
我加载一个没有框架的纯网页，监控(Not webbrow.Busy) And (webbrow.readyState = READYSTATE_COMPLETE)
后获取WebBrowser.Document的其中一个对象，结果有时候能获取到，有时候不行啊？
问有什么办法使webbrowser加载所有Document对象后，我才去使用其中的对象啊？求高手帮忙，困惑我几个月时间了，还是没有解决啊？webview_DocumentComplete判断加载完毕了，还是不能够获取到document的全部对象啊，为什么啊？有什么办法监控到的来临时就OK啦。
不用跟我说监控body的outerHTML啊，outerHTML如果大于64K不见没办法了吗？帮顶一下.郁闷！鬼天气，热死人了。中午一个人上来都没有。试过WebBrowser1_NavigateComplete2没有呢，如果有些是脚本生成的，那就复杂了on error resume next

do
doevents
set obj= WebBrowser.Document.all(1000)
if not obj is nothing thne exit do
loop

到底是 1000 还是 200 根据页面元素总数来确定，不一定非得是最后一个。
如果你需要的元素靠前的话，都不用等页面加载完就，就可以接着运行代码了。

WebBrowser.Document.all(1000) 也可以写成
WebBrowser.Document.all("提交")

也不知道有没有问题。建议你用用inet控件。

[基础] $ 问题 - VB / 基础类

admin — Thu, 02 Sep 2010 02:46:54 +0000

定义变量的时候
public str$ 加个这 $ 是啥意思？

还有哪位大哥哥有vb 的帮助文件，类似VFP6。0 那个。
里面包括所有的概念，类型，函数等所有的用法。

哇 SQL高手，$好像是强制转换STRING类型vb 的帮助文件
**************
这个叫 msdn
呵呵，和csdn差1个字

安装vb的时候应该带这个

msdn也有一个网站public istr$ = public istr as string

<
$ String
& Long
# Double
% Integer
! Single
@ Currency
<
哈哈,楼主说的是BASIC特有的变量类型说明的类型后缀符号的语法.和用REM做注释说明的关键字一样,是老BASIC传下来的典型的BASIC语法.不建议使用非标准的语法。

过去的电脑编辑器不友善，存储器容量小，运算速度慢。
所有Basic为了方便初学者，有很多简化的语法。

但是这些语法丑陋，不规范，初学者应该学习标准的语法，打好基础。
现在的开发环境很友好，关键字自动提示，输入第一个字母，就可以自动完成，还有必要用这些晦涩的符号么？

至于帮助，还是以微软官方的文档为主吧。$ String
& Long
# Double
% Integer
! Single
@ Currency

[EAN-13][条形码][生成]求EAN-13条形码生成及打印源码。谢谢。 - VB / 基础类

admin — Wed, 01 Sep 2010 23:06:41 +0000

有的共享呀。谢谢

共享万岁

怎么不结贴？等多人了再结…有人有源码吗..