Comments on: Los 50 errores más estupidos, tontos y absurdos en el diseño de interfaces de aplicaciones :D http://www.recursosdelweb.com/los-50-errores-mas-estupidos-tontos-y-absurdos-en-el-diseno-de-interfaces-de-aplicaciones-d/ Los recursos de Internet en el poder de tus manos Mon, 01 Dec 2008 20:45:34 +0000 http://wordpress.org/?v=2.3.2 By: Ricardo http://www.recursosdelweb.com/los-50-errores-mas-estupidos-tontos-y-absurdos-en-el-diseno-de-interfaces-de-aplicaciones-d/#comment-484 Ricardo Fri, 30 May 2008 07:45:54 +0000 http://www.recursosdelweb.com/los-50-errores-mas-estupidos-tontos-y-absurdos-en-el-diseno-de-interfaces-de-aplicaciones-d/#comment-484 gracias amigo.... en textbox1.font me marcaba error pero pues yo no le metia System.Drawing.GraphicsUnit.Point, CType(0, Byte)) :lol: quien sabe porque el error eda? jajaja gracias amigo…. en textbox1.font me marcaba error pero pues yo no le metia System.Drawing.GraphicsUnit.Point, CType(0, Byte)) :lol: quien sabe porque el error eda? jajaja

]]> By: Angel López http://www.recursosdelweb.com/los-50-errores-mas-estupidos-tontos-y-absurdos-en-el-diseno-de-interfaces-de-aplicaciones-d/#comment-483 Angel López Fri, 30 May 2008 03:32:53 +0000 http://www.recursosdelweb.com/los-50-errores-mas-estupidos-tontos-y-absurdos-en-el-diseno-de-interfaces-de-aplicaciones-d/#comment-483 Listo: tu problema a quedado soluacionada :D saludos Public Class Form1 Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ff As FontFamily For Each ff In System.Drawing.FontFamily.Families ListBox1.Items.Add(ff.Name) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ListBox1.Items.Clear() End Sub Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click TextBox1.Text = CStr(ListBox1.Items(ListBox1.SelectedIndex)) TextBox1.Font = New System.Drawing.Font(TextBox1.Text, TextBox1.Font.Size, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) End Sub End Class Listo: tu problema a quedado soluacionada :D saludos

Public Class Form1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ff As FontFamily

For Each ff In System.Drawing.FontFamily.Families
ListBox1.Items.Add(ff.Name)
Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
End Sub

Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
TextBox1.Text = CStr(ListBox1.Items(ListBox1.SelectedIndex))
TextBox1.Font = New System.Drawing.Font(TextBox1.Text, TextBox1.Font.Size, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
End Sub
End Class

]]> By: Ricardo http://www.recursosdelweb.com/los-50-errores-mas-estupidos-tontos-y-absurdos-en-el-diseno-de-interfaces-de-aplicaciones-d/#comment-482 Ricardo Fri, 30 May 2008 00:38:49 +0000 http://www.recursosdelweb.com/los-50-errores-mas-estupidos-tontos-y-absurdos-en-el-diseno-de-interfaces-de-aplicaciones-d/#comment-482 Que tal angel. oye una pregunta aver si tu me puedes ayudar... mira la cosa es la siguiente en mi blog publique esto http://devblab.net/?p=51 que lo hice en VB 6.0 pero lo quiero cambiar a 2005 solo que me falla algo en checa mi cdigo en 2005 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ff As FontFamily For Each ff In System.Drawing.FontFamily.Families ListBox1.Items.Add(ff.Name) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ListBox1.Items.Clear() End Sub Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click TextBox1.Text = CStr(ListBox1.Items(ListBox1.SelectedIndex)) End Sub ya esta casi terminado el programita solo le falta el casi :lol: pero pues no puedo quiero que en textbox se puedan "testear" tal y como lo hice en el VB6.0 pero no puedo :( ojala me puedas hechar la mano. Gracias :lol: Que tal angel. oye una pregunta aver si tu me puedes ayudar… mira la cosa es la siguiente en mi blog publique esto
http://devblab.net/?p=51

que lo hice en VB 6.0 pero lo quiero cambiar a 2005 solo que me falla algo en checa mi cdigo en 2005

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ff As FontFamily

For Each ff In System.Drawing.FontFamily.Families
ListBox1.Items.Add(ff.Name)
Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()

End Sub

Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
TextBox1.Text = CStr(ListBox1.Items(ListBox1.SelectedIndex))

End Sub

ya esta casi terminado el programita solo le falta el casi :lol: pero pues no puedo quiero que en textbox se puedan “testear” tal y como lo hice en el VB6.0 pero no puedo :( ojala me puedas hechar la mano. Gracias :lol:

]]>