Es correcto pero cabe aclarar que eso no es reflexión, es generar controles en tiempo de ejecución
.

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú 'Guardara la posición vertical (en el eje Y donde dibujamos la linea)
Dim vertical As Integer = 0
'Guarda el avance en el degradado
Dim pasoAlpha As Double
'Guarda el valor de Alpha
Dim alpha As Double = 255
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
'255 es el valor maximo de Alpha (Byte)'
'dividimos entre el alto del Form para
'saber cuanto debemos restar a Alpha en
'cada linea que dibujemos
pasoAlpha = 255 / (Me.Height - 1)
'Mientras que no nos pasemos de los limites del Form y Alpha se valido
While vertical < Me.Height And alpha > 0
'Dibujamos la linea
e.Graphics.DrawLine(New Pen(Color.FromArgb(alpha, _
Color.GreenYellow.R, _
Color.GreenYellow.G, _
Color.GreenYellow.B)), _
0, vertical, _
Me.Width - 1, vertical)
'Avanzamos uno hacia abajo (eje Y)
vertical += 1
'Degradamos otro paso
alpha -= pasoAlpha
End While
End Sub
Imports System.Drawing.Drawing2D
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim Rectángulo As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)
Dim Brocha As New LinearGradientBrush(Rectángulo, Color.Red, Color.Green, LinearGradientMode.Vertical)
e.Graphics.FillRectangle(Brocha, Rectángulo)
End Sub
End Class
Cita de: Brian1511 en 26 Octubre 2012, 22:06 PM
Hola amigos del foro como estan bueno mi duda es la siguiente y es que quiero hacer un login + registrer en vb conectandola con una base de datos creada en 000.webhost.com
si alguin seria tan amable de pasarme los code se los agradeceria
yo mas o menos tengo algo y es esto
Try
Dim usuario As New Net.WebClient
Dim pass As New Net.WebClient
usuario.Credentials = New Net.NetworkCredential("usuario del ftp", "pass del ftp")
usuario.UploadString("ftp://servidor/usuarios/usuario.txt", TextBox1.Text & vbNewLine)
pass.Credentials = New Net.NetworkCredential("usuario del ftp", "pass del ftp")
pass.UploadString("ftp://servidor/contraseñas/contraseña.txt", TextBox2.Text & vbNewLine)
Catch ex As Exception
MsgBox("Error en la conexión")
End Try