Hola!, Esta es la quinta ultima parte de Te enseño vb desde cero.
Bueno, como prometí (estube con un par de problemas, pero ya está), vamos a hacer un editor de texto al estilo de bloc de notas o notepad
Ejercicio Nº5: realizacion de un editor de textos.
elementos necesarios:
1 Textbox
7 commandbutton
3 optionbutton
1 common dialog
Video:
...........................................
despues del video colocar el siguiente codigo.
Yapa!
Haremos un keygen (es solo para aprender un poco mas, no estoy incentivando a la pirateria y demas cosas)
consiste en agregar valores diferentes y que los muestre aleatoriamente en un textbox.
Elementos Necesarios:
1 textbox
1 commandbutton
codigo (colocar en el commandbutton):
Bueno, con esto finaliza Te enseño vb6.0 desde cero, con esto ya les doy pata (inicio) para que empiezen haciendo sus programas.
cualquier duda, Manden MP, busquen en la web, o pidan ayuda a alguien que sepa de esto.
Otro consejo: planteense un programa que ayude en lo que seria en la vida cotidiana de la pc; ejemplo: programa que les abra facebook, les coloque el usuario y la contraseña, por asi decirlo. si trabajas en una empresa y te es engorroso colocar en cada celda (exel) datos que pones todos los dias, esto te ayuda demasiado en esas cosas.
espero que les haya gustado, y Hasta la proxima!
Bueno, como prometí (estube con un par de problemas, pero ya está), vamos a hacer un editor de texto al estilo de bloc de notas o notepad
Ejercicio Nº5: realizacion de un editor de textos.
elementos necesarios:
1 Textbox
7 commandbutton
3 optionbutton
1 common dialog
Video:
...........................................
despues del video colocar el siguiente codigo.
Private Sub Command1_Click()
Text1.FontBold = Not Text1.FontBold
End Sub
Private Sub Command2_Click()
Text1.FontItalic = Not Text1.FontItalic
End Sub
Private Sub Command3_Click()
Text1.FontUnderline = Not Text1.FontUnderline
End Sub
Private Sub Command4_Click()
Dim fr As String
fr = FreeFile
With CommonDialog1
.Filter = "Texto (*.txt)|*.txt|archivos por lotes (*.bat)|*.bat"
.ShowSave
If .FileName <> "" Then
Open .FileName For Output As fr
Print #fr, Text1.Text
Close fr
End If
End With
End Sub
Private Sub Command5_Click()
Dim fr As String
fr = FreeFile
With CommonDialog1
.Filter = "Texto (*.txt)|*.txt|archivos por lotes (*.bat)|*.bat"
.ShowOpen
If .FileName <> "" Then
Open .FileName For Input As fr
Text1.Text = Input(LOF(1), #fr)
Close fr
End If
End With
End Sub
Private Sub Command6_Click()
Text1.Font = "Arial"
End Sub
Private Sub Command7_Click()
Text1.Font = "Comic Sans MS"
End Sub
Private Sub Form_Load()
Me.Caption = "Editor de texto O.o"
Text1.Font = "Arial"
End Sub
Private Sub Option1_Click()
Text1.FontSize = 10
End Sub
Private Sub Option2_Click()
Text1.FontSize = 16
End Sub
Private Sub Option3_Click()
Text1.FontSize = 25
End Sub
Private Sub Option4_Click()
Text1.FontSize = 32
End Sub
Yapa!
Haremos un keygen (es solo para aprender un poco mas, no estoy incentivando a la pirateria y demas cosas)
consiste en agregar valores diferentes y que los muestre aleatoriamente en un textbox.
Elementos Necesarios:
1 textbox
1 commandbutton
codigo (colocar en el commandbutton):
text1.text = int(rnd()*7)
select case text1.text
'pueden utilizar cuantos "case" nesesiten siguiendo la numeración
case 0
text1.text = "clave1"
case 1
text1.text = "clave2"
case 2
text1.text = "clave3"
case 3
text1.text = "clave4"
case 4
text1.text = "clave5"
case 5
text1.text = "clave6"
end select
Bueno, con esto finaliza Te enseño vb6.0 desde cero, con esto ya les doy pata (inicio) para que empiezen haciendo sus programas.
cualquier duda, Manden MP, busquen en la web, o pidan ayuda a alguien que sepa de esto.
Otro consejo: planteense un programa que ayude en lo que seria en la vida cotidiana de la pc; ejemplo: programa que les abra facebook, les coloque el usuario y la contraseña, por asi decirlo. si trabajas en una empresa y te es engorroso colocar en cada celda (exel) datos que pones todos los dias, esto te ayuda demasiado en esas cosas.
espero que les haya gustado, y Hasta la proxima!