精华内容
下载资源
问答
  • VB6.0代码窗口不支持鼠标键操作滚动条解决方法 http://zgmgypb.blog.163.com/blog/static/962028192011107114648965/ 本文用来解决VB6开发环境代码编辑窗口不能鼠标滚屏的问题,参考了一个博文,测试之后,写的...

    VB6.0代码窗口不支持鼠标中键操作滚动条解决方法

    http://zgmgypb.blog.163.com/blog/static/962028192011107114648965/

    本文用来解决VB6开发环境代码编辑窗口不能鼠标滚屏的问题,参考了一个博文,测试之后,写的总结。

    1、下载插件
    微软已经提供了一个ADD-IN,可以让VB6支持鼠标滚**作。下载地址为:
    http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe
    2、解压安装将其下载后解压,可以看到5个文件,其中有VB6IDEMouseWheelAddin.dll,把它复制到C:/WINDOWS/system32
    然后点击开始菜单的运行,在运行窗口中输入
    regsvr32 vb6idemousewheeladdin.dll
    3、配置
    3.1 配置VB开发环境
    启动VB。
    (1)英文版:点击菜单Add-Ins下的Add-inmanager,在对话框中选中MouseWheel Fix,再选中Loaded/Unloaded和Loadon Startup,然后确定即可。

    (2)中文版:点击菜单“外接程序”—“外接程序管理器”,选择MouseWheelFix,在加载行为选择:在启动中加载(S),加载/卸载(L)。这两个确定即可。

    3.2配置VBA
    这个补丁还可以用于解决VBA不支持鼠标滚轮的问题,方法是在运行窗口中输入regedit,打开注册表编辑器,找到HKEY_CURRENT_USER/Software/Microsoft/VBA/VBE/6.0/Addins/VB6IDEMouseWheelAddin.Connect,(没有的键就需要新建一下),然后添加字符串值FriendlyName,其值为MouseWheelFix,添加DWORD值CommandLineSafe,其值为0,添加DWORD值LoadBehavior,其值为3。这样就大功告成了。
    说明:解压出来的5个文件中,有VBA Mouse Wheel Fix.reg文件,里面的LoadBehavior值是0,和上面说的不一样,至于哪个对,因为我没有测试VBA,暂时不知道。

     

    Win764 位下:

    对于win764位系统的安装,会发生如下提示,一直无法安装。解决方法如下:

    (1)把VB6IDEMouseWheelAddin.dll复制在C:\Windows\SysWoW64\目录下;

    (2)然后点击开始菜单的运行,快捷键,win+R(微软图标+R),打开运行窗口,在运行窗口中输入“regsvr32 C:\Windows\SysWOW64\vb6idemousewheeladdin.dll”即可,后续操作如上。

    regsvr32 C:\Windows\SysWOW64\vb6idemousewheeladdin.dll

    (3)点击菜单“外接程序”—“外接程序管理器”,选择MouseWheel Fix,

    在加载行为选择:在启动中加载(S),加载/卸载(L)。这两个确定即可。


    展开全文
  • VB 之 精 彩 编 程-请问在VB中如何关闭别的应用程序窗口
  • VB截屏源代码带注释: 截取当前Windows系统所有应用程序窗口的画面,并排列到picture控件组
  • 在VB中如何使IE窗口最大化

    千次阅读 2009-10-06 12:06:00
    众所周知,IE窗口打开时是否最大化是由几个方面的因素造成的,比如最后一个IE窗口的最大化状态,或者注册表的设置项。但有的时候,由于用户的IE窗口打开时并没有处于最大化状态,而程序设计人员又想使其处于最大化...

         众所周知,IE窗口打开时是否最大化是由几个方面的因素造成的,比如最后一个IE窗口的最大化状态,或者注册表中的设置项。但有的时候,由于用户的IE窗口打开时并没有处于最大化状态,而程序设计人员又想使其处于最大化状态,一般大家都会想到一个办法,那就是Shell命令,因为该命令有一个参数值为vbMaximizedFocus,可以让被Shell命令运行的程序的窗口处于最大化状态,可惜的是,这个办法对IE窗口无效。

        为此,我们可以借助一个名为ShowWindow的API函数。

        如果是用VB新打开IE窗口,并使其最大化,那么可以用以下代码实现:

        如果是想让已打开的IE窗口最大化,那么可以用以下代码实现:

        为什么ShowWindow函数能实现,而VB中Shell函数却失败了,问题就出在IE本身有一个不可见的主容器窗口,当使用Shell并设置vbMaximizedFocus参数选项时,它是让被运行的程序的主窗口最大化,然后IE本身的那个主窗口是任何时候都不会显现出来的,因此失败了,而使用ShowWindow时,因为指定了具体的窗口句柄,且该窗口并不是IE的主容器窗口,所以能成功。

    展开全文
  • VB 只建立一个窗口就可以重复打开很多次
  • VB6 获取当前打开窗口数量,如何获取当前打开窗口数量,本示例打开一个窗口后,测试时会打开另外一个窗口,然后主窗口中会统计到这个打开的窗口,把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的...
  •  使用Res文件中的菜单资源来显示菜单,这个VB版的程序没能显示出菜单,这是两者的差异,VB6应该不能通过加载资源文件中的菜单资源来在窗口中显示菜单。  MsgWindow  先打开Windows附件中自带的Notepad记事本...
  • 错误:Win10下使用VB6.0打开一个.vbp文件时,打不开对象窗口和代码窗口 解决办法:找了很久之后才发现,笔者所用笔记本外接了扩展显示屏,断开外接显示屏连接后,打开VB,再重新外接显示屏即可。 原因:Win10对于...

    错误:Win10下使用VB6.0打开一个.vbp文件时,打不开对象窗口和代码窗口
    解决办法:找了很久之后才发现,笔者所用笔记本外接了扩展显示屏,在断开外接显示屏连接后,打开VB,再重新外接显示屏即可。
    原因:Win10对于打开软件窗体的位置会在注册表中PositionObject项进行记录,所以VB上次关闭的位置是下次打开的位置。如果VB在扩展屏幕中关闭,PositionObject记录的位置就是在扩展屏幕上。在扩展的屏幕上打开一个已经存在的工程文件,出现上述问题应该是一个比较古老的bug,Win10上跑VB6已经有些勉强了,至于这些小问题还是要靠自己多注意了。

    展开全文
  • 如何DataGridView控件增加、删除和修改记录(用程序代码方法) 即程序运行,手动修改DataGridView的某个数或内容,点击某个按钮实现对数据库的更新! 新手上路,望高手指点,万分感谢!!! __________...
    VB.NET源码-156个实用实例哦…… <script type="text/javascript">
     </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> 
    
    如何在DataGridView控件中增加、删除和修改记录(用程序代码的方法)
    即在程序运行中,手动修改DataGridView中的某个数或内容,点击某个按钮实现对数据库的更新!
    新手上路,望高手指点,万分感谢!!!
    __________________________________________________________________________
    winform or webform?

    给C#的代码行么?
    __________________________________________________________________________
    给DATAGRID加一个LINKBUTTON或者BUTTON CLOUMN
    页面中:

    runat= "server " Width= "994px " Height= "294px " DataKeyField= "ID " AllowPaging= "True " AutoGenerateColumns= "False " AllowSorting= "True " BackColor= "SkyBlue "
    ForeColor= "Black " BorderColor= "Gray " BorderWidth= "3px " CellSpacing= "1 " OnEditCommand= "Operation_Edit " OnDeleteCommand= "Operation_Delete ">
    程序中:
    public void Operation_Edit(object sender,DataGridCommandEventArgs e) //打开超级连接,传个值ID到弹出窗口
    {
    string sItemIndexOperation_No=DataGrid1.DataKeys[e.Item.ItemIndex].ToString();
    string urlx= "/QuesMana/Details.aspx?ItemIndexOperation_No= "+sItemIndexOperation_No;
    string URL = " <script language="javascript "> window.open( '' "+urlx+ " '', ''详细信息 '', ''width=680,height=500,status=no,resizable=yes,top=70,left=150 '') </script> ";
    Response.Write(URL); //打开详细信息
    }
    public void Operation_Delete(object sender,DataGridCommandEventArgs e) //删除记录
    {

    string ID=DataGrid1.DataKeys[e.Item.ItemIndex].ToString();
    string delSQL= "delete from QuesSolve where QuesID= "+ID+ " delete from QuesInfo where ID= "+ID+ " ";
    try
    {
    DB.Command(delSQL).ExecuteNonQuery();
    DB.Close();
    }
    catch(System.Exception ex)
    {
    Button2.Visible=false;
    Button3.Visible=false;
    Button4.Visible=false;
    Button5.Visible=false;
    Label1.Visible=false;
    Label2.Visible=false;
    TextBox1.Visible=false;
    DropDownList1.Visible=false;
    Button1.Visible=false;
    Button6.Visible=false;
    DataGrid1.Visible=false;
    Response.Write( "数据库未能打开,请检查数据库连接.详细信息: "+ex);
    }
    Display();
    //string JavaScript= " <script language="javascript "> window.location.reload() </script> ";
    //Response.Write(JavaScript); //刷新当前页面

    }
    __________________________________________________________________________
    用vb.net的
    __________________________________________________________________________
    Private G_SaveState As Integer = -1

    Private Sub 增加_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_add.Click
    G_SaveState = 0
    End Sub
    Private Sub 修改_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_amend.Click
    G_SaveState = 1
    End Sub
    Private Sub btn_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_save.Click
    Dim da As DataRow
    Try
    If G_SaveState = 0 Then

    ''增加
    da = table.NewRow()
    da(0) = txtbox1.text
    da(1) = txtbox2.text
    table.Rows.Add(da)

    MsgBox( "保存完毕 ", MsgBoxStyle.OkOnly, "确认 ")

    ''修改
    ElseIf G_SaveState = 1 Then
    dr(0)(0) = txtbox1.text
    dr(0)(1) = txtbox2.text
    MsgBox( "修改完毕 ", MsgBoxStyle.OkOnly, "确认 ")

    End If


    bc.UpdateTable(table)
    Me.datagrid.Rows.Clear()
    Catch ex As Exception
    End Try
    End Sub

    Public Function UpdateTable(ByVal tb As DataTable) As Boolean
    UpdateTable = True
    Try
    If con.State = ConnectionState.Closed Then
    con.Open()
    End If
    dap.Update(tb)
    Catch ex As Exception
    UpdateTable = False
    Throw ex
    Finally
    con.Close()
    End Try
    End Function

    Public Function SelectTable(ByVal tablename As String, ByVal tb As DataTable) As Boolean
    SelectTable = True
    Try
    ''DataBase连接字符窜生成
    con = New SqlConnection(conStr)
    ''DataBase连接
    If con.State = ConnectionState.Closed Then
    con.Open()
    End If
    ''table 连接字符窜
    Dim sqlStr = "select * from " & tablename
    dap = New SqlDataAdapter(sqlStr, con)
    bld = New SqlCommandBuilder(dap)
    tb.Clear()
    tb.AcceptChanges()
    dap.Fill(tb)
    Catch ex As Exception
    SelectTable = False
    Throw ex
    Finally
    con.Close()
    End Try
    End Function
    End Class
    __________________________________________________________________________
    展开全文
  • 一款超棒的VB6.0程序窗口皮肤实例源代码,如上图!还有菜单哦,打开和保存,当然这都是样子,请根据自己的需要进行开发。
  • Vb创建程序的快捷方式,思路方法及源码下载,在窗口中选择一个应用程序的EXE路径,比如截图上的所示,打开PhotoShop的可执行文件位置,程序C:\Documents and Settings\All Users\「开始」菜单\程序\TESTGroup...
  • 内容索引:VB源码,界面编程,MDI,子窗体,窗体继承 一个比较有趣的VB窗口程序,MDI子窗体从父窗体中移出,过程可逆,也可以迁入,只要你点击窗体的“移出”、“移入”按钮,就可完成操作,移出后,原来的子窗体就...
  • 在VB程序中嵌套其它应用程序

    千次阅读 2012-02-26 22:00:12
    运行主程序时被嵌套其中的另一个应用程序会被释放出来,当然也可以转而执行这个被释放出来的应用程序,网上好多破解程序就是采用这种方法实现的。本文重点介绍如何将一个已经存在的应用程序嵌套到VB程序中。 新建...
  • 判断打开的文件,并显示其路径程序(VB6.0源代码编写) 判断打开的文件,并显示其路径。VB6.0源代码
  • VB代码实现Windows XP风格的窗口效果,可以看成是一个Windows XP 风格窗体生成器,允许您在VB下生成的程序因为插入manifest文件而同样有XP一样的漂亮界面,manifest文件是使用 C 程序下,但因为微软的Visual ...
  • http://zgmgypb.blog.163.com/blog/static/962028192011107114648965/本文用来解决VB6开发环境代码编辑窗口不能鼠标滚屏的问题,参考了一个博文,测试之后,写的总结。1、下载插件微软已经提供了一个ADD-IN,可以让...
  • vb中 打开文件夹浏览框的方法总结

    万次阅读 2017-05-09 17:35:08
    众所周知,在vb中如果是打开某一个文件的话,非常简单,使用CommonDialog组件即可轻松完成,但是他只能选择文件,之后或许选取的文件路径,而如果想要浏览文件夹,就没这么方便了。 这里介绍3个办法来实现文件夹...
  • 内容索引:VB源码,界面编程,弹出窗口,动画窗口 VB以“一侧滑入”、“一点展开”两种动画效果打开窗口,视觉感受很不错,让程序不再那么单调,代码也挺容易看懂的,但功能实用哦。截图并不能看出效果,因此你还是...
  • vb的一些套用代码

    2017-03-16 23:25:28
    VB关机代码.txt VB列表框删除多行数据.txt VB大写和小写.txt vb播放gif.txt vb浏览器的前进或后退.txt vb网络文件下载.txt vb获取数据库的子段名.txt vb获取数据库表.txt vb获取网页源代码.txt vb读取文件夹的所有...
  • 内容索引:VB源码,图形处理,图片拖动 VB将图像拖动到任意打开窗口上,比较有意思,你只需拖动窗体的小箭头到任意目标窗体,松开鼠标后图像就跑到目标窗体上了,不过程序还需要完善,有时候图片会被遮挡住,只...
  • VB中的调试窗口

    2019-04-07 21:36:38
    当测试一个过程时,可立即窗口中输入代码并立即执行;当要查看过程中某个变量或表达式的当前值,可立即窗口中使用 Print方法(为简便起见,可用“?”代替Print)进行输出; 三、 监视窗口 (1) “监视窗口”...
  • 高中年级VB程序设计全套教案教案本科目:信息技术姓名:缪韬云南师大实验中学高中年级 visual basic 部分第一讲 初识Visual ...过程与方法目标学习VB的启动过程,掌握多启动的方法;举一反三的使用VB的其他...
  • VB代码窗口鼠标滚轮的使用

    千次阅读 2013-08-13 16:44:37
    VB6.0使用很长一段时间,代码有短的过程、少的行数到长的过程、多的行数。但当查看后面代码时,就不得不拖动滚动条,鼠标来回移动,感觉繁琐。之后知道可以使用鼠标滚轮时,并没有马上安装使用。一是感觉安装有些烦...
  • 这是一个完整的窗口程序却没有用任何 。本代码模拟的是Windows 记事本程序,完全不使用VB窗体,所有窗体代码均是模块里写成的。这种独辟蹊径的方法很值得学习!
  • vb.net2010登陆窗口

    2013-06-25 20:13:23
    这是一个登陆窗口,通过ADO链接access2010数据库,实现登陆系统,注册账号,找回密码,自动登录,记住密码,记忆最近登录账号等功能 本人初学VB.net,欲求代码程序或学习交流,请私信联系
  • 如果程序已经运行,双击程序图标激活前台运行程序窗体还原到桌面,代码如下: Option Explicit Private Declare Function SetForegroundWindow Lib “user32” (ByVal hWnd As Long) As Long Private ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 18,734
精华内容 7,493
关键字:

在vb中打开程序代码窗口的方法