1
« en: Sábado 9 de Agosto de 2008, 23:38 »
amigos....
mi problema no es con un textbox ni base de datos...
mi problema es con inputbox...
lo que pasa es que ejecuto un programa que me hace una serie de preguntas y la respuesta es guardada en una variable,mi problema es que cuando le doy aceptar en el ultimo inputbox que me muestra en pantalla se repiten las mismas preguntas en la ejecucion del programa cuando nisiqueira tengo un for...
porfavor diganme que es lo que pued pasar...aki les dejo el codigo
Public Class Form3
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
Dim lienzo1 As Graphics = Me.CreateGraphics
Dim lienzo2 As Graphics = Me.CreateGraphics
Dim radiostring As VariantType
Dim pregunta_2 As VariantType
Dim cuadrante() As VariantType = {"1", " 2", "3", " 4"}
Dim x As Integer
Dim y As Integer
lienzo1.DrawLine(New Pen(Color.Black, 2), New Point(5, 375), New Point(1270, 375))
lienzo1.DrawLine(New Pen(Color.Black, 2), New Point(640, 5), New Point(640, 745))
pregunta_2 = InputBox("Ingrese el numero del cuadrante en el que desea que se traze", "Circunferencia")
If pregunta_2 = cuadrante(0) Then
x = 960
y = 200
ElseIf pregunta_2 = cuadrante(1) Then
x = 320
y = 182
ElseIf pregunta_2 = cuadrante(2) Then
x = 320
y = 557
ElseIf pregunta_2 = cuadrante(3) Then
x = 960
y = 557
Else
MsgBox("Tu respuesta es invalida", MsgBoxStyle.Critical)
End If
radiostring = InputBox("Ingrese tamaño del radio", "Circunferencia")
lienzo2.DrawEllipse(Pens.Black, New Rectangle(x, y, radiostring, radiostring))
End Sub
Mostrar Mensajes
