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)。这两个确定即可。
 

 
 

     众所周知，IE窗口打开时是否最大化是由几个方面的因素造成的，比如最后一个IE窗口的最大化状态，或者注册表中的设置项。但有的时候，由于用户的IE窗口打开时并没有处于最大化状态，而程序设计人员又想使其处于最大化状态，一般大家都会想到一个办法，那就是Shell命令，因为该命令有一个参数值为vbMaximizedFocus，可以让被Shell命令运行的程序的窗口处于最大化状态，可惜的是，这个办法对IE窗口无效。
 
    为此，我们可以借助一个名为ShowWindow的API函数。
 
    如果是用VB新打开IE窗口，并使其最大化，那么可以用以下代码实现：
 
Option Explicit

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3

Sub Main()
    Dim objIE As Object
    
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate2 "http://www.baidu.com"
    ShowWindow objIE.hwnd, SW_SHOWMAXIMIZED
    Set objIE = Nothing
End Sub 
 
    如果是想让已打开的IE窗口最大化，那么可以用以下代码实现：
 
Option Explicit

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3

Sub Main()
    Dim SHApp As Object, SHWin As Object
    
    Set SHApp = CreateObject("Shell.Application")
    For Each SHWin In SHApp.windows
        If LCase(Right(SHWin.FullName, 12)) = "iexplore.exe" Then
            ShowWindow SHWin.hwnd, SW_SHOWMAXIMIZED
        End If
    Next
    Set SHApp = Nothing
End Sub
 
 
    为什么ShowWindow函数能实现，而VB中Shell函数却失败了，问题就出在IE本身有一个不可见的主容器窗口，当使用Shell并设置vbMaximizedFocus参数选项时，它是让被运行的程序的主窗口最大化，然后IE本身的那个主窗口是任何时候都不会显现出来的，因此失败了，而使用ShowWindow时，因为指定了具体的窗口句柄，且该窗口并不是IE的主容器窗口，所以能成功。

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

 <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
 
__________________________________________________________________________