vb中如何如何实现按下命令按钮光标左移动一个单位
菜鸟一个望大家帮帮忙 --------------------编程问答----------------------------------------编程问答-------------------- 你的问题很不明确：
Option Explicit
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Dim p As POINTAPI
GetCursorPos p
SetCursorPos p.x - 1, p.y
End Sub
移动一个单位？什么是你所说的单位，一个字符？同时，是什么控件里的单位，是网格里的一个单元格，还是文本框里的一个字符，还是别人根本想不到的其它控件里的其它单位？
下面我仅以文本框为列，代码是放到一个命令按钮里的，表单中还要放一个Text1，里面输入一个字符，把光标点到尾，然后你每点一下按钮，光标就会向左走一个字符。
thisform.text1.SelStart=thisform.text1.SelStart+1
thisform.text1.SetFocus --------------------编程问答-------------------- 你的问题很不明确：
移动一个单位？什么是你所说的单位，一个字符？同时，是什么控件里的单位，是网格里的一个单元格，还是文本框里的一个字符，还是别人根本想不到的其它控件里的其它单位？
下面我仅以文本框为列，代码是放到一个命令按钮里的，表单中还要放一个Text1，里面输入一个字符，把光标点到尾，然后你每点一下按钮，光标就会向左走一个字符。
thisform.text1.SelStart=thisform.text1.SelStart+1
thisform.text1.SetFocus --------------------编程问答-------------------- 嗯，单位是什么，字符吧。 --------------------编程问答-------------------- 是一个字符 可是3楼的代码 不行e --------------------编程问答--------------------
你没有thisform这个窗体吧,那就把thisform.这些都删除了.
Text1.SelStart = Text1.SelStart + 1
Text1.SetFocus --------------------编程问答-------------------- 额， 正在研究
补充：VB , 基础类
