VB程序员博客

如题。不用Time控件drag是件,查查left，top应该会触发mousemove事件的吧drag不行的啊有没有类似的事件，dragmove 一类的？抱歉，没vb在家。dragmove 在DragMode = vbAutomatic的时候，当鼠标按下去的时候有反应
但在移动控件的过程没反应的

DragMode =vbManual什么反应都没
你是怎么移动控件的？

谢谢老张啊，但不是我想要的效果，
我想要的是鼠标左键一直按住拖动的时候把位置显示出来显示的就是被拖动控件在拖动过程中实时的位值。你把它当成什么了？上述代码就是在窗体拖动一个Command1，Command1的左边界（Left)的变化显示在Text1中，上边（Top)界变化显示在Text2中
Text2 = "Height=" & Y - b一句应为Text2 = "Top=" & Y - b,Top误打成了HeightDing 老张。

楼主参考 老张 的代码，把窗体上所有可见的控件都加上 DragOver() 事件代码，就完全符合你的要求了。
控件拖动的时候，鼠标一直在控件上，也就是说控件和鼠标的相对位置在拖动的时候是不变的，
所有用老张的方法，得不到实时位置<

如题。不用Time控件drag是件,查查left，top应该会触发mousemove事件的吧drag不行的啊有没有类似的事件，dragmove 一类的？抱歉，没vb在家。dragmove 在DragMode = vbAutomatic的时候，当鼠标按下去的时候有反应
但在移动控件的过程没反应的

DragMode =vbManual什么反应都没
你是怎么移动控件的？

谢谢老张啊，但不是我想要的效果，
我想要的是鼠标左键一直按住拖动的时候把位置显示出来显示的就是被拖动控件在拖动过程中实时的位值。你把它当成什么了？上述代码就是在窗体拖动一个Command1，Command1的左边界（Left)的变化显示在Text1中，上边（Top)界变化显示在Text2中
Text2 = "Height=" & Y - b一句应为Text2 = "Top=" & Y - b,Top误打成了HeightDing 老张。

楼主参考 老张 的代码，把窗体上所有可见的控件都加上 DragOver() 事件代码，就完全符合你的要求了。
控件拖动的时候，鼠标一直在控件上，也就是说控件和鼠标的相对位置在拖动的时候是不变的，
所有用老张的方法，得不到实时位置<

我的工程有driveListBox,DirListBox,FileListBox控件,当我启动了我程序以后,再插入一移动磁盘(或移动硬盘),请问如何将它自动添加到dirveListBox控件的列表上去.大家帮忙看下

请问用drivelistbox控件的什么事件来触发自动添加啊,到不到补充一下,在哪个事件加drive1.refresh最合适啊,最好不要加timer控件

Private Sub Drive1_GotFocus()
Drive2.Refresh
End Sub
这样做好似第一次选时选不中文件,要第二次才出现的

drivelistbox控件所有事件都要人工触发,自动触发就要时间控件

我编了这样一个程序

代码是

Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 30
End Sub

目前我不知道如何让Shape1从A点运动到B点时停止向右方向的移动，再继续按指定路径运动。Timer1的Interval值为10。

请各位高手指点一下，谢谢！

非常感谢！

给个思路：
dim intX as Integer
dim intY as Integer

'A点的坐标为XA,YA
'B点的坐标为XB,YB
'C点的坐标为XC,YC
'D点的坐标为XD,YD
   
intX=1
intY=0
private sub timer1_timer()
  '区分一下什么时时候intX=1,0,-1;intY=1,0,-1 
  Shape1.move Shape1.left+intX*30，Shape1.Top+intY*30
end sub

我靠，完了，本来应该坐沙发的，可惜现在才提交

If Adodc1.Recordset.EOF = False Then
Adodc1.Recordset.MoveNext
Else
a = MsgBox("记录已经到结尾…!", 16, "错误")
Adodc1.Recordset.MoveFirst
eixt sub
End If

这个会在最后一条记录有有条空记录

为什么会有这个空记录呢 ？~~怎么修改下程序使最后一条记录后面的空显示不显示
到 最后一条就记录就弹出对话框哈！

或者便于理解直接用 if Adodc1.Recordset.recordcount>0 then

我的意思不是程序运行不出来  而是  我说这个语句运行出来  第一条记录前有条空记录
最后一条记录也有条空的  可以用什么方法消除这种现象么？

设计模式下修改一下 Adodc1 的 BOFAction、EOFAction 属性，默认应该是 0。

谢谢了啊

在数据库里把空记录删除了

请问在OWC编程中如何移动坐标轴的标题？坐标轴的标题一般居中，我想将其移动其它位置，使用了如下语句且提示有错：
oChart.Axes(chAxisPositionLeft).Title.Left = 60
报错住信息是：实时错误 '-2147467259（80004005）此时不适合更改布局'。请各位高手帮忙解答！！！

有点难度哦

请问如何在VB中将文字左右移动，或者上下移动，实现平滑移动，就是没有闪烁的情况出现，请高手帮忙，谢谢

在TIMER中用MOVE方法来移动,移动的频率低一点,移动的幅度小一点

这个方法不能从根本解决这个问题啊
我是想无论客户设置移动速度是多少，都不会出现闪烁的情况

平滑不平滑就一是速度的问题。二就是刷新区域的问题。速度越快，区域越小就越平滑，无它。

Set wordApp = Word.Application
With wordApp.Selection
.MoveDown Unit:=wdline, Count:=4
.Font.Bold = False
.Font.Name = "黑体"
.Font.Size = 12
.TypeText "中学学历公证书"
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.MoveDown Unit:=wdParagraph, Count:=10
.Font.Bold = False
.Font.Name = "宋体"
.Font.Size = 24
.TypeText "大学学历公证书"
.ParagraphFormat.Alignment = wdAlignParagraphLeft
end With
为什么用MoveDown 移动的时候上面的Count值修改时为什么没有变化。
我想控制光标的移动该怎么办？恳请大家帮助！

我想在vb窗口移动时　实现一些效果，求助怎么实现

用了setwindowlong   这个api函数，一用vb就自动关闭

求助！！！

窗口子类化以后，对如下的消息：WM_WINDOWPOSCHANGING、WM_WINDOWPOSCHANGED做出反应和处理，就可以实现相应的效果。例如将窗口限制在屏幕内等。

路过…………………….

我想做的效果是　当点击关闭按纽时，不是关闭　而是　最小化，象ＭＳＮ一样的．
哪位可以帮帮我啊？

拦截   WM_CLOSE   消息（吃掉），然后调用   SetWindowPlacement   函数或者发送   WM_SYSCOMMAND（wParam   参数为   SC_MINIMIZE）消息即可。

Private   Sub   Form_QueryUnload(Cancel   As   Integer,   UnloadMode   As   Integer)
Cancel   =   True
Me.WindowState   =   1
End   Sub

lailai1983()   (   )   信誉：100         Blog       加为好友     2007-5-20   23:11:46     得分:   0    
 
 
     
我想做的效果是　当点击关闭按纽时，不是关闭　而是　最小化，象ＭＳＮ一样的．
哪位可以帮帮我啊？

//

如果仅是此功能,没有必要使用子类化…..楼上就OK了.  

我在picture1中用image 加载了100张照片,我想用VScrollBar滚动条垂直移动这些图片?谢谢

前提是Picture1要足够大，足已容纳下所以的图片
Picture2可以调整到合适的大小，不一定很大
然后把Picture1放到Picture2里面

参考:http://www.21code.com/school/artical_837.html

这个网上有很多例子,我帮你找一个:
http://www.programfan.com/article/showarticle.asp?id=1454