I am trying to write a program that using a nested do while loop and If/If Else statement to draw a shape, and also using a nested do until and If/ElseIf statement to draw another shape.
View 18 RepliesI'm creating new buttons at runtime that I need to draw on. I have 4 different and I need to draw different shapes on them. I've started with the "rectangle button" and I've approached this
[Code]...
i am creating a winform program using vb where i am loading an image into a picture box. then in the mouse down event i am creating small circles which can act as points which will be displayed on the image. say creating five points around the eye of a bird. then i am having a button by clicking it , a polygon will be drawn on those selected circles x and y as edges. i am having no issues until this. when i am trying to add another polygon in the same picture by clicking around its leg or whatever and pushed the draw button there must be another polygon i.e. two separate polygons 1 on eye and 2 on leg. but there is only one polygon from eye to leg. so my questions are
1) how to close a polygon and draw another one in picture box
2) how to select a previously drawn polygon and delete it.
picturebox_mousedown
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
[code].....
How do you do nested recordset loops in ADO.NET? In ADO, you could just open one firehose cursor for the outer loop and a static, client-side, read-only cursor for the inner loop and nest the loops. But you can only open one DataReader at a time and Datasets aren't read-only.
'Classic ADO Code
Dim rsOuter as New ADODB.Recordset
Dim rsInner as New ADODB.Recordset
[code]....
how to create this sequence using a for loop and/or nested for loops?
1
2
3
[Code].....
The aim of my program is to load a picture into an pic box, then to be able to place multiple shapes on the picture in the pic box by clicking on the location where i want the shape. The type of shape will depend on the radio button which has been selected. Basically all i want is choice of X or O. (its not tic tac toe either At the end of it all i want to be able to save the image WITH the shapes on it, doesnt matter what format its in (gif, jpg, bmp) as long as it has color and i can see the original image with the shapes included.
I have made several attempts at this, and this is what i have so far. (I am brand new to VB and programming so i need all the help i can get) I have hit a wall with how far previous examples can get me.
[Code]...
I'd like to be able to do something like this:
Dim newdata(,) As String = New String(,) { _
{"foo", "bar"}, _
{"fum", "baz"} _
[code]....
If I change the outer loop to:
For Each str() As String In newdata
It builds ok but I don't get what I want. The outer loop process the elements of newdata as a 1d array and the inner loop sees each character of the strings from the outer loop.So...is there a way to use the for each structure and process a 2d string array? If so, what should I change? If not, what is the best alternative?
Today is not one of those days. I know there is an elegant solution to this problem, but I cannot see the endgame. Does anyone have any tips for making this snippet more elegant? It's a very basic example, but one that I think is common programming challenge. If I have unknown number of lists of string variables of unknown length (It is unknown to me until runtime), how can I use just one loop or a loop plus a nested loop to create a matrice of the values?Easy to re-create. Create a VB.NET Form application, drag over two richtext boxes and a button, then paste this into the form class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[code].....
I want to write two nested loops and inside them "two if statements" when I write an Else statement which has a messagebox saying that ID is not found.. it repeated many times depending on the for loops. I only want to be displayed once !!! but when I wrote my code like this (using exit sub), the message appears when the condition is right and appears when the condition is wrong. I tried to move this statement somewhere else but still I have problems with it.
With EMPDataSet
For I = 0 To .Personal.Rows.Count - 1
For j = 0 To .Work.Rows.Count - 1
If EMP_CPR = .Personal.Rows(I).Item("CPR") Then
txtName.Text = .Personal.Rows(I).Item("Full_Name")
[Code] .....
I would like to draw a rectangle on a form, for example to mimic a steel beam that is 6 metres long.Within this rectangle, there may be 4 "openings" or circles that mimic a diameter of 600mm, so i need to draw 4 circles within the rectangle, to indicate a beam that has 4 openings. Other issues I need to cater for is that one of the circles may not be in the centre, it may be slightly raised.The user can change the length of the beam and the size of the openings so i'd like to refresh my drawing to keep in line with this.
View 3 RepliesI constantly find myself having to do code similar to the following.[code]Is there anyway to check for both on a single line? When i'm checking a condition for a great number of answers, I sometimes end up with conditionals 6-sets deep. If i check for null first, an error still pops up, even though VB shouldn't check since the first condition failed. i.e.[code]
View 8 RepliesI'm trying to implement parallel computing using .NET 4 on an asp.net website housed on a clustered server consisting of 6-8 dual core servers. My original script contains two nested For...Next loops iterating through a range of values in a grid of x by y.
For each point in the grid (x,y), we should perform a computationally intensive subroutine called MakePartsMatrix which accesses a SQL server database with dataviews and manipulating the local variable "unfilled" which is passed in ByRef.
Without the parallel implementation, the nested for loops work fine except its slow -- taking about 60 seconds to run.
When I parallelize the outer For loop, the script is about 50% faster, completing its calculations in 20-30 seconds which is great. However, I have noticed that the parallelization causes random parts of the grid to be either completely skipped (eg, grid (1,5) is never evaluated by the MakePartsMatrix), or some points in the grid (eg, x=10 & y=5) to be evaluated multiple times, resulting in duplicate work.
When I parallelized only the inner For Loop, the script execution time also improves by 50%, but now the last row (y-1) in the grid is skipped entirely and the results in "unfilled" are completely wrong.
When I comment out the "MakePartsMatrix" subroutine, the parallellization (either inner or outer For loops) does appear to visit every point of the grid (x,y) once, and only once.
Dim ConcurrentListofResults As ConcurrentQueue(Of FindBestResults)
ConcurrentListofResults = New ConcurrentQueue(Of FindBestResults)
Dim FBSResultsItem As FindBestResults
[Code].....
I have an arraylist of a "Doctor" class containing Firstname, Lastname,etc. Some elements in this arraylist may be duplicates of others. I am trying to iterate through the arraylist and search for duplicates. Once i find a duplicate i want BOTH duplicates put into another array and removed from the original array.
here is my function
Public Function createArrayOfDuplicatesAndRemove(ByVal st As ArrayList)
Dim duplicates As New ArrayList()
Dim i, j As Integer
[code]....
How could something be out of range if i start at the end and work to the front?
I am trying to code something with nested for loop with the following format:
[CODE]...........
However when the program hits the last value of 'For loop 1', the nested for loops seem to only trigger once instead of the number of times that i specified.
Private Sub populatedgv1()
'setup temptable to store Server data
Dim m_table As New DataTable
[CODE]........................
So I have some vb.net code, and I have a nested For loop inside a For loop, and then I have EXIT FOR statement, will it break out of one loop, or the whole chain?
View 2 Repliesthe purpose of the program is to display the monthly payments on the loan.My homework is to use do while loops instead of for loop.Here is the code for the for loop.
Option Explicit On
Option Strict On
Option Infer Off
[code].....
Now I'm having some trouble displaying the output using the do while loop, and I'm pretty sure it's a loop problem on my code. However, I cannot seemed to find out what's wrong. I looked at the examples of do while loop in my textbook, but I couldn't find anything useful to my problems of my program.This is the output for the do while loop.
Here's the do while loop code
Option Explicit On
Option Strict On
Option Infer Off
[code].....
When I use a For loop in a For loop the Contains Statement dosen't work! Even my custom one! I even tested mine and it works 100% And neither that or the String.Contains function work inside of For Loops And, I know both of them use loops to search through a string.
My function(It will atleast search once):
Function RealContains(ByVal load As String, ByVal needle As String) As Boolean
load = load.ToLower
[CODE].....................
so far i got
code
For Each item As Reflection.FieldInfo In GetType(NameSpace.ClassWithNestedClasses).GetFields
rtfAppend(item.Name & ":" & Tab & item.GetValue(Me))
Next
For Each item As Reflection.PropertyInfo In GetType(NameSpace.ClassWithNestedClasses).GetProperties()
[code]...
which gets me the simple string vars and properties of my top class, but how can i apply this to loop through all sub classes and get there vars and props?
draw individual pixels, without resorting to drawing a line and setting it's length to 1. Is there an actual ability to draw a pixel that is just 1 pixel big?
View 2 RepliesI wanna make shapes like vb6 but i don't have shapes like that. i need to make them an array.is there any component or something to use like shapes?
View 3 RepliesI've to show some PowerPacks.RectangleShape in a PowerPacks.ShapeContainer. A loop in my code add shapes to the container
(objshapecontainer.shapes.add(objshape), but at the end of the loop, only the last shape is displayed, in fact objshapecontainer.shapes.count doesn't exceed 1
Can I draw my own shapes (such as a filled circle, square, etc.) on a form?Can it be done from code as well as from the designer?Can I use events such as onClick() on the shapes?
View 3 RepliesI have a macro that creates shapes in my documents. The following macro will delete all of them. How do I modify it so if they say NO it will go through the document and find each occurance of the shape and ask if you want to delete this one? [code]
View 2 RepliesI am drawin three concentric circles, each with corresponding radial lines from the center to the side of each segment. I want to place text inside each segment and can do so with a horizontal text. I want to ROTATE the text to match the segment's angle and fit perfectly inside the segment, but when I use the Tramsform/Rotate options in VB 2010 the text is rotated but ends up in a unforeseeable place.
View 6 RepliesI want to use a loop to draw different types of shapes on a visual. I want to use the Random function sothat the number of each shape would be set randomly. For example, I want three triangles followed by two circles, followed by two triangles, etc. When you click the button again a different set of shapes would be rendered. I can draw shapes. What I need is how to use the loops and Random() to do this. I tried to use concatenation but it does not work with the Polygons.
View 15 RepliesI need some code to draw a resizable, draggable rectangular cursor (or selection box) on a picturebox. I found some excellent code (albeit rather old) that does just that, but on a form rather than a picturebox. I have tried converting the code - basically moving things to the picturebox events (Paint, MouseDown, MouseMove etc). It nearly works but leaves a trail behind it when you move or resize the cursor. In other words, the selection rectangle is not being erased before being drawn in the new position.
Is there some fundamental difference between drawing graphics on a form and drawing on a picturebox that would cause this behaviour? Something like, when you invalidate a form and cause a redraw it erases what you did last? If not, then I just need to dig a bit further and work out how the cursor is being erased from the previous position.
Here's the original code that works fine on a form:
Private DragRect As New RectangleF(20, 20, 100, 80)
Private Adornments(7) As RectangleF
Private MouseInRect As Boolean = False
[Code]....
Say I have 3 Buttons, labelled: Unit 1, Unit 2 and Unit 3. When I click on any button I want a drawing of that unit to appear on screen at a pre-specified starting point. Thereafter when I press any other one of the buttons the unit drawings appear alongside each other in a line. So I could end up with:
[Code]...
With this line...
If PictureBox1.Image = My.Resources._2star Then
I get this error: Operator '=' is not defined for types 'System.Drawing.Image' and 'System.Drawing.Bitmap'.Is there another way to say = with images?
how do I create a geometric shape as a class? Visual basic has a Rectangle class pre-defined object that I would like to use, but I need to use a rectangle class that can use decimals for the 4 points to set its location. I do not want to draw a shape on the form for graphical reasons but I want to use the shape for an algorithm, how can I create a class for a rectangle using decimals?
View 1 RepliesI need to dynamically add ovalshapes to a form. The application user would enter a number of shapes (variable), and other parameters for the shapes as location, color,etc. After this I need to display these shapes in the screen. Every sample I found shows a fix number of shape hardcode by the programmer.
View 4 Replies