un settings se hacen con un lagel o en los menus. por ejemplo:
haces un projecto, luego en el form pones un label pequeño que diga Settings o configuracion. luego en el evento Click del label pones lo siguiente:
Private Sub Label1_Click()
Form2.Load
Unload Me
End Sub
Private Sub Form1_Load()
If Exist "C:\Mensaje.txt" Then
Dim arc AS String
dim s As String
arc = "C:\Mensaje.txt"
Open arc For input as #1
Line_input arc, s
msgbox s
End If
luego añades otro Form. y en la propiedad name la dejas Form2.
..............
..
En este form es que haces las configuracione
s ya sean con checkbox, Option buttons o con cualquier mierda de controles que existan jejeje.
ejemplo:
3 checkbox y 2 option buttons en este form
ahora en el codigo del form pones lo siquiente:
Private Sub Form_Load()
With Check1 ' Codigo para Check1
.caption = "Form1 Pantalla entera" ' el Caption del check1
.Value = False ' el valor es 0 osea no esta marcado
End With
With Check2
.caption = "Form1 Con color Rojo"
.Value = True
End With
With Check3
.caption = "Form1 Con Color de texto azul"
.value = true
End With
Option1.Caption = "Mostrar Mensaje de entrada"
Option2.Caption = "No muestres nada coño"
With Option1
.value = True
End With
' El codigo lo puse asi solo para ejemplos asi que no critiquen.
End Sub
Private Sub Form2_Unload()
If Check1.value = 1 Then
'codigo
End If
If Check2.Value = True Then
Form1.BackColor = RGB(255,0,0)
Else
Form1.BackColor = vbDefault
End If
If Check2.Value = TRUE Then
Form1.ForeColor = RGB(0,0,255)
else
Form1.ForColor = RGB(0,0,0)
End If
If Option1.Value = True Then
Open "C:\Mensaje.txt" For Output AS #1
write "Welcome to My cafe, Bienvenidos a mi cafe"
Close #1
Else
End If
End Sub
lo acabo de inventar asi que lo mas probable tenga mas de 10 errores pero te da una idea de como hacer lo que necesitas
Autor