VB程序员博客

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)的坐标，然后直线插补到当前坐标你的思路是对的嘛.

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

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

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

我遇到一个自己无法实现的问题，特来请教。联系qq：1418050559什么问题。。。。。。晕,楼主挂出问题来啊,这样挂QQ不是个办法哦贴这里吧，大家都讨论讨论大约什么问题？说出来大家帮你参谋参谋你有问题，还要叫别人专门上门去找你问：“你的问题是什么？”
你这是不是过分了点，哪个吃饱了没事干会去这么做，哎<
<
来来来,看看会不会有哪位大虾追上去问May I help you? sir!<
楼主一点也不阳光。鉴定完毕。你们这些穿绿色内裤的，带红色星星的竟然在这里说风凉话，不知道这年头提问的才是爷吗！<
大家都来拍砖，哈哈 
都来挖掘挖掘更深层次更深刻的一些东西不知道问题.想帮你都不行.这帖不是在提问。。。。这贴是在征QQ好友。 兰州qq是10位的，不值钱兰州烧饼好吃.
兰州烧饼好吃
兰州烧饼好吃
楼主是不是发现自己木有小ＪＪ啊？DATA控件如何打开有加密的数据库呢?

我的上传代码在本地测试可以上传1G的文件，但传服务器里面，只能传到10m左右就提示系统资源未找到，请问是什么原因？设置ASP超时。这个方法不行！我试过了！

服务器有最大上传文件限制，可以将文件分成若干块，多次append到之前上传完成的部分上唉，你们的回答都没能解决我的问题 ,不过我自己后来觖决了，分照给。现在我可以上传1G的文件同时上传多个.

水晶报表10实现以下分页求和功能：
1.明细资料以领料日期排序
2.对本页中的资料以币别求和
3.每种币别和独占一行

例如：
日期 币别 金额 描述
2010.05.01 RMB 1000 …
2010.05.02 USD 500 …
2010.05.03 RMB 2000 …
2010.05.04 VND 1500 …
2010.05.05 USD 800 …
—————————-
  合计： RMB 3000
  USD 1300
  VND 1500

描述栏位设为可自由换行，也就根据内容长度自动换行

每页的币别数不定，行数也不定
以上所说报表是单独的.rpt文件，不是在VB中使用水晶报表控件那种图表区，问问啊泰图表区？
能否告知具体路径

我想纪录用户从主服务器上传下载了什么资料，基于VB6.0+SQL Server 2000。在网上查找方法时，看到一篇帖子感觉很有用，但可惜是VB.Net。里面一些控件，如：WebBrowser控件，就没办法直接拿来应用。郁闷极了。想问一下，怎么用VB6.0实现文件数据对SQL Server上传下载，并保存下这些记录？有谁了解或做过这方面的，烦请介绍一下，谢谢。ftp

谢谢各位的回答
ftp 这方面我不太明白
我试试看ADO吧 感觉这种比较熟悉  
刚在网上搜了下 真发现不少有帮助的信息 谢谢大家

一个程序最小化后，如何实现定时弹出msgbox提示？
———————————-
我写了一个程序，就是打卡提示功能，窗体中放4个定时器，对应一天4次卡。
检测时间到后就弹出msgbox 对话框进行提示。

但是有点问题，就是如果程序打开的状态下功能完全没有问题，但是如果程序最小化后，即不是当前窗口时，这个提示框弹不出来，我必须将任务栏中的程序点一下，让它成为当前窗口，这个msgbox对话框才能弹出来。

我不知如何能解决，我不能总开着这个程序窗口呀，我要干很多事，我的目的就是定时提示

注：不能用声音提示，没有音响。必须用弹出对话框的形式体现。用系统托盘提示<
测试非模式窗体不存在LZ所说的问题.<
<
Do…loop拖时间
中间加doevents

在Excel中,有个数据有效性输入功能.
以此为题:在TextBox中如何实现数据有效性输入.
在一个TextBox控件中,只能输入两个有效数据—270和360.其它数据均为无效数据.不能输入.谢谢.换成combobox
或txt_validate在TextBox控件的 ONCHANGE事件中判断。<
combobox1.text<

为什么要用文本框呢？不如使用combobox、optionbutton等控件。Excel中的数据有效性是n个数据，所以optionbutton肯定不行，
combobox感觉不太好。
以前见过TextBox控件与ListBox控件组合应用，实现数据有效性的输入。
现在从这个角度出发，寻找解决方法。
谢谢各位大侠参与。

在Excel中,有个数据有效性输入功能.
以此为题:在TextBox中如何实现数据有效性输入.
在一个TextBox控件中,只能输入两个有效数据—270和360.其它数据均为无效数据.不能输入.谢谢.换成combobox
或txt_validate在TextBox控件的 ONCHANGE事件中判断。<
combobox1.text<

为什么要用文本框呢？不如使用combobox、optionbutton等控件。Excel中的数据有效性是n个数据，所以optionbutton肯定不行，
combobox感觉不太好。
以前见过TextBox控件与ListBox控件组合应用，实现数据有效性的输入。
现在从这个角度出发，寻找解决方法。
谢谢各位大侠参与。

在Excel中,有个数据有效性输入功能.
以此为题:在TextBox中如何实现数据有效性输入.
在一个TextBox控件中,只能输入两个有效数据—270和360.其它数据均为无效数据.不能输入.谢谢.换成combobox
或txt_validate在TextBox控件的 ONCHANGE事件中判断。<
combobox1.text<

为什么要用文本框呢？不如使用combobox、optionbutton等控件。Excel中的数据有效性是n个数据，所以optionbutton肯定不行，
combobox感觉不太好。
以前见过TextBox控件与ListBox控件组合应用，实现数据有效性的输入。
现在从这个角度出发，寻找解决方法。
谢谢各位大侠参与。

支付宝密码输入框是个控件.无法象input一样控制输入文本.模拟按键好象也不行.

谁有好的方法?100分赠送.no ideas试试用AutoHotKey软件keybd_event可以么？再不行就只能用键盘驱动了。
windows wdk 里面有代码。

现在都直接考虑硬键盘了。道高一尺，魔高一丈好像不好办啊不可能