Hola, soy nuevo en este grandioso foro, mi problema es el siguiente:

Estoy tratando de hacer un boton, que, al precionarlo, cambia el tamaño de la ventana, y muestre un texto, algo parecido a esto:

Antes de precionar el boton:



Despues:



Y hacer aparecer y desaparecer un texto, porfavor ayudenme, disculpen si me equivoque de seccion es que soy nuevo en el foro

Pd: no se mucho sobre visual basic

Saludos:

Para ello debes cambiar el tamaño del formulario. En el evento Click del boton en que deseas hacer esto, colocas:

Dim Alto As Integer = 670
Dim Ancho As Integer = 569
Me.Size = New Size(Alto, Ancho)

Para hacer aparecer o desaparecer un texto, tienes dos opciones:

Dim MyText As String = "Texto de Prueba"
Label1.Text = MyText

Ocultar el control que lo contenga:
Label1.Visible = False

O Limpiar el texto del control
Label1.Text = ""

Espero ayude.


JOSE LUIS

Bueno, si me sirvio, pero yo puse el "maximun" en 448, 476

Y entonces el boton no funciona, ya que eso solo hace que cambie el tamaño, no el maximo o minimo de la ventana.

hay alguna forma de hacer esto (basado en lenguaje de programacion gta):

if(maximun = 448, 476)
maximun = 600, 600
else
maximun = 448, 476

gracias de todas maneras por ayudar

Bueno, ya solucione el problema, pero gracias, lo que hice fue esto

En el diseño puse "0,0"

Y en el codigo puse esto


Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim MaxAlto1 As Integer = 448
Dim MaxAncho1 As Integer = 479
Dim Alto As Integer = 448
Dim Ancho As Integer = 679
If Height = 479 Then
Me.MaximumSize = New Size(Alto, Ancho)
Me.MinimumSize = New Size(Alto, Ancho)
Me.Size = New Size(Alto, Ancho)
Else
Me.MaximumSize = New Size(MaxAlto1, MaxAncho1)
Me.MinimumSize = New Size(MaxAlto1, MaxAncho1)
Me.Size = New Size(MaxAlto1, MaxAncho1)
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MaxAlto1 As Integer = 448
Dim MaxAncho1 As Integer = 479
Me.MaximumSize = New Size(MaxAlto1, MaxAncho1)
Me.MinimumSize = New Size(MaxAlto1, MaxAncho1)
End Sub

Bueno gracias por ayudar

Ahora tengo otro problema

En mi pc anda perfectamente, pero cuando mando el ejecutable a otras pc, les tira un error

Es debido a un problema en el codigo? Un amigo me dijo que mientras mas tarda y ejecuta el problema tendra un error en su codificacion

Porfavor alguien me prodria ayudar?

Saludos:

Probablemente sea a la dimension de la pantalla. Trata de averiguar primero el ancho y alto de la pantalla, asi:


Dim desktopSize As Size desktopSize = System.Windows.Forms.SystemInformation.PrimaryMoni torSize Dim height As Integer = desktopSize.Height Dim width As Integer = desktopSize.Width

Espero ayude.


JOSE LUIS

No creo, el menu es mas diminuto que la pantalla

Te dejo el link y si puedes, pruebas el programa, porque en mi pc funciona perfectamente, pero en la de los demas no

FBI Program.exe download - 2shared

Saludos:

Parece que el error es por la falta de librerias del proyecto. Debes crear un instalador, para llevar las referencias con el ejecutable.

Espero ayude.



JOSE LUIS

Muchas gracias, el problema era, que habia usado el LineShape de VisualBasic Powerpack

Asi que cree un label con el texto " ________________________________" jeje asi resolvi mi problema
Gracias por ayudar de todas formas