Enable mouse scroll-wheel in VB6


VB6 would let us use the mouse scroll-wheel like later versions of VS does. Here's a add-in for VB6 that I have used that does just that!

Download \Visual Basic 6\vb6mousewheel\VB6MOU~1 from Microsoft web site

·         Copy the VB6IDEMouseWheelAddin.dll to somewhere on your local machine where it won’t get deleted. I use “C:\Program Files\Microsoft Visual Studio 6”.

·         Click Start, click Run, type regsvr32 \VB6IDEMouseWheelAddin.dll, and then click OK.

·         Start Visual Basic 6.0.

·         Click Add-Ins, and then click Add-in Manager.

·         In the Add-in Manager list, click MouseWheel Fix.

·         Click to select the Loaded/Unloaded check box, and then click to select the Load on Startup check box.

·         Click OK.

Comments

Post a Comment

Popular posts from this blog

C# code to Check IE Proxy Settings

private static void CheckIEProxySettings() {     string strFileURL = " http://programmersvision.blogspot.in ";     HttpWebRequest WebReqt = (HttpWebRequest)HttpWebRequest.Create(strFileURL);     WebProxy WP = new WebProxy(WebReqt.Proxy.GetProxy(new Uri(strFileURL)));     WP.Credentials = CredentialCache.DefaultCredentials;     Console.WriteLine(WP.Address);     // or use this method     //CheckForProxy(new Uri(" http://http://programmersvision.blogspot.in ")); } private static void CheckForProxy(Uri resource) {     WebProxy proxy = (WebProxy)WebProxy.GetDefaultProxy();     Uri proxyUri = proxy.GetProxy(resource);     if (proxyUri == resource)     {         Console.WriteLine("There is no proxy for {0}", resource);     }     else     { ...
Read more

Convert XElement to DataTable

public DataTable XElementToDataTable(XElement x)  {    DataTable dt = new DataTable();   XElement setup = (from p in x.Descendants() select p).First();    foreach (XElement xe in setup.Descendants()) // build your DataTable      dt.Columns.Add(new DataColumn(xe.Name.ToString(),typeof(string))); // add columns to your dt   var all = from p in x.Descendants(setup.Name.ToString()) select p;    foreach (XElement xe in all)    {      DataRow dr = dt.NewRow();      foreach (XElement xe2 in xe.Descendants())        dr[xe2.Name.ToString()] = xe2.Value; //add in the values      dt.Rows.Add(dr);    }    return dt;  }
Read more