Search:
Type: Posts; User: Edgemeal
Search:
Search took 0.66 seconds.
-
Try (AppCommandConstant * &H10000),..
SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(AppCommandConstants.APPCOMMAND_VOLUME_MUTE * &H10000))
Public Enum...
-
Once you have the main window handle then try loop until you have all 3 valid control handles, maybe limit it to say one second max just in case the external app window changes it controls in the...
-
This is the part that should wait until the app main window is created and has a valid handle,
hWnd = FindWindow(strClassForm, "frmTest")
While hWnd.Equals(IntPtr.Zero)
...
-
I think you might need to draw your own, or maybe re-color the image, something like this?, I don't know how to use ColorMatrix , copied that from somewhere else. :o
Imports...
-
Vote to get counted.
1. I test/use every new pre-release!
2. When I find a bug/need a bug fixed.
3. Only when I have nothing better to do.
-
Maybe add handlers to the UC to detect when certain Form events occur, something like...
Public Sub ClosePopUp(sender As Object, e As EventArgs)
If PopUpControl IsNot Nothing Then...
-
From, https://www.codeproject.com/Articles/14189/Pan-scroll-an-image-in-VB-NET
Public Class PanelEx
Inherits Panel
Protected Overrides Sub DefWndProc(ByRef m As Message)
If...
-
Try something like this, NOTE I did this in VB10/FW 4.0 so be sure to change the classname for the textbox (WindowsForms10.EDIT...).
Imports System.Runtime.InteropServices
Public Class...
-
Still using VB10 on Win7 here, When I have RTB resize with form (anchored on all sides) invalidating the RTB in forms resize-end event works here,...
Private Sub FrmMain_ResizeEnd(sender As...
-
Maybe draw the tabs 2 pixels lower?...
For i = 0 To TabCount - 1
Dim tabRect As Rectangle = GetTabRect(i)
tabRect.Y += 2
...
Next
e.Graphics.DrawImage(CType(B.Clone, Image), 0, 0)
-
Maybe something like...
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim hosts As New List(Of String)
Dim urls As New List(Of String)
For...
-
That function is VB6 syntax, you can still do it that way but the function must return something on every possible path, so you could add Case Else to it,..
Case Else
...
-
You can try something like this, and do any additional parsing using some basic string methods.
Dim elems As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("tr")
For Each...
-
The _KeyUp event is still raised even when the autosuggest list is shown, here on Win7 anyway.
Private Sub ComboBox1_KeyUp(sender As Object, e As KeyEventArgs) Handles ComboBox1.KeyUp
...
-
That may be a bit complicated, I rem this post where the guy was setting the suggestion list size,...
-
AFAIK, you just set the ListView.Scrollable Property to True.
-
No, because if I need to know that I would set the messagebox button param to MessageBoxButtons.OKCancel, this way if they do close the dialog using the [X] button it will return Cancel.
-
FYI, Everything in VB.Net is zero index based, so using 1 for start position actually is skipping the very first char!
-
Maybe save the tabpage to the forms Tag property?....
Dim frmCollection = System.Windows.Forms.Application.OpenForms
If frmCollection.OfType(Of frmEmployee).Any Then 'To Check if tab page is...
-
Maybe something like,
Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown
If RichTextBox1.Text.Trim.Length > 0 Then
If e.KeyCode...
-
Your re-initializing the random number generator in the loop, be better to just declare it at the top of the class, I tried like this and only get a few of same chars...
Private R As New...
-
You seem to be passing 0 for hItem, but when I use code below and select the first menu and first submenu (for say notepad) it returns a 1 for hitem, my API's are also declared slightly different,...
-
I'm not sure where you're getting the keys from, but when I use the Form keydown event (with KeyPreview enabled) I only get last key pressed, but using GetKeyState for both possibilities, seems to...
-
Collections are zero indexed based, so the first element is at index 0,
For line = 0 To
,and the last element is equal to the count minus one,
For line = 0 To (lines.Count - 1)
-
I posted one idea using API, it seemed to work well as reader, but not 100% perfect if user types into it (never did figure out why). Member Niya posted it as a class which IIRC also centers the...
-
Never tried it , so FWIW,..
https://www.programmingalgorithms.com/algorithm/color-substitution?lang=VB.Net
-
But if I type the first letter or number of an item in that list then the combo changes to that item, that doesn't seem very ReadOnly to me.
EDIT: Although using my code you could also just as...
-
Not sure I understand , but if you want to make the edit box part of the combo read only but still allow the user to select items from combo listbox then maybe try sending the combo's edit box the...
-
FWIW, This works on my (non-HDMI) dual monitor Win7 desktop w/ATI graphics card.
Credit: IronRazerz, see his comments on msdn forum.
Imports System.Runtime.InteropServices
Public Class...
-
Looks pretty good! FWIW If you want to resize a borderless form maybe look at this thread, http://www.vbforums.com/showthread.php?568015
I mod your form1 code using that idea.
Imports...
-
"#32770" is classname for dialogs, "Edit" is classname for edit controls, there are a few others, AFAIK those Windows classnames don't change with language. Lots of info about classes here, About...
-
GetWindowText is really for getting a window's title bar text, not control text.
I don't understand what you mean by needing a timer, Timer for what?
I used SPY++ to look at the properties window...
-
There is probably a dozen ways to download a web page and scrap it for data, but no matter what/how you scrap a webpage if the site makes a change to the HTML it will likely break your code and/or...
-
fwiw, I just installed VS 2017 RC (.Net Desktop) and there seems to be no noticeable difference with how intelliSense works compared to 2015, so get used to it. ;)
Edit: Option Strict is still...
-
I don't know of any option to re-enable that behavior , and even if there was I would expect it to be enabled by default. The inconsistency between versions sucks!
I suppose you could create some...
-
VB CODE SNIPPETS FOR MESSAGEBOX
OK/Info MessageBox
http://i.imgur.com/bi3exow.gif
<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets...
-
I don't see an Edit type message that allows that setting, seems to be autoset based on the size of the control/font size, so just a crazy idea,... scroll some additional 10 lines when the page...
-
Try,
For index = 0 To 7
Doggie(index) = DirectCast(My.Resources.ResourceManager.GetObject("Hound" & index.ToString), Image)
Next
-
Try setting the SelectedIndex to the same index used to insert the item,...
Private Sub lstQueue_DragDrop(...
lstQueue.Items.Insert(ix, obj)
lstQueue.SelectedIndex = ix
-
Dim ticker As String = "ADM"
Me.Controls("lbl" & ticker).Text
|
Click Here to Expand Forum to Full Width
|