精华内容
下载资源
问答
  • vb~鼠标定位系统

    2016-12-21 18:11:04
    vb实现的鼠标定位
  • word vba 控制光标常用代码

    千次阅读 2019-03-23 23:45:20
    Selection.MoveDown Unit:=wdLine, Count:=1'光标下移一行 ’选中光标所在行 With Selection .HomeKey Unit:=wdLine, Extend:=wdExtend .MoveEnd Unit:=wdLine, Count:=1 End With 移动光标至文档开...

        Selection.MoveDown Unit:=wdLine, Count:=1'光标下移一行
        ’选中光标所在行
        With Selection
            .HomeKey Unit:=wdLine, Extend:=wdExtend
            .MoveEnd Unit:=wdLine, Count:=1
        End With
    移动光标至文档开始
    Selection.HomeKey unit:=wdStory
    下面的供参考:
    Sub MoveToCurrentLineStart()
    '移动光标至当前行首
    Selection.HomeKey unit:=wdLine
    End Sub
    Sub MoveToCurrentLineEnd()
    '移动光标至当前行尾
    Selection.EndKey unit:=wdLine
    End Sub
    Sub SelectToCurrentLineStart()
    '选择从光标至当前行首的内容
    Selection.HomeKey unit:=wdLine, Extend:=wdExtend
    End Sub
    Sub SelectToCurrentLineEnd()
    '选择从光标至当前行尾的内容
    Selection.EndKey unit:=wdLine, Extend:=wdExtend
    End Sub
    Sub SelectCurrentLine()
    '选择当前行
    Selection.HomeKey unit:=wdLine
    Selection.EndKey unit:=wdLine, Extend:=wdExtend
    End Sub
    Sub MoveToDocStart()
    '移动光标至文档开始
    Selection.HomeKey unit:=wdStory
    End Sub
    Sub MoveToDocEnd()
    '移动光标至文档结尾
    Selection.EndKey unit:=wdStory
    End Sub
    Sub SelectToDocStart()
    '选择从光标至文档开始的内容
    Selection.HomeKey unit:=wdStory, Extend:=wdExtend
    End Sub
    Sub SelectToDocEnd()
    '选择从光标至文档结尾的内容
    Selection.EndKey unit:=wdStory, Extend:=wdExtend
    End Sub
    Sub SelectDocAll()
    '选择文档全部内容(从WholeStory可猜出Story应是当前文档的意思)
    Selection.WholeStory
    End Sub
    Sub MoveToCurrentParagraphStart()
    '移动光标至当前段落的开始
    Selection.MoveUp unit:=wdParagraph
    End Sub
    Sub MoveToCurrentParagraphEnd()
    '移动光标至当前段落的结尾
    Selection.MoveDown unit:=wdParagraph
    End Sub
    Sub SelectToCurrentParagraphStart()
    '选择从光标至当前段落开始的内容
    Selection.MoveUp unit:=wdParagraph, Extend:=wdExtend
    End Sub
    Sub SelectToCurrentParagraphEnd()
    '选择从光标至当前段落结尾的内容
    Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend
    End Sub
    Sub SelectCurrentParagraph()
    '选择光标所在段落的内容
    Selection.MoveUp unit:=wdParagraph
    Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend
    End Sub
    Sub DisplaySelectionStartAndEnd()
    '显示选择区的开始与结束的位置,注意:文档第1个字符的位置是0
    MsgBox ("第" & Selection.Start & "个字符至第" & Selection.End & "个字符")
    End Sub
    Sub DeleteCurrentLine()
    '删除当前行
    Selection.HomeKey unit:=wdLine
    Selection.EndKey unit:=wdLine, Extend:=wdExtend
    Selection.Delete
    End Sub
    Sub DeleteCurrentParagraph()
    '删除当前段落
    Selection.MoveUp unit:=wdParagraph
    Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend
    Selection.Delete
    End Sub

     

    展开全文
  • 我需要在指定位置输出表格 表格前后都有一段固定文字 怎么将表格输出 主要就是不知道应该怎么定位 或是查找字符"AAA"并替换为表格 例:有如下WORD文档 ...请指点下,我是VB新手,望能给出实现代码.
  • vb代码片总结

    2018-03-04 21:25:48
    定位光标 txt1 .SetFocus 改变放置光标时文字的颜色 Private Sub Form_MouseMove(Button As Integer , Shift As Integer , X As Single , Y As Single ) Label2.ForeColor = QBColor( ...

    总结的再多,比不上拉出来溜溜。
    ——–20180505留


    类似main函数的感觉

    Private Sub Form_Load()
    
    End Sub

    强制显式声明模块中的所有变量,变量必须预先声明之后才能使用

    Option Explicit

    定义变量,数组(预/后定义数组成员数量)

    option string variant object
    integer single double long const

    Dim i As Integer
    Dim x&
    Dim i(10) As Double
    Dim i() As Const

    赋值与计算

    i = 1
    sum = 1 + 1
    i = i +1
    i = sum + i

    随机数

    a = Int(Rnd * 6) 'Rnd生成0~1的数 Int()取整

    If语句与循环语句

    For n = 1 To 100
        If n Mod 5 = 0 Then
            Print n
        Else 
            End
        End If
    Next n

    选择语句

    Select Case Index
        Case 0
             lblshow.FontSize = 12
        Case 1
             lblshow.FontSize = 14
        Case 2
             lblshow.FontSize = 16
        Case 3
             lblshow.FontSize = 18
    End Select

    屏幕输入与输出

    x = Val(InputBox("请输入横坐标x的值:"))  'Val强制转换为数字
    Print "该点在第一象限。"
    MsgBox "无效密码,请重试!", , "登录失败"
    Text1.Text = UCase(Text1.Text) '全部小写
    Text1.Text = LCase(Text1.Text) '全部大写

    信息框类型

    Private Sub Form_Click()
        Dim x As Integer
        x = MsgBox("你单击的是窗体,是吗?", 35, "询问框")
        If x = 6 Then
            MsgBox "你选择了“是”按钮", vbInformation, "信息框"
        ElseIf x = 7 Then
            MsgBox "你选择了“否”按钮", vbInformation, "信息框"
        ElseIf x = 2 Then
            MsgBox "你选择了“取消”按钮", vbInformation, "信息框"
        End If
    End Sub

    居中显示

    Label1.Top = (Form1.ScaleHeight - Label1.Height) / 2
    Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2

    随机移动

    cmdno.Move Rnd * 2000 + 500, Rnd * 2000 + 500

    滚动文字或图片

    If x = 8 Then x = 1
        x = x + 1
        img.Left = img.Left + 100
    If img.Left > Me.ScaleWidth Then
        img.Left = -700

    伪flash

    Select Case x
        Case 1
            img2.Picture = img1(0).Picture
        Case 2
            img2.Picture = img1(1).Picture
        Case 3
            img2.Picture = img1(2).Picture
        Case 4
            img2.Picture = img1(3).Picture
        Case 5
            img2.Picture = img1(4).Picture
        Case 6
            img2.Picture = img1(5).Picture
        Case 7
            img2.Picture = img1(6).Picture
        Case 8
            img2.Picture = img1(7).Picture
    End Select

    随光标移动

    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        lbl1.Move X, Y
    End Sub

    键盘控制移动
    KeyAscii代表键位对应的ASCII码

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = 37 Then
            Shape1.Left = Shape1.Left - 100
        ElseIf KeyCode = 38 Then
            Shape1.Top = Shape1.Top - 100
        ElseIf KeyCode = 39 Then
            Shape1.Left = Shape1.Left + 100
        ElseIf KeyCode = 40 Then
            Shape1.Top = Shape1.Top + 100
        End If
    End Sub

    隐藏、显示与卸载窗体

    Form1.Hide
    Form2.Show
    Unload Me

    显示或隐藏控件

    cmdyes.Visible = False
    cmdno.Visible = False

    定位光标

    txt1.SetFocus

    改变放置光标时文字的颜色

    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Label2.ForeColor = QBColor(13)
    End Sub
    
    Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Label2.ForeColor = vbBlue
    End Sub

    定时器Timer

    Private Sub Form_Load()
        delaytime = 0
        Timer1.Enabled = True
    End Sub
    
    Private Sub Timer1_Timer()
        If delaytime >= 100 Then
            Timer1.Enabled = False
            End
        Else
            delaytime = delaytime + 1
        End If
    End Sub

    获得当前时间

    lbl3.Caption = Year(Date)
    lbl5.Caption = Month(Date)
    lbl7.Caption = Day(Date)
    txt1.Text = Date
    txt2.Text = Time
    endtime = Now   
    Label1.Caption = Format(Now, "hh:mm:ss  AM/PM") '12小时制
    Label1.Caption = Time '24小时制

    画太极图

    Option Explicit
    Dim x%, y%, r%
    Const pi = 3.1415926
    
    Private Sub Form_Activate()
        x = ScaleWidth / 2
        y = ScaleHeight / 2
        Circle (x, y), ScaleHeight / 2
        Circle (ScaleWidth / 2, ScaleHeight / 4), ScaleHeight / 4, , pi / 2, 3 * pi / 2
        Circle (ScaleWidth / 2, 3 * ScaleHeight / 4), ScaleHeight / 4, , 3 * pi / 2, pi / 2
        FillStyle = 0 '填充方式
        Circle (ScaleWidth / 2, ScaleHeight / 4), 150
        FillStyle = 0
        Circle (ScaleWidth / 2, 3 * ScaleHeight / 4), 150
    End Sub

    画矩形

    pic1.Cls
        pic1.Line (pic1.ScaleLeft + 100, pic1.ScaleTop + 100)-(pic1.ScaleWidth - 100, pic1.ScaleHeight - 100), , BF

    选择颜色

    Private Sub Command1_Click()
        cdl1.ShowColor
        Shape1.BorderColor = cdl1.Color
    End Sub

    显示特定类型文件

    Select Case Index
        Case 0
            File1.Pattern = "*.*"
        Case 1
            File1.Pattern = "*.txt"
        Case 2
            File1.Pattern = "*.jpg;*.bmp;*.tif"
        Case 3
            File1.Pattern = "*.mp3;*.wav;*.avi;*.dat"
    End Select

    定位目录

    Dir1.Path = "C:\WINDOWS"
    File1.Path = Dir1.Path
    Dir1.Path = Drive1.Drive

    打开exe文件

    Dim x
        Select Case Index
            Case 0
                x = Shell("C:\WINDOWS\NOTEPAD.EXE", 1)
            Case 1
                MsgBox ("自己找")
                'x = Shell("C:\Program Files\Microsoft Office\Office\WINWORD.EXE", 3)
            Case 2
                MsgBox ("自己找")
                'x = Shell("C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE", 3)
            Case 3
                x = Shell("C:\WINDOWS\explorer.exe", 1)
    End Select

    打开图片

    cdl1.Filter = "图片文件(*.bmp;*.jpg;*.tif)|*.bmp;*.jpg;*.tif"
    cdl1.ShowOpen
    img1.Picture = LoadPicture(cdl1.FileName)

    播放音乐

    Private Sub Command1_Click()
        mci1.Command = "close"
        mci1.Notify = False
        mci1.Wait = True
        mci1.FileName = App.Path & "\UNIT.mp3" 'Oder .MID Dokument?
        mci1.Command = "open"
        mci1.Notify = True
        mci1.Wait = False
        mci1.Command = "play"
        Label1.Caption = mci1.FileName
    End Sub

    播放视频

    Private Sub Command1_Click()
        mci1.Command = "close"
        mci1.Notify = False
        mci1.Wait = True
        mci1.FileName = App.Path & "\clock.avi"
        mci1.Command = "open"
        mci1.Notify = True
        mci1.Wait = False
        mci1.Command = "play"
    End Sub

    嵌入或链接EXCEL

    Private Sub Command1_Click()
        OLE1.Class = "excel.sheet.8"
        OLE1.SourceDoc = App.Path & "\新建 Microsoft Excel 工作表.xlsx"
        OLE1.Action = 0
    End Sub
    
    Private Sub Command2_Click()
        OLE2.Class = "excel.sheet.8"
        OLE2.SourceDoc = App.Path & "\新建 Microsoft Excel 工作表.xlsx"
        OLE2.Action = 1
    End Sub

    删除文件

    Dim killedfile As String, choicedfile As String
    Dim x
        If Right(Dir1.Path, 1) = "\" Then
            choicedfile = Dir1.Path + File1.FileName
        Else
            choicedfile = Dir1.Path + "\" + File1.FileName
        End If
    killedfile = choicedfile
    x = MsgBox("你确实要删除文件吗?", 35, "确认框")
    If x = 6 Then
        Kill killedfile
        MsgBox "文件已删除!请查看计算机上该文件所在的路径。", , "信息提示"
    End If

    复制文件

    Dim sourfile As String
    Dim destfile As String
    If Right(Dir1.Path, 1) = "\" Then
        sourfile = Dir1.Path + File1.FileName
    Else
        sourfile = Dir1.Path + "\" + File1.FileName
    End If
        destfile = InputBox("请输入要复制的目的文件", "输入框")
    If destfile <> "" Then
        FileCopy sourfile, destfile
        MsgBox "文件已被复制,请查看计算机上该文件的路径。", , "提示框"
    End If

    修改文件名

    Dim oldname As String
    Dim newname As String
    If Right(Dir1.Path, 1) = "\" Then
        oldname = Dir1.Path & File1.FileName
    Else
        oldname = Dir1.Path & "\" & File1.FileName
    End If
    newname = InputBox("请输入新文件名", "输入框")
    If newname <> "" Then
        Name oldname As newname
        MsgBox "文件名已被更改,请查看该文件所在的路径。", , "提示框"
    End If
    展开全文
  • VB6.0获取插入符坐标

    2021-05-11 12:33:58
    VB6.0获取插入符坐标,当光标在窗体上移动时,会定位到此处的坐标值并显示出来,在做一些图像处理或文本处理程序时,这些可以作为辅助信息显示给使用者。本程序可以显示插入符的横坐标、纵坐标等信息。 运行环境:...
  • 光标定位到某个控件

    千次阅读 2015-09-21 09:21:04
    //如何将光标移到tbUsername this.tbUsername.Focus();
                    //如何将光标移到tbUsername
                    this.tbUsername.Focus();

    展开全文
  • 用js为文本框添加内容后,为了方便操作想要把光标定位到文本最后,用了以下代码   function setCss(opt){ var sr=document.getElementById("textarea-1"); var len=sr.value.length; setSelectionRange...

    用js为文本框添加内容后,为了方便操作想要把光标定位到文本最后,用了以下代码

    <textarea id="textarea-1" οnfοcus="setCss(this)" > </textarea>

    <script type="text/javascript">

    function setCss(opt){
    var sr=document.getElementById("textarea-1");

    var len=sr.value.length;
    setSelectionRange(sr,len,len); //将光标定位到文本最后 
    }

    function setSelectionRange(input, selectionStart, selectionEnd) {
     if (input.setSelectionRange) {  
       input.focus();  
       input.setSelectionRange(selectionStart, selectionEnd);  
     }  
     else if (input.createTextRange) {  
       var range = input.createTextRange();  
       range.collapse(true);  
       range.moveEnd('character', selectionEnd);  
       range.moveStart('character', selectionStart);  
       range.select();  
     }  
    }  

    </script>

    展开全文
  • 在DataGridView某个单元格正处于编辑状态时,如何将鼠标的编辑光标自动定位到特定位置。 如下图:将输入光标定位到test字符串中间: 现实生活中,在医院、汽车、银行等窗口单位的时候,工作人员很少用到鼠标,...
  • VB怎么让文本框滚动条滚动text自带的那个滚动条,我要的是写代码让滚动条移动的...给个思路就好~~VB中让文本框滚动条滚动,首先要设置文本框的属性值Mutiline属性为true;其次,设置文本框的Scrollbars的属性为...
  • 光标形状汇总

    千次阅读 2016-04-07 09:55:26
    VB Me.Cursor = System.Windows.Forms.Cursors.WaitCursor '光标变成漏斗状 Me.Cursor = System.Windows.Forms.Cursors.Default '光标恢复正常 C# this.Cursor = System.Windows.Forms.Cursors.WaitCursor;
  • VB语言来实现TAB健来切换内容!
  • VB异常处理 (很重要) ado常见错误 ado游标及锁定介绍 免费报表控件 免费表格控件 vb数据类型(很多程序出问题出在这个,一定要看,VB msdn说的不太对) VB可用的AES加密sqlite_odbc 及 cairo_sqlite ...
  • VB 使用总结

    2019-11-26 16:22:30
    VB参考 官方文档 调用方法 function 参数1,参数2..... 清除单元格内容不清除公式 Worksheets("Sheet1").Range("a2:I1000000").SpecialCells(2).ClearContents 读取数据库表数据到excel表中 Dim rs As New ...
  • VB编程资源大全

    2007-10-17 20:47:23
    useanicursor.zip 在VB中使用Ani光标(6KB) 94,maxmin1.zip 控制窗口尺寸1(6KB) 95,maxmin2.zip 控制窗口尺寸2(8KB) 96,dissysmenu.zip 将任务栏的关闭按钮设为无效(6KB) 97,hidemenu....
  • VB中对EXCEL的各种操作

    万次阅读 多人点赞 2017-02-08 15:20:15
    VB操作excel方法汇总 Private Sub Command3_Click()    Dim i As Long  Dim j As Long  Dim objExl As Excel.Application '声明对象变量  Me.Mouse...
  • vb学生成绩管理系统

    2013-06-28 08:55:24
    Text1.SetFocus '定位光标 Exit Sub End If If Text2.Text = "" Then MsgBox "未输入姓名,请重新输入数据!", vbCritical + vbOKOnly Text2.SetFocus '定位光标 Exit Sub End If '首先查询表中是否存在...
  • vb listview 选中某一行

    千次阅读 2011-11-17 15:14:00
    引用:...   前提,不能放在Form_Load 中实现,因为当时窗口还没有加载完,所以不能获取窗口上某一控件的焦点 If ListViewForNow.ListItems.Count &lt;&gt; 0 Then ListViewForNo...
  • 不错VB代码,收藏!!!

    万次阅读 2005-12-09 13:00:00
    VB未公开的三个函数ObjPtr,StrPtr,VarPtr 'Form Code: 'ObjPtr: 返回对象实例私有域的地址 'StrPtr: 返回字符串第一个字的地址 'VarPtr: 返回变量的地址 '使用对象浏览器(Object Browser),你可以发现更多其他对象...
  • 全国计算机二级《VB》常考知识点汇总Visual Basic(简称VB)是一种在计算技术发展历史上应用得最为广泛的语言,是计算机二级考试科目之一,以下是百分网小编搜索整理的关于全国计算机二级《VB》常考知识点汇总,供参考...
  • VB的界面设计

    千次阅读 2012-12-30 16:28:41
    第二章 VB的界面设计   第二章 VB 的界面设计 2.1 VB 用户界面设计基础 1. 概述  界面的设计有两步:先绘制控件,然后确定控件属性。  绘制控件:在工具箱里单击想画的控件,在窗体里按下鼠标并拖曳,...
  • 例:单击Command1时鼠标会到(500,500)这个点作鼠标左键单击动作。 Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Private Declare Sub mouse_event Lib ...
  • 2016计算机二级VB常考知识点汇总成绩的取得离不开我们平时的努力,以下是百分网小编为大家整理的计算机二级VB常考知识点汇总,希望对大家的学习起到帮助!对象的有关概念1. 对象Object:VB中常用的对象有:窗体、控件...
  • VB操作EXCEL方法汇总

    千次阅读 2017-06-22 21:30:44
    (2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 (3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置 (4) On Error GoTo 0 '恢复正常的错误提示 (5) ...
  • 2016计算机二级《VB程序设计》练习题及答案一、选择题1、以下能够触发文本框Change事件的操作是(C)A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容2、应用程序设计完成后,应将程序保存,...
  • 下面小编为大家搜索整理了关于计算机二级《VB》常考知识点,欢迎参考学习,希望对大家备考有所帮助!想了解更多相关信息请持续***应届毕业生考试网!对象的有关概念1. 对象Object:VB中常用的对象有:窗体、控件等。2....
  • 基本操作题请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)1在名称为Form1的窗体上添加一个名称为Label1,标题为“口令”的标签;添加一个名称为Text1的文本框;再添加三个命令按钮,名称分别为...
  • VB全面控制Excel方法大汇总,共300个: 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口:ExcelID.Visible := True; 2) 更改 Excel ...
  • 一、基本操作题,请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)1、在名称为Form1的窗体上添加一个名称为Label1,标题为“口令”的标签;添加一个名称为Text1的文本框;再添加三个命令按钮,名称...
  • VB 实现纯文本的选择等操作,操作对象是TXT格式那种纯字符文本格式,完整的代码如下:  Private Sub Command1_Click()  Text1.Text = "大学毕业生就业形势严峻是当前社会的一大难题,创建社会主义和谐社会是...
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,432
精华内容 1,372
关键字:

vb代码定位光标