I know I can do the following, but I am trying to shorten my code and learn at the same time, but how do you loop through all shapecontainers that are on a form
For Each d As Shape In Me.ShapeContainer1.Shapes
Dim u As RectangleShape
If TypeOf (d) Is RectangleShape Then
[code]....
I tried it every way I can think off, but nothing can stop it .
View 7 RepliesMakes the following statement about the code below:
**"The computer evaluates the loop condition in the Do...Loop statment to determine whether the loop instructions should be processed. In this case, the inputsales <> String.Empty condition compares the contenst of the input sales variable to the String.Empty value. As you know the String.Empty value represents a zero length, or empty, string if the inputsales variable is empty, the loop condition evaluates to True and the computer process the loop instructions. *If on the other hand the inputsales variable is not empty, the loop condition evaluates to false and the computer skips over the loop instructions.
Based on the code I think it is the opposite: ...that while the inputsales value is not empty it should evaluate to true and process the loop and if it is empty it should evaluate to false and skip the loop?
See below.
Option Explicit On
Option Strict On
Imports System.Globalization
[CODE]...
I have a form that goes through an endless loop and processes data. When I click a button that "closes" the form the form keeps processing even though it is closed. I want the form to completely end and exit out of its loop statement. Then open a new form.Here is the code I am using to close the form
frmMain.Close()
frmMain.Dispose()
in the program im trying to make i have a button that when clicked starts a fairly lengthly loop, takes a couple minutes to complete. while this is happening im trying to send the an update of the loops progress to a listbox i have setup. Unfortunately these updates dont make it to the list box until the loop is finished, ive tried this with a few different types (progress bar/ rich text box etc). i cant seem to get any form changes through while the loop is in progress.
Is there some option or event thing i need to specify to be able to make changes to the form while in a loop?
I'm trying to add picture boxes on my form for a connect 4 game. I'm trying to make the grid and use a loop to do so. This is the code I have so far, trying to make it a subroutine I can just call on my form_load.
'create picture boxes for game board
Private Sub pb()
Dim i, j As Int16
Dim space As Int16 = 5
For i = 0 To 3
[Code]...
Is it any way to loop so a form always is in focus?
View 3 RepliesI want to have a form1 with a button,button1 and when i press the button to open a new form (form2) and display it for 5 mins.Then automatically to display my third form (form3) for 5 min and then loop again.Could you help me on this?
View 2 RepliesI am made program to get Picture Pixel and check Pixel colors.
between looping my Application Form HANG (STOP) and also how can stop loop between working (on Run time)?
in listbox1 picture List with path
For P = 0 To ListBox1.Items.Count - 1
DisplayPic.Image = System.Drawing.Image.FromFile(ListBox1.Items.Item(P))
Call GetPicPixel()
[Code].....
I'm building a code editor app in VB.NET (Framework 4.0) and it opens all ".por" files into individual forms consisting of a MenuBar and TextBox (multi-line).Currently I have 20 forms (all duplicates of the first on I designed) and if there are say 4 ".por" files in a directory, the first four will open up while the others hide.
I think it would be far more efficient by coding a new form For each item in form1's ListView...but I want the next so many to be a copy of the first form I designed since I spent a good bit on it.
I want to add textboxes in my form as per the input I give. Say, My code will prompt me to enter the no of files I would like to upload... If I give input as "3".... it should generate 3 textboxes to enter the file names....
View 3 Repliesi want an application that has no forms but a tray icon... i do not want to add a form to do this or have a loop..[code]I have been programming in VB for years.
View 1 RepliesI have been battling with resizing a form in code, using either a timer or a for loop. When I say resizing, what I want to do is create the effect of a rolldown/rollup window. On my form, I have a groupbox with search criteria options, and underneath the groupbox, I have a datagridview with several buttons.
The effect I'm trying to create can be seen in Windows XP Security Centre; when you open up the security centre screen, you have your firewall, automatic updates and virus protection areas; to the right of each, there is a small round button, with either an up or down arrow, depending on whether the section is rolled up or down. When you click the button, the section rolls down or up smoothly.
[Code]....
I want to give the user 3 chances at logging in and then if after the third chance to close the program. i have some code done so far
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
'Stores MainForm in memory as New Form
Dim MainForm As New frmCustomerDetails
Dim strUsername As String = "User"
[code]....
I have a form called frmMapViewer. In this form I 25 labels showing districts of my country. think I want to assign names(text property) to each label.[code]...
View 5 RepliesI am trying to input specific information on a form. I have created an sql statement from a table that will out put 18 rows of data. I have opened a recordset and instituted a do until loop. I need for the program to look at each row and if the Standard Score = the value of a field I have on the form it takes the value of the other three columns in updates it on the form. I have created the code and it works for upto 3 (Do Until loops)records, but when I try to add a 4th in the SQL statement and put in another do loop my computer runs it but it acts as if it freezes up.
[Code]...
I have 100 text boxes on another form I have to populate. I don't want to use 100 Form3.txt1.Text = Mid(answer,1,1) as shown below, i would like to put them in a loop, like a For loop. But when I try I get Error1'txt' is not a member of 'WindowsApplication1.Form3'.Is there another way of doing this?
[Code]...
someone give an idea or guide to do this: i have two forms. First form is used to ask from, to, departure time and how many people we want to book for. Second form is used to ask for each person that we book what is their name, age, title, phone number. i planned to use a loop to loop form 2 to ask for their info. However i woner how we can do this?? can a form be an array to loop??
View 1 RepliesI am having trouble changing the text in a label. Can someone show me where the problem is?
Public Class Form1
Dim Tracker As Integer = 0
Dim Questions(10) As String
[code]....
I am making this program that has a loop that goes to a website and fills in a form within the loop. But first, here is my code thus far
Dim message As String = TextBox3.Text
Dim loopnumber As Integer = TextBox4.Text 'makes the necessary variables
Dim browser As New WebBrowser
Dim url As String
[Code] .....
But what happens is that the loop runs a few times then it errors on the setattribute line (line 19 above) with
NullRefrenceException was unhandled
And I have a feeling that it is not loading the page fully before it tries to fill in the form.
I have several textboxes in a winform, some of them are inside a groupbox. I tried to loop over all textboxes in my form:
For Each c As Control In Me.Controls
If c.GetType Is GetType(TextBox) Then
' Do something
[code].....
I'm redoing a program I made up a while back and need some help changing a loop. The original program had all the text boxes on same form, the redesigned program still has them all on the same form but I have them spread across multiple tabs and the background of the form.
The code below loops through each possible text box and if it exists sets the value in an array. This only works for text boxes not on tabs. I found I could change the Me.Controls to TabPage1.Controls and that would get the text boxes on tabpage1. I would like to have a single loop that can find them on any tab and off the tabs, so I don't need three separate loops.
For num = 1 To 61
For Each controlctl In Me.Controls
If controlctl.Name = "TextBox" & CStr(num) Then
[Code].....
I have a loop that says this...
Do
If e.KeyCode = Keys.F4 Then
Exit Sub
Else
[code]....
My problem here is that what the loop does is click on another program, thus taking the focus off of mine, how would i be able to make my app see if I press the key even if the form isn't in focus?
I have a form with a tab control, containing a small number of tab pages. I'm writing a sub procedure to clear the controls within a groupbox for the selected tab. A selected tab will only ever contain ONE groupbox and within a groupbox will be command buttons, labels, text boxes and possibly a combobox. The first block of code below firstly finds the groupbox within the selected tab. The next part loops around all control type and if of type texbox clears the text.
Now hears the head scratcher/confusion it error's with :-
Unable to cast object of type 'System.Windows.Forms.Button' to type 'System.Windows.Forms.GroupBox
Which I don't understand as I cant see where Im converting objects simply looping through all controls and then ONLY if type of control is textbox then clear text.
'Loop around all controls in form, simplified that all controls
'are within a SINGLE groupbox and clear contents or reset to default value
Dim groupbox = (From grpbx In tabAdmin.SelectedTab.Controls _
Select grpbx = DirectCast(grpbx, GroupBox) _
Where TypeOf grpbx Is GroupBox)
[Code] .....
Any hunk of code that loops trough the windows form controls array, and based on top/left to bottom/right, resets the TabIndex property? I've mashed a huge form together and expect my user community to want to move things around, and I don't want to have to fool around with this over and over again.
View 6 RepliesI'm making a program when the user clicks the button it displays the number of rolls it took to get snake eyes ( 1 on each dice) I have randomized it and in the Do loop it calculates until it gets the right code. I just need some help with the code that will display in a listbox the results that didn't get picked for snake eyes.
Here is my
Public Class Form1
Dim num1 As Integer
Dim num2 As Integer
[CODE]...
I think for you my problem is very simple..I have done the same program in console mode without problem, now i try into windows form...
I generate by random 2 number A&B I multiply them and I will compare it with the result in my textbox3
if it the same as the computer has calculated il will show you congratulation, however i will say try again
I have a problem to calculate the sum, A&B are well generated but nothing in Calc Result
When Calc was working when I write nothing in the textbox3 and i click on Verify it show the msgbox congratulation.I'm looking just for this step, I've fixed the other issues And another things When It's right I would like to random another number for A&B after closing the msgbox, how can I processd ?
[Code]...
I know I am missing the obvious. I would like a label to show how many cycles in loop are left.
[Code]...
I am constructing a program, i am new to Visual Basic, but i have past programming experience. I was wondering if anyone knew how to form a loop that could...lets say calculate the answer when two numbers are added together,and it would repeat this thousands of times, etc. And if there is a way, would it be possible to calculate the time taken to complete this loop.
View 5 RepliesI have written a function that gets the alexa ranking of a given url, now this function works perfectly but I want to loop through a ListView of urls and grab the alexa rank of each item (url) with my function.The code works great if I put a MessageBox in the loop to test that the function is returning a value but when I remove the MessageBox the loop does not work.I need it to loop through adding each result without a MessageBox stop in each loop.
vb
For Each Item In ListView1.Items
Dim result As Integer
result = GetAlexaRank(Item.Text)
[code].....