精华内容
下载资源
问答
  • VB代码注释器

    2011-10-27 20:09:39
    一个VB的插件,安装后,在VB的界面上增加几个按钮,可以注释代码取消注释代码等,并且支持鼠标中间滑轮滚动,代码跟着滚动,很好用。里面有详细的使用说明
  • TreeView:Contoh源代码VB 6取消菜单菜单alternatif menggunakan komponen TreeView(Microsoft Windows Common Control 6.0)
  • VB编程限制ComboBox下拉框的右键,程序先取得Combo的hwnd,然后记录原本的状态,接下来限制鼠标右键,最后取消鼠标右键事件的截取,恢复原状态。代码中使用了一个bas方法截取鼠标右键按下状态,将之送往原来的Window...
  • VB水费收费管理信息系统,完整的毕业论文设计资料,含VB代码实例,系统功能:用户信息的添加、修改、删除和查询。 水费类型信息的修改、删除和查询。 水费价格信息的删除和查询。 新入用户信息的添加、修改、取消...
  • 以下代码在窗体 程序代码:    Option Explicit ’石陆软件屋 Private Sub Form_Load() g_hOldProc = SetWindowLong(Text1.hwnd, GWL_WNDPROC, AddressOf WndProc) End Sub Private Sub ...
    以下代码在窗体

    程序代码:  
     Option Explicit  
     ’石陆软件屋
     Private Sub Form_Load()  
     g_hOldProc = SetWindowLong(Text1.hwnd, GWL_WNDPROC, AddressOf WndProc)  
     End Sub  
      
     Private Sub Form_Unload(Cancel As Integer)  
     SetWindowLong Text1.hwnd, GWL_WNDPROC, g_hOldProc  
     End Sub  
     以下代码在模块

    程序代码:  
     Option Explicit  
      ’石陆软件屋
     Public Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long  
      
     Public Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long  
      
     Public Const GWL_WNDPROC As Long = -4  
      
     Public Const WM_PASTE As Long = &H302  
      
     Public g_hOldProc As Long  
      
     Public Function WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long  
     If uMsg = WM_PASTE Then  
     WndProc = 0  
     Else  
     WndProc = CallWindowProc(g_hOldProc, hwnd, uMsg, wParam, lParam)  
     End If  
     End Function



    VB部分相关推荐

    VB快速读取 TextBox N 行的资料

    VB禁止使用 Alt-Tab Ctrl-Alt-Del

    生成迷宫的程序

    另一方法转换大小写

    VB控件注册 - 利用资源文件将dllocx打包进exe文件

    VB利用资源文件进行工作

    []vb高效编程(优化)

    VB阳历转阴历

    VB代码取得硬盘的物理序列号

    VB获得磁盘的文件系统

    VB的,经常注册和反注册OCX控件和DLL

    VB从程序中生成Exe文件

    VB6监视/操作剪贴板示例(VB6.0代码)

    VB6里自动提交/自动填表的一种相对通用的方案

    VB移动没有标题的窗体

    VB随机字母的函数

    VB删除带子文件夹和文件的文件夹

    VB怎样屏蔽 Alt+F4

    VB 隐藏进程

    vb屏蔽文本框点右键时的弹出菜单

    VB手控Combobox的打开或收起

    VBINI文件的读写、删除(对中文支持很好)

    vb全局热键的写法(占很少的资源)

    vb取消文本框的粘贴功能

    VB常用文件操作类

    VB获取特殊文件夹

    VB获取windows各常用目录的函数(模块)

    VB生成太极图

    VB:常用内部函数大全,你会了几个呢?

    vbSendMessage函数

    精简VB程序的代码

    VB:将数字转换为大写中文

    VB:设定 MsgBox 在若干时间之后若无回应则自动关闭

    VB:读取及设定NumLock/CapsLock/ScrollLock的值

    VB:您知道 Mid$ 函量可以放在 '=' 的左方吗

    VB后台获得按键,并执行自己的函数(非钩子及热键)

    VB:将短文件名格式转成长文件名

    vb中使用Iphlpapi.dll获取网络信息(上)

    vb中使用Iphlpapi.dll获取网络信息(下)

    更多精彩>>>

    展开全文
  •  由VB代码开发的C语言编辑器,软件功能:  1.具备记事本的所有编辑功能;  2.实现了与TC.计算器.WINDOWS自带游戏的连接,切换快捷;秘籍:若你单击子窗体上的日期标签将会弹出本软件自带的打字游戏.  3.查找与...
  • 输入密码,不正确弹出一个提示框“密码错误”;正确--选择--1,字体增大、缩小、下划线(第二次点击取消下划线);2,label有无边框,透明、不透明
  • 摘要:VB源码,图形处理,图片浏览  VB编写的图片浏览标记器,可以快速的浏览电脑中图片,基本支持所有图片格式,JPG,PNG,GIF,BMP等,可以针对性的对照片进行放大、缩小,标记文件,处理标记等,支持上一张、下...
  • VB开机启动项管理程序附代码,'将以上代码存为模块。 '调用方法: '设为开机自动运行则用Call SetAutoRun(True) '取消开机自动运行则为 Call SetAutoRun(false)
  • vb写自动在下午7点关机的代码。要加一个timer控件,频率随便设,一个按钮(为了取消关机),窗口设置为隐藏,并且开机自动启动。
  • VB 6.0 OpenPlayer Flash播放器源代码,最后一次更新修改了SimplePlayer 在运行时没有选取择文件就退出 出现非法操作的Bug,添加了[屏蔽快捷键的功能],主要是为一些游戏而设的,在播放窗口的右键[控制]->[屏蔽...
  • 仓库管理系统源代码 VB ACCESS

    千次下载 热门讨论 2009-01-08 19:48:30
    "退出入库单"是取消入库,但不一定能成功,因为要看入库的仓库剩余的库存量.虽然退出,但入库所有的"其它金额"依然存在.而"删除入库单"则是删除,没有“其它金额",一般是盘点后的操作或入库单的误操作. 出库单: 同...
  • VB6网络应用源代码34个全公开 目录: API获取全部系统路径参数 DoFiileDownload实现软件下载 GetComputerNameEx获取NetBIOS名,DNS主机名 Internet Transfer InternetAttemptConnect有bug试图连接InterNet ...
  • C#和VB的分析器库,使用进行重构,代码分析和其他功能。 在上检查官方项目站点。 在这里,您会找到有关如何捐款,我们的任务委员会,完成的定义,准备的定义等信息。 您可以使用以下语言找到此文档 这是一个免费...
  • 登陆界面两个文本框分别输入账号密码,一个登陆按钮和一个取消按钮,怎样实现啊,求大神?
  • 初涉VB.NET入门级代码积累

    千次阅读 2006-12-04 17:45:00
    [代码1]说明:这就是取消关闭的事件,执行对窗体退出方面的控制。其中没见过的只有Dispose()这个方法,MSDN里看到是释放某托管对象的应用,还不了解。日后懂了再记录于此。 Protected Overloads Overrides Sub ...

    [代码1]
    说明:这就是取消关闭的事件,执行对窗体退出方面的控制。
    其中没见过的只有Dispose()这个方法,MSDN里看到是释放某托管对象的应用,还不了解。日后懂了再记录于此。


       

        Protected Overloads Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs)
            e.Cancel = True
            Me.WindowState = FormWindowState.Minimized
            Hide()
            '----------------------------------------------------------------------------
            '显示()
            'Me.Show()
            'Me.WindowState = FormWindowState.Normal
            '隐藏()
            'Me.WindowState = FormWindowState.Minimized
            '退出()
            'Me.Dispose()
            'Me.Hide()
            '----------------------------------------------------------------------------
        End Sub
      

     
       
    [代码2]
    说明:这简单的几个字,就实现了按关联打开文件。这在从前要调API才能实现。事情简单了不少。
    功能:启用关联的进程打开所选中的文件。


                Dim pr As New Process '新建一个进程类
                pr.Start("C:/test.txt") '打开的文件
                pr.Close() '关闭进程

    [代码3]

    说明:MessageBox的调用,改变了的某些地方
    功能:不必说了吧。
    应用:随处可见。

    ·参数资料

    成员   值 说明 
    --------------------------------------------------------------------------------------------------------
    OKOnly   0 只显示“确定”按钮。
    OKCancel  1 显示“确定”和“取消”按钮。
    AbortRetryIgnore 2 显示“中止”、“重试”和“忽略”按钮。
    YesNoCancel   3 显示“是”、“否”和“取消”按钮。
    YesNo     4 显示“是”和“否”按钮。
    RetryCancel   5 显示“重试”和“取消”按钮。
    ........................................................................................................
    Critical   16 显示“关键消息”图标。
    Question  32 显示“警告查询”图标。
    Exclamation   48 显示“警告消息”图标。
    Information  64 显示“信息消息”图标。
    ........................................................................................................
    DefaultButton1  0 第一个按钮是默认的。
    DefaultButton2  256 第二个按钮是默认的。
    DefaultButton3  512 第三个按钮是默认的。
    ........................................................................................................
    ApplicationModal 0 应用程序是有模式的。用户必须响应消息框,才能继续在当前应用程序中工作。
    SystemModal  4096 系统是有模式的。所有应用程序都被挂起,直到用户响应消息框。
    ........................................................................................................
    MsgBoxSetForeground 65536 指定消息框窗口为前景窗口。
    MsgBoxRight  524288 文本为右对齐。
    MsgBoxRtlReading 1048576 指定文本应为在希伯来语和阿拉伯语系统中从右到左显示。
    --------------------------------------------------------------------------------------------------------
    第一组值 (0–5) 描述对话框中显示的按钮数量和类型。
    第二组值 (16, 32, 48, 64) 描述图标样式。
    第三组值 (0, 256, 512) 确定默认使用哪个按钮。
    第四组值 (0, 4096) 确定消息框的模式性,
    第五组值指定消息框窗口是否为前台窗口,以及文本对齐和方向。
    将这些数字相加以生成 Buttons 参数的最终值时,只能由每组值取用一个数字。


    ·返回值

    常数   值 
    OK  1
    Cancel  2
    Abort  3
    Retry  4
    Ignore  5
    Yes   6
    No   7
     

    ·例程:

    Dim msg As String
    Dim title As String
    Dim style As MsgBoxStyle
    Dim response As MsgBoxResult
    msg = "Do you want to continue?"   '定义信息内容
    style = MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Critical Or MsgBoxStyle.YesNo  '用OR连接常量,常量的表达方式属性化
    title = "MsgBox Demonstration"   ' 标题,没可说的
    '调对话框的显示,接收返回值
    response = MsgBox(msg, style, title)
    '依用户选择做处理
    If response = MsgBoxResult.Yes Then   
       ' Perform some action.
    Else
       ' Perform some other action.
    End If
     



    [代码4]
    说明:这是经过C# to VB.NET引擎转换的结果,我做了修整,正确运行没问题了。为了保证日后的应用,我保留了C#的代码以应不时之需。
    功能:以二进制读/写文件的例子,这是为日后处理一些数据文件做准备。很多时候数据没办法以文本形式保存。如果想应用加密算法,也需要以二进制方式按结构存储。

    Imports System
    Imports System.IO
    Imports System.Text
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            '写二进制文件
            Dim bw As BinaryWriter
            Dim fs As FileStream = New FileStream("C:/mydata.data", FileMode.Create)
            bw = New BinaryWriter(fs)
            Dim i As Integer = 0
            While i < 200
                bw.Write(i)
                System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
            End While
            bw.Close()
        End Sub
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            '读二进制文件
            Dim br As BinaryReader
            Dim str As String = ""
            Dim fs As FileStream = New FileStream("C:/mydata.data", FileMode.Open)
            br = New BinaryReader(fs)
            Dim i As Integer = 0
            While i < fs.Length / 4
                str += br.ReadInt32.ToString
                System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
            End While
            TextBox1.Text = str
        End Sub
    
    
    



    [代码5]
    说明:一个来自MSDN的关于读写数据文件的例程。中间涉及了BinaryWriter 和 BinaryReader两个操作二进制读写的类。

    Option Explicit On 
    Option Strict On
    Imports System
    Imports System.IO
    Class MyStream
        Private Const FILE_NAME As String = "Test.data"
        Public Shared Sub Main()
            ' Create the new, empty data file.
            If File.Exists(FILE_NAME) Then
                Console.WriteLine("{0} already exists!", FILE_NAME)
                Return
            End If
            Dim fs As New FileStream(FILE_NAME, FileMode.CreateNew)
            ' Create the writer for data.
            Dim w As New BinaryWriter(fs)
            ' Write data to Test.data.
            Dim i As Integer
            For i = 0 To 10
                w.Write(CInt(i))
            Next i
            w.Close()
            fs.Close()
            ' Create the reader for data.
            fs = New FileStream(FILE_NAME, FileMode.Open, FileAccess.Read)
            Dim r As New BinaryReader(fs)
            ' Read data from Test.data.
            For i = 0 To 10
                Console.WriteLine(r.ReadInt32())
            Next i
            r.Close()
            fs.Close()
        End Sub
    End Class

    ·原C#代码

    private void Button3_Click(object sender, System.EventArgs e)
      {
       //写二进制文件
       BinaryWriter bw;
          //创建一个二进制文件
       FileStream fs=new FileStream (MapPath("mydata.data"),FileMode.Create );
       bw=new BinaryWriter (fs);//初始化一个BinaryWriter
       for(int i=0;i<200;i++)
        bw.Write (i);//写入
       bw.Close ();//关闭
      }
    private void Button4_Click(object sender, System.EventArgs e)
      {
       //读二进制文件
       BinaryReader br;
       string str="";
       FileStream fs=new FileStream (MapPath("mydata.data"),FileMode.Open );
       br=new BinaryReader (fs);  
       for(int i=0;i<fs.Length /4;i++)
         str+=br.ReadInt32 ().ToString ();
       TextBox1.Text =str;
      }


    [代码6]
    说明:这是更新为用缓冲区读取拷贝文件的代码,4096原来是NTFS下一个簇的大小,虽然代码中留出了自定义单位的可选参数,但不在必要时不要去改变。拷贝过程抽象为一个FORM的私有方法,其间输出显示的代码还可以再简化。

        Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
            Dim str As String
            Select Case BinCopyFile(TextBox1.Text, TextBox2.Text)
                Case 0
                    str = "复制成功完成!"
                Case 1
                    str = "源文件不存在。"
                Case 2
                    str = "源文件与目标文件不能为同一文件。"
                Case 3
                    str = "因输出文件已存在而且不允许覆盖,操作被取消。"
                Case Else
            End Select
            MsgBox(str, MsgBoxStyle.Information Or MsgBoxStyle.OkOnly, "操作结果")
        End Sub
    
        Private Function BinCopyFile(ByVal SourceFile As String, ByVal CopyToFile As String, Optional ByVal MAX As Integer = 4096)
            '判断"SourceFile"-源文件是否存在.
            If Not File.Exists(SourceFile) Then
                Console.WriteLine("错误:源文件不存在。[BY BinCopyfile()]")
                Return 1
            End If
            '判断源文件与目标文件是否为同一文件
            If SourceFile = CopyToFile Then
                Console.WriteLine("错误:源文件与目标文件不能为同一文件。[BY BinCopyfile()]")
                Return 2
            End If
            '判断"CopyToFile"-被拷贝文件是否已存在,存在时询问是否覆盖.
            If File.Exists(CopyToFile) Then
                If MsgBox("目标文件已经存在,是否覆盖?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "覆盖文件提示") = MsgBoxResult.No Then
                    Console.WriteLine("用户指示:因输出文件已存在而且不允许覆盖,操作被取消。[BY BinCopyfile()]")
                    Return 3
                End If
            End If
     
    
            '建立读取,写入文件的两个对象      
            Dim br As BinaryReader
            Dim bw As BinaryWriter
            Dim fsr As FileStream = New FileStream(SourceFile, FileMode.Open, FileAccess.Read)
            Dim fsw As FileStream = New FileStream(CopyToFile, FileMode.Create)
            br = New BinaryReader(fsr)
            bw = New BinaryWriter(fsw)
            '建立缓冲
            If MAX > fsr.Length Then MAX = fsr.Length
            Dim Buffer(MAX) As Byte
    
            '建立异常处理
            Try
                Dim I As Double
                Dim N As Double = fsr.Length
                Do
                    Buffer = br.ReadBytes(MAX)
                    bw.Write(Buffer)
                    I = fsr.Position
                    Label1.Text = CStr(Int(I / 1024)) & "K /" & CStr(Int(N / 1024)) & "K [" & CStr(Int(I / N * 100)) & "%]"
                    Application.DoEvents()
                Loop While I < N
            Catch ex As IOException
                MsgBox(ex.Message.ToString, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "I/O错误!")
            Finally
                bw.Close()
                br.Close()
            End Try
    
            '返回值
            Return 0
        End Function

           
           
    [代码7]
    说明:我也没想到,现在改一个属性还要以一个堆对象来更新它。font现在是一个对象了,它的属性是只读的了。只能再建一个新的跟它一样对象先赋好值,再用这个对象的句柄替换掉原属性的句柄引用,让引用指到新赋值的对象上去。不知原对象是被怎么处理掉的。

     

           Dim CurrentSize As Single
            CurrentSize = Label1.Font.Size
            CurrentSize += 2.0F
            'CurrentSize -= 2.0F
            Label1.Font = New Font(Label1.Font.Name, CurrentSize, Label1.Font.Style, Label1.Font.Unit)

    Font类 构造函数 重载列表

    名称 说明 
    Font (IntPtr) 由 .NET Compact Framework 支持。
    Font (Font, FontStyle) 初始化新 Font,它使用指定的现有 Font 和 FontStyle 枚举。
    Font (FontFamily, Single) 使用指定的大小初始化新 Font。
    Font (String, Single) 使用指定的大小初始化新 Font。 
    Font (FontFamily, Single, FontStyle) 使用指定的大小和样式初始化新 Font。 由 .NET Compact Framework 支持。 
    Font (FontFamily, Single, GraphicsUnit) 使用指定的大小和单位初始化新的 Font。将此样式设置为 FontStyle.Regular。 
    Font (String, Single, FontStyle) 使用指定的大小和样式初始化新 Font。 由 .NET Compact Framework 支持。 
    Font (String, Single, GraphicsUnit) 使用指定的大小和单位初始化新的 Font。将样式设置为 FontStyle.Regular。 
    Font (FontFamily, Single, FontStyle, GraphicsUnit) 使用指定的大小、样式和单位初始化新的 Font。 
    Font (String, Single, FontStyle, GraphicsUnit) 使用指定的大小、样式和单位初始化新的 Font。 
    Font (FontFamily, Single, FontStyle, GraphicsUnit, Byte) 使用指定的大小、样式、单位和字符集初始化新的 Font。
    Font (String, Single, FontStyle, GraphicsUnit, Byte) 使用指定的大小、样式、单位和字符集初始化新的 Font。 
    Font (FontFamily, Single, FontStyle, GraphicsUnit, Byte, Boolean) 使用指定的大小、样式、单位和字符集初始化新的 Font。
    Font (String, Single, FontStyle, GraphicsUnit, Byte, Boolean) 使用指定的大小、样式、单位和字符集初始化新 Font。 


    -------------------------------------------------------------
    Font.Unit 属性 
    是一个GraphicsUnit,它表示此 Font 的度量单位。这是一个枚举,成员如下:

    Display 指定显示设备的度量单位。通常,视频显示使用的单位是像素;打印机使用的单位是 1/100 英寸。 
    Document 将文档单位(1/300 英寸)指定为度量单位。 
    Inch 将英寸指定为度量单位。 
    Millimeter 将毫米指定为度量单位。 
    Pixel 将设备像素指定为度量单位。 
    Point 将打印机点(1/72 英寸)指定为度量单位。 
    World 将世界坐标系单位指定为度量单位。 

    -------------------------------------------------------------
    FontStyle 属性
    也是一个枚举,也就是说它包括了表示字体样式中的粗体,斜体,下划线等成员属性。另外我还看到了很多“方法”。

    成员名称 - 说明 
    Bold - 加粗文本。 
    Italic - 倾斜文本。 
    Regular - 普通文本。 
    Strikeout - 中间有直线通过的文本。 
    Underline - 带下划线的文本。


    [代码8]
    说明:首先,需要一个Webbrowser1。这代码的功能是在当前目录建立一个HTML结构的页面,然后以file协议导航到上面。代码目前有四种可选,允许扩充。

        Dim FilePath As String = My.Application.Info.DirectoryPath & "/deskWeb.htm"  '相当于VB6的 App.path & "/filename.ext",不过不必再担心根目录时“//”的问题了。
        Private Sub BuildWeb(ByVal N As Integer)
            Dim WriteString As String
            Select Case N
                Case 1
                    '代码1 2008倒记时
                    WriteString = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>北京2008奥运倒计时</title></head><body topmargin='0' leftmargin='0'><script src='http://www.clocklink.com/embed.js'></script><script type='text/javascript' language='JavaScript'>obj = new Object;obj.clockfile = '2008olympic001-orange.swf';obj.TimeZone = 'CCT';obj.width = 450;obj.height = 150;obj.DayU = 'days';obj.HourU = 'hrs';obj.MinU = 'min';obj.SecU = 'sec';obj.Target = '2008,8,8,8,8,0';obj.wmode = 'transparent';showClock(obj);</script></body></html>"
                    Me.Width = 460 : Me.Height = 170
                Case 2
                    '代码2 时钟
                    WriteString = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>clock</title></head><body topmargin='0' leftmargin='0'><P align=center><embed src='http://www.clocklink.com/clocks/0003-Green.swf?TimeZone=CCT' width='200' height='200' wmode='transparent' type='application/x-shockwave-flash'></P></body></html>"
                    Me.Width = 210 : Me.Height = 210
                Case 3
                    '代码3 数字时钟
                    WriteString = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>clock</title></head><body topmargin='0' leftmargin='0'><P align=center><embed src='http://www.clocklink.com/clocks/5005-green.swf?TimeZone=CCT&'  width='180' height='60' wmode='transparent' type='application/x-shockwave-flash'></P></body></html>"
                    Me.Width = 190 : Me.Height = 85
                 Case Else
                    WriteString = "<font size=3 color='#FF0000'>发生调用错误,未找到指定代码。</font>"
            End Select
            '写入到文件中
            My.Computer.FileSystem.WriteAllText(FilePath, WriteString, False)
            '导航到页面,并做异常检测
            Try
                WebBrowser1.Navigate(New Uri("file:///" & FilePath))
            Catch ex As System.UriFormatException
                Return
            End Try
        End Sub


     

    [代码9]
    说明:一些杂七杂八的东西.

     

       '这两个事件中的代码,就能让窗体激活时显示,不激活时变透明.注意Opactity取值是[0,1]区间.
        Private Sub Form2_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
            Me.Opacity = 1
        End Sub
        Private Sub Form2_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate
            Me.Opacity = 0.5
        End Sub

     

       '控件的size属性使其做到了缩放匹配,代码锐减,如果多个控件要保持格局缩放则有控件实现.用代码算坐标的时代结束啦.
        Private Sub Form2_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
            TextBox1.Size = Me.Size
        End Sub
    

     

       '文本文件读写
        Dim FastText As String = My.Application.Info.DirectoryPath & "/FastText.tmp"
        ' My.Application.Info.DirectoryPath 当前程序所在路径
        ' My.Computer.FileSystem.GetTempFileName 生成一个空的临时文件在TEMP路径下(不必加文件名了)
        
        My.Computer.FileSystem.WriteAllText(FastText, TextBox1.Text, False)
        '写入文件.第二个参数不允许为空.第三的参数的布尔值是指示是否覆盖已存在文件的.还有第四个参数,默认UTF-8
        TextBox1.Text = My.Computer.FileSystem.ReadAllText(FastText)
        '读取就只要路径,将返回值赋值就可以了,同样有第二个参数,默认UTF-8

      '窗体与屏幕
        Me.SetDesktopLocation( X,Y)        '窗体移动到X,Y
        My.Computer.Screen.Bounds.Width    'Screen.Width
        My.Computer.Screen.Bounds.Height   'Screen.Height 


    展开全文
  • VB开发的BQ网络聊天系统源程序,数据库采用SQL2005,本BQ聊天系统分为客户端和服务端两个部分,客户端主要用于用户注册和登录、信息的发送等;服务器端主要用于记录用户在线状态和管理注册用户。  操作流程:  (1)...
  • SAMPLE.DSM是微软提供的样例,使用的是vb语言。其中的 CommentOut 函数,是支持块注释的,可是这种/**/的注释方式,有时候用起来不是很方便,因为两个/会因为一个/而终止。对于大块代码,使用//注释,仅需修改原样例...

    SAMPLE.DSM是微软提供的样例,使用的是vb语言。其中的 CommentOut 函数,是支持块注释的,可是这种/**/的注释方式,有时候用起来不是很方便,因为两个/会因为一个/而终止。对于大块代码,使用//注释,仅需修改原样例函数中的少部分代码。
    取消注释的实现,可以在注释的基础上进行修改。两个函数的源码如下:

    Sub CommentOut ()
    'DESCRIPTION: Comments out a selected block of text.
    Dim win
    set win = ActiveWindow
    if win.type <> "Text" Then
     MsgBox "This macro can only be run when a text editor window is active."
    else
    TypeOfFile = FileType(ActiveDocument)  
    If TypeOfFile > 0 And TypeOfFile < 5 Then    'C & Java use the same 
    'style of comments.
    '在这里修改
    'ActiveDocument.Selection = "/*" + ActiveDocument.Selection + "*/"
    CommentType = "//"
    StartLine = ActiveDocument.Selection.TopLine
    EndLine = ActiveDocument.Selection.BottomLine
    For i = StartLine To EndLine
    ActiveDocument.Selection.GoToLine i
    ActiveDocument.Selection.SelectLine
    ActiveDocument.Selection = CommentType + ActiveDocument.Selection
    Next
    ElseIf TypeOfFile = 5 Then
    ActiveDocument.Selection = "<!-- " + ActiveDocument.Selection + " -->"
    ElseIf TypeOfFile = 6 Or TypeOfFile = 7 Then
    'There is no group comment like there is in the other file types, 
    'so we need to iterate through each line, and prepend a ' to the line.
    'Also, because VBS/DEF does not have a 'end the comment at this 
    'particular column' delimiter, entire lines of code must be 
    'commented out, not sections.
    If TypeOfFile = 6 Then 
    CommentType = " ' "
    Else
    CommentType = " ; "
    End If
         
    StartLine = ActiveDocument.Selection.TopLine
    EndLine = ActiveDocument.Selection.BottomLine
    If EndLine < StartLine Then
    Temp = StartLine
    StartLine = EndLine
    EndLine = Temp
    End If
    If EndLine = StartLine Then
    ActiveDocument.Selection = CommentType + ActiveDocument.Selection
    Else 
    For i = StartLine To EndLine
    ActiveDocument.Selection.GoToLine i
    ActiveDocument.Selection.S1electLine
    ActiveDocument.Selection = CommentType + _
    ActiveDocument.Selection
    Next
    End If
    Else
    MsgBox("Unable to comment out the highlighted text" + vbLf + _
    "because the file type was unrecognized." + vbLf + _
    "If the file has not yet been saved, " + vbLf + _
    "please save it and try again.")
    End If
    End If
    End Sub
    
    
    
    Sub UndoCommentOut ()
    'DESCRIPTION: Comments out a selected block of text.
    Dim win
    set win = ActiveWindow
    if win.type <> "Text" Then
     MsgBox "This macro can only be run when a text editor window is active."
    else
    TypeOfFile = FileType(ActiveDocument)  
    If TypeOfFile > 0 And TypeOfFile < 5 Then    'C & Java use the same 
    'style of comments.
    'ActiveDocument.Selection = "/*" + ActiveDocument.Selection + "*/"
    StartLine = ActiveDocument.Selection.TopLine
    EndLine = ActiveDocument.Selection.BottomLine
    For i = StartLine To EndLine
    ActiveDocument.Selection.GoToLine i
    ActiveDocument.Selection.SelectLine
    '在这里修改
    If(Left(ActiveDocument.Selection,2)="//") Then
    ActiveDocument.Selection = Mid(ActiveDocument.Selection,3)
    End If
    Next
    Else
    MsgBox("Unable to undo comment out the highlighted text" + vbLf + _
    "because the file type was unrecognized." + vbLf + _
    "If the file has not yet been saved, " + vbLf + _
    "please save it and try again.")
    End If
    End If
    End Sub

    最近又写了这样一个注释的代码,根据回车+//作为分隔符,直接改写选中块,添加删除都在一个函数中。只是选中时,第一行若是未从行首开始,注释//未必会在行首,难免有点美中不足

    Sub Comment ( )
     TmpBlock = ""
     CmtBlock = ActiveDocument.Selection
     TypeOfFile = FileType(ActiveDocument)
     If TypeOfFile > 0 And TypeOfFile < 5 Then   'C/C++ style comment.
      'Get the first two characters of the comment block.
      Trim(CmtBlock)
      str = vbLf + "//"
    
      If (Left(CmtBlock,2) = "//") Then
       CmtBlock = Mid(CmtBlock,3)
       pos = Instr (CmtBlock,str)
       If pos <> 0 Then 
        Do While pos <> 0
         TmpBlock = TmpBlock + Left (CmtBlock, pos)
         CmtBlock = Mid(CmtBlock, pos + Len(str))
         pos = Instr (CmtBlock,str)
        Loop
        CmtBlock = TmpBlock + CmtBlock
       End If
    
      Else
       CmtBlock = "//" + CmtBlock
       pos = Instr (CmtBlock, vbLf)
       Do While pos <> 0
        TmpBlock = TmpBlock + Left (CmtBlock, pos)_
          + "//"
        CmtBlock = Mid(CmtBlock, pos + 1)
        pos = Instr (CmtBlock, vbLf)
       Loop
       CmtBlock = TmpBlock + Trim(CmtBlock)
       If(Right(CmtBlock,3) = str) Then
        CmtBlock = Left(CmtBlock,Len(CmtBlock) - 3)
        CmtBlock = CmtBlock + vblf
       End If
      End If
      ActiveDocument.Selection = CmtBlock
     Else
      MsgBox "This macro does not work on this type of file."
     End If
     
    End Sub
    

    转载于:https://www.cnblogs.com/wswind/p/9812534.html

    展开全文
  • 上次忘了取消密码,对不起下载的几个同学,这次重新传 《AutoCAD VBA & VB.NET开发基础与实例教程》以Visual studio 2010(编程语言为C#)和AutoCAD 2008中文版(部分实例采用了AutoCAD 2012)为开发平台,通过90个精彩...
  • 代码开始: E_打印.Commands("实验室检查报告").CommandType = adCmdText '--------“实验室检查报告”是数据环境下的一个command----------- E_打印.Commands("实验室检查报告").CommandText ...vb6+sqlserver
  • 这个对于vb.net来说都是太Easy了。我们可以 通过 在 文本框的 KeyPress 事件 中添加代码就可以非常轻松的实现这种效果。比如我们希望文本框中只能输入字符 a ,那么我们可以这样写:Private Sub TextBox1_...

    我们有时希望某个文本框只能输入数字,不能输入字符。有时希望用户在文本框中输入的数字最大不能超过某个值。这个对于vb.net来说都是太Easy了。

    我们可以 通过 在  文本框的 KeyPress 事件  中添加代码就可以非常轻松的实现这种效果。

    比如我们希望文本框中只能输入字符 a ,那么我们可以这样写:

    Private Sub TextBox1_KeyPress(ByVal sender As ObjectByVal e As   System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
            
    If e.KeyChar <> "a" Then
                e.Handled 
    = True
            
    End If
        
    End Sub

    或者

    Private Sub TextBox1_KeyPress(ByVal sender As ObjectByVal e As   System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
            
    If e.KeyChar <> "a" Then
                e.KeyChar 
    = ""
            
    End If
        
    End Sub

    如果想让文本框只能接受数字,则可以这样写(这个是 C#,但是与vb.net只有语法上的差异):

    private void textBox1_KeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e)
    {
          
    if(e.KeyChar<="0"|| e.KeyChar>="9")
          {
                 e.KeyChar
    ="";
           }
    }

    从前面的两个例子我们我们可以知道。只要将System.Windows.Forms.KeyPressEventArgs  对象的 KeyChar 属性的值清空,就会取消当前的键盘输入。也可以将 System.Windows.Forms.KeyPressEventArgs 对象的Handled属性置成true。来取消当前输入。e.Handled表示当前的输入是否处理过,如果为true,则表示处理过。所以当你用程序将它置成 true,后,系统就不再处理它了,这样,这次输入就被取消了。

    展开全文
  • 在《异步委托实现等待窗体(loading界面),执行任务超时可以取消操作》一文,通过...等待窗体WaitForm代码如下: Imports System.Threading Public Class WaitForm Private _MaxWaitTime As Integer Private _WaitTi
  • 继续vb

    2010-07-24 07:37:00
    选择多行代码,点一下这个"注释代码块"就行了,右边紧挨的是取消注释代码块   2.form1.winstate=1 表示该窗口是最小化状态   3.Private Sub RichTextBox1_MouseDown(Button As Integer,Shift As...
  • VB.net 学习总结

    千次阅读 热门讨论 2014-06-15 20:14:16
    VB取消了繁琐的代码编写工作,从而使得Windows下的编程方法焕然一新,但是它的功能还是存在一定的局限性的;之后发展到了VB6.0,也就是自己完成自己的系统的编程语言时代,它提供了全新的访问数据库的方法,即使用...
  • VB网页快照

    2013-07-19 12:01:41
    利用10行代码将原本显示在WebBrowser中的网页截图到Picture中,简单吧。当然只要能够保存在Picture中,那么生成图片文件,保存到本地还难吗? 在VB启动后,你按一下F5,看看会不会报错。如果系统和你说:...
  • 另外父表可将单价字段取消,因为单价可能变化。子表应去掉品名、规格等字段这可减少大量的数据冗余,对数据库维护不利,但不影响数据输入及查询。检索代码用于品名的拼音检索用。例:自行车为ZXC、主板为ZB等等。父...
  • VB试题.doc

    2012-12-15 21:16:57
    9、为使某窗口中的命令按钮“取消(C)”具有如下特性:按“Alt+C”键或按 “ESC” 键,均可代替用鼠标单击该按钮的操作,应设置该按钮的Caption属性值为_取消(&C)___,并且设置其_ Cancel__属性值为__ True__。...
  • 鼠标滑过窗口的每个部分,都将获取到对应区域的上述信息, 还包括了VB HOOK钩子代码,基于纯API代码实现。  支持快捷键来切换状态:最小化、还原、最大化、取消窗口顶层显示、将容器置顶显示等。
  • 这是一个VB6的插件,为VB6提供了增强的搜索支持. 此插件支持的功能 普通/模式搜索字符串 正则搜索、替换字符串 搜索结果列表 搜索结果相关代码预览 替换结果相关代码预览 可取消当前搜索操作 双击定位结果...

空空如也

空空如也

1 2 3 4 5 ... 9
收藏数 164
精华内容 65
关键字:

vb取消代码