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

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

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

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

我想设置一个按钮，点击按钮，能够清空航运费用表所有内容，此外，还希望能告知如何修改工程生成程序的图标，谢谢，各位了表格是什么表格？access

我使用adodc控件链接access数据库修改工程生成程序的图标方法：
1.工程->属性
2.在弹出的“工程属性”对话框中，选择“生成”选项卡，然后在“应该程序”中有个“图标”，选择相关图标（这里的图标是和窗体图标关联的）删除表，用这个试下行不？

Adodc1.CommandType = adCmdText
Adodc1.RecordSource="truncate table 表名"
adodc1.Refresh<
<
<
<

codesmart codehelp 云月插件 vb源码之友 ？
codehelp和vb源码之友 都挺好的 但是都缺少 代码折叠功能
谁有这方面的代码折叠 插件 试试能不能加载到codehelp
codesmart 功能倒是多带是不习惯它的界面，中文汉化也不全

大家都用啥辅助插件？ 能推荐一下吗 
谢谢了版主贴主中午好！
版主贴主每天都有好心情！

DT9MYUb2NuEVr回帖是一种美德！ke1InTPvVAL1Q
==========================
介+绍:

http://spritebrowser.com

OKSInsOGyaPIq
１）可录制上网记录，截获Http信息。
２）利用截获的Http信息自动生成命令（Page,拖拽即可完成）
３）执行命令，模拟浏览器向Web服务器发生命令。

中文论坛：http://spritebrowser.com/LunTan
DT9MYUb2NuEVr

发现一群美女：
http://byhat.com

=======================
软件创业QQ qun群：103815692

soyLjlyQ25CsFmztools版主贴主中午好！
版主贴主每天都有好心情！

oB9hOacMalQ0sjrz回帖是一种美德！03nwuRkJTCi20mHb
==========================
介+绍:

http://spritebrowser.com

vVhaWdDzy6D8yP70
１）可录制上网记录，截获Http信息。
２）利用截获的Http信息自动生成命令（Page,拖拽即可完成）
３）执行命令，模拟浏览器向Web服务器发生命令。

中文论坛：http://spritebrowser.com/LunTan
oB9hOacMalQ0sjrz

发现一群美女：
http://byhat.com

=======================
软件创业QQ qun群：103815692

c5j3l9Wv1P8MFr94MZ-Tools for VB6.0免费版

这是代码
Sub Call_Text()
Dim asm As New clsASM  '这个已近定义
With asm                            '  asm
    .Pushad                        '  pushad
    .Mov_EAX &H5A1F70              '  Mov EAX,&H5A2170
    .Call_EAX                      '  call pointer(eax)
    .Popad                          '  popad
    .Ret
End With                            '  end
asm.Run_ASM pid
End Sub
我想用CALL做一个简单的东西 就是用VB编写一个单击按钮,程序就显示一行字
除了以上的那段代码,还需要哪些?(我已经有模块了,还要DLL吗?)
请尽量详细 谢谢 学习，帮顶说真的，看不懂你想问什么！你写的代码不用，重新说明你想要的…不明白，帮顶clsASM  里面是怎么写的?
值直接写在类里面了?

这是代码
Sub Call_Text()
Dim asm As New clsASM  '这个已近定义
With asm                            '  asm
    .Pushad                        '  pushad
    .Mov_EAX &H5A1F70              '  Mov EAX,&H5A2170
    .Call_EAX                      '  call pointer(eax)
    .Popad                          '  popad
    .Ret
End With                            '  end
asm.Run_ASM pid
End Sub
我想用CALL做一个简单的东西 就是用VB编写一个单击按钮,程序就显示一行字
除了以上的那段代码,还需要哪些?(我已经有模块了,还要DLL吗?)
请尽量详细 谢谢 学习，帮顶说真的，看不懂你想问什么！你写的代码不用，重新说明你想要的…不明白，帮顶clsASM  里面是怎么写的?
值直接写在类里面了?

此函数如何调用？
BOOL WINAPI GX_GetMonitorData(unsigned short* ChannelNo,unsigned char* IsFinish,unsigned char* pMonitorData,unsigned short*DataLen,unsigned short Len);

我的代码：
Declare Function GX_GetMonitorData Lib "GxMonitor.dll" (ByRef ChannelNo As Integer, ByRef IsFinish As Integer, ByRef pMonitorData As String, ByRef DataLen As Integer, ByVal Lens As Integer) As Boolean

Dim num As Integer
Dim IsFinish As Integer
Dim DataLen As Integer
Dim cMonitorData As String * 4000

GX_GetMonitorData(num, IsFinish, cMonitorData, DataLen, 65535)

此函数如何调用？
BOOL WINAPI GX_GetMonitorData(unsigned short* ChannelNo,unsigned char* IsFinish,unsigned char* pMonitorData,unsigned short*DataLen,unsigned short Len);

我的代码：
Declare Function GX_GetMonitorData Lib "GxMonitor.dll" (ByRef ChannelNo As Integer, ByRef IsFinish As Integer, ByRef pMonitorData As String, ByRef DataLen As Integer, ByVal Lens As Integer) As Boolean

Dim num As Integer
Dim IsFinish As Integer
Dim DataLen As Integer
Dim cMonitorData As String * 4000

GX_GetMonitorData(num, IsFinish, cMonitorData, DataLen, 65535)

    最近喜欢用电脑看小说了！不过用鼠标点来点去麻烦，网上基本上又没什么好的自动阅读器。正好最近学了VB，我就想能不能用VB编写一个自动阅读器：

        ①可以把txt文本直接导入阅读器的文本框内（用其它方法也行）；
        ②用户可以设置它每行显示的字数和滚动的速度，然后让它自动由下至上滚动阅读！！

        如果，用户可以设置字体、字体颜色、字体大小和背景颜色，那就更好了！

  高手恳请指点，指点！！还有就是，它还有书签功能！lz说的功能ReadBook都有，下个就行了。
要自己做建议用richtext控件<

我对vb完完全全是个初学者，现在想做个小程序
程序只有输入框和确认框，在输入框输入串数字，按确认，就能更新数据库中一个表中的一列值，我想请问下这样的程序要是用vs2005怎么写？还是先看看本入门书吧。数据库操作 vs2005

google sqlhelper 百度
帮顶VS2005，你不用写，把需要的控件拖上来，设置好就行了。我的是VS2008…要不我都帮你写了<

主要是程序文字中要插入图片、公式等
使用word里的Document控件的话，要双击输入，反应太慢，还会弄一排菜单出来……..
RichTextBox控件效果不错，也支持插入图片等，唯一可惜的是不支持文字和公式混排时的居中对齐（在WORD里随便输2个字和一幅图，右键——段落——中文版式——对齐方式那选“居中”，你就知道了），和平常的习惯不一样
有更好的办法没有？

谢谢您的指导和关注！

自己顶一下

不懂，路过