|
I have 39 buttons on a form (numbered 1-39) and I want to randomly assign text values to those buttons when it loads. So I have a sortedlist object with the values I want to assign. However, I want to use a single event (like the form load event) to assign the text string to the buttons. In this load event, I want to use a looping structure like "while" to assign the text from the sortedlist to each button. The only way I could find to do this was to generate the button identifier as a string. For example:
string = "button"&counter&".text=x.getbyindex(counter)"
x is my sortedlist instance.
Counter in this case is the counter on my loop. So as it loops the 1st time, it sets button1.text = the first instance in the sortedlist. The second loop sets button2 and so on. If there is a better way to do this, I am all ears. However, even if there is a better way, I would still like to know if VB has an execute string command. Any help is much appreciated.
scout12
|
|
|
|
|
Scout12:
1st off, there is NO WAY to execute a command like the one you are trying...
Ok, now to the solution of your problem: What you really have is an array of controls... ever heard of that? You have a full set of controls, that are all of the same class, and mostly, do the same thing. So, the best way to go is, "Name them all the same, and distinguish them by an identifying number within the 'name' definition". If you know nothing about working with arrays, you better start studying about it, because it is an actual codeing standard procedure, valuable for any programming language.
Now, concretely, you must select all the command buttons and:
At the name property, put "cmdMassReCaption" At the index property, put numbers 0...39and on the form_load, use a For...Next block structure, to peruse through all the controls that are part of the array:
For i = 0 To 39
cmdMassReCaption(i).Caption = lstTheNamingList.List(i)
Next i
So, you'll access every single one of the command buttons by using the same name for each of them, but you will also use a unique (i) indexing number.
Well, hope this is an immediate solution to your problem with buttons, but I profusely suggest you start studying about arrays, it's something you just cant't miss.
Kindly, Pablo.
-----------------------------------------------------------------------------
We live to code, this is our religion.
|
|
|
|
|
I still have some questions on this one if you don't mind.
As my example, using the visual designer, I created 2 buttons.
Q1) I changed the name property on 2 button controls to cmdMassRecaption. However, there is no index property in the property grid. There is an image index and a tab index but no index. Can you clarify this?
Q2) By placing cmdMassRecaption in the name field for both buttons, the code generator made the following declarations
Private cmdMassReCaption As System.Windows.Forms.Button
Private cmdMassReCaption As System.Windows.Forms.Button
This would not compile because the second statement produces and error stating that it is already declared. Do I have the naming syntax correct?
Q3) I searched my .net Framework documentation and can't find a reference to cmdMassRecaption anywhere. How can I find out more about this button and coding standards in the VB language?
I appreciate your help.
scout12
|
|
|
|
|
sundayschool wrote:
However, there is no index property in the property grid.
I guess Pablo assumed that you use VBA/VB 6. The suggested solution however will now work with VB .NET (for more details see Control Array Changes in Visual Basic .NET[^]).
Best regards
Dennis
|
|
|
|
|
Control arrays only exist in VB6 and below, not in VB.NET...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hey Dennis, Rage... you got it right guys, I was talking VB6 here, but I didn't know there is no control array on .Net, why is that?
and as to you sundayschool... guess you ain't going to school on sundays anyway! hehe, joking...
cmdMassReCaption is a way to name a button. I mean, the control IS A BUTTON but we give it a name we can identify it for what it does, or related to what we want to do with it. That way of naming controls and components, with three lowercase letters for a shorts of the control type, and then the name, is the GNU standard. try to keep it that way, cause everybody codes that way and when you share code, is easier for everybody else to read it and make changes to it. So:
cmdMassReCaption
^ ^--------------- The name: Mass (Re-) Caption.
|---- The type: cOmMANd.
Ok, now get VB6 and get on with studying control arrays, cause you still need it, don't think 'you don't need to know that, cause it's not used anymore'!!!
Kindly, Pablo.
|
|
|
|
|
Pablo.ar wrote:
but I didn't know there is no control array on .Net, why is that?
Because it's not proper OOP...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
Hi,
I want to parser the data from the given query string.
mystring = "insert into testtable values(1,'ra,, j'a',100,'delhi')
in the above string, i need to take each fields seperately, How do i do this.
I want an array like
array(1) = 1
array(2) = 'ra,, j'a'
array(3) = 100
array(4) = 'delhi'
Thanks in advance
Be simple and Be sample.
|
|
|
|
|
For simple strings, without any escaping etc, you can use the string.Split function. For more complex strings (like I think you mean), the best approach is a simple character-by-character parsing of the data. I don't know of any (simple) generic parsers like this -- I suspect you'll have to write it from scratch.
my blog
|
|
|
|
|
Steven Campbell wrote:
the best approach is a simple character-by-character parsing of the data
Maybe the best approach if you'be never spotted the RegEx[^]class
|
|
|
|
|
Yes of course, you're correct -- it's probably the simplest solution for this problem, and should work 99% of the time.
99% because regex is really good at handling patterns, but really bad at handling edge cases. For example, you can easily write a regex expression to detect some characters, followed by some other characters enclosed in ( ). However, what if someone uses a ( legitimately as part of the first set of characters. This is just one of many possible edge-cases.
You then have to modify your regex to handle that. Over time, the regex becomes huge and unreadable, and probably still not 100%.
my blog
|
|
|
|
|
Hi,
I've implemented global mouse and keyboard hooks in C#, however, once I set the hook type to WH_CBT and run the application, an ugly black command prompt screen prompts out saying there was an error in CLR at runtime 
Has anybody been able to implement system-wide CBT hooks in any .NET language?
If I keep getting stuck in this, can I make a c++ DLL that does all the hooking and use it in my C#/VB.NET app?
Thanks
|
|
|
|
|
I need to do a network command to purge (OS:netware)
I'm using a DOS command to delete some folder
Shell(Environ("comspec") & " /C RD /S /Q " & SubDir)
but i need to use a purge command too on a network (purge /a), to assure that those deleted won't be retrieved by any means
how can i do this?
|
|
|
|
|
Same way you ran the other command, Shell("PURGE /A"). Of course, you'll actually have to specify the correct command line for your purge.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
ummm I'm not sure what is the command line for this
do i have to specify an environment like the "comspec"
would this be correct? Shell(Environ("comspec") & " /C PURGE /A ")
|
|
|
|
|
No, the commandline doesn't need to have COMMAND in it, just "PURGE /A", or whatever you'd type at the command prompt.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hai, everybody!!!  I got problem with silent install by using platform VB.NET and actually, i dont know how to start it! So, everyone who know the sample code or any web site for this silent installation that can let me for reference it!
:-OThanks for ur!;P
|
|
|
|
|
|
Thanks for u, Ranoush!!!
|
|
|
|
|
I have created a windows Service and from this service i am trying to print a File but it is not doing this. I am doing as follows
Dim pr_Process As New Process
pr_Process.StartInfo.FileName = "C:\Hello.txt"
pr_Process.StartInfo.Verb = "print"
pr_Process.StartInfo.UseShellExecute = True
pr_Process.StartInfo.CreateNoWindow = True
pr_Process.Start()
It is not generating any error but also not printing any thing.
waiting for Fellow reply
Thanks
|
|
|
|
|
Did you tag your service (in the Service Control Manager) as "Allow service to interact with desktop"? Since your using ShellExecute = True and using Notepad (I assume) to do the printing, you need to allow your service to interact with the desktop so your app has access to the Desktop Shell and the is actually a Desktop to run Notepad on, regardless of your CreateNoWindow property.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I have a timing problem with class objects becoming available to external processes from an ActiveX Server (EXE Server) before the Main() function has completed initialization. The EXE Server is set to be single threaded (i.e. thread pool = 1) and the class objects are all multiuse.
The class objects require resources initialized by Main() and thus when the external process creates one of these objects, the object's initialization fails because the required resources are not available.
This is apparently a well known problem with ActiveX Servers but I am not in a position to rearchitect or rewrite the code - I am stuck with VB 6.
My question is this: how can I control the availability of the class objects until AFTER the EXE Server Main() function has completed?
I have read articles which state that you can overcome the problem with calls to CoRegisterClassObject() with the REGCLS_SUSPENDED option and then calling CoResumeClassObjects() when initialization is complete, but no samples on how to do this from VB 6.
TIA.
...Steve
|
|
|
|
|
Hi does someone know how to send a mouse click signal
I want to send a code that the mouse sends the left click and holds it
do you know how to make it?
|
|
|
|
|
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const BM_CLICK = &HF5
Dim x As Long, staticx As Long, MyStr As String, y As String, control As Long
x = FindWindow("#32770", vbNullString)
'x = FindWindow(vbNullString, "Project")
' get handle to Ok button
control = FindWindowEx(x, 0, "Button", "Ok")
' click the button
SendMessage control, BM_CLICK, 0, 0
SendMessage control, BM_CLICK, 0, 0
End Sub
That's how you click a button on a msgbox - in this case "ok". I imagine it will be reasonably similar but not sure about the holding it, you could try putting the SendMessage Control in a loop.. The #32770 is the msgbox class, to send a message to a different window use the commented out bit and put the name of the window you wish to send the message to in place of "Project"
Sound!!!!!!
Hope you can work with that
"If i was king cigarettes would be free."
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
