Simplificación del código
Publicado por AVIZOR (5 intervenciones) el 10/06/2021 03:10:57
Buenas tardes, estoy trabajando en un sistema de Soporte mediante una aplicación de VB.NET Estoy en esta parte, tal vez muchos no la entiendan, necesito hacer este tema para solicitar ayuda de ideas acerca de como estructurar el código, para evitar repeticiones como las que van a ver
Este es mi código:
Y esto es lo que me gustaria simplificar, ya que no solo necesito estos dos casos, sino que son como 10 Inputbox con el mismo chequeo y un goto line X, que tengo que usar!
Este es mi código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub SelectedType(ByVal ListIndex As E_TYPESUPPORT)
Dim Temp As String = vbNullStringCall MsgBox("Los datos que nos proporciones serán de utilidad para resolver el problema de manera mucho más rápida. Lee con atención. Si alguno no lo sabes, simplemente no lo respondas aunque algunos serán necesarios SI o SI.")
Line1:txtMessage.Clear()
Select Case ListIndex + 1 Case E_TYPESUPPORT.eBanTemp = InputBox("Proporcione el nombre del personaje que se encuentra baneado")
If Temp = vbNullString ThenIf MsgBox("El dato ingresado no puede estar vacío ¿Desea volver a intentarlo?", MsgBoxStyle.YesNo) = vbYes Then
GoTo Line1
Else
Exit Sub
End If
End If
Call AddConsole(txtMessage, "Nombre: ", FontType.FONTTYPE_PREDEFINED, False)
Call AddConsole(txtMessage, Temp, FontType.FONTTYPE_BODYAUTHOR, True)
Line2:Temp = InputBox("Proporcione el email del personaje que se encuentra baneado")
If Temp = vbNullString ThenIf MsgBox("El dato ingresado no puede estar vacío ¿Desea volver a intentarlo?", MsgBoxStyle.YesNo) = vbYes Then
GoTo Line2
Else
Exit Sub
End If
End If
Call AddConsole(txtMessage, "Email: ", FontType.FONTTYPE_PREDEFINED, False)
Call AddConsole(txtMessage, Temp, FontType.FONTTYPE_BODYAUTHOR, True)
Case E_TYPESUPPORT.eDenunceCheaterEnd Select
End Sub
Y esto es lo que me gustaria simplificar, ya que no solo necesito estos dos casos, sino que son como 10 Inputbox con el mismo chequeo y un goto line X, que tengo que usar!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Temp = InputBox("Proporcione el nombre del personaje que se encuentra baneado")
If Temp = vbNullString ThenIf MsgBox("El dato ingresado no puede estar vacío ¿Desea volver a intentarlo?", MsgBoxStyle.YesNo) = vbYes Then
GoTo Line1
Else
Exit Sub
End If
End If
Call AddConsole(txtMessage, "Nombre: ", FontType.FONTTYPE_PREDEFINED, False)
Call AddConsole(txtMessage, Temp, FontType.FONTTYPE_BODYAUTHOR, True)
Line2:Temp = InputBox("Proporcione el email del personaje que se encuentra baneado")
If Temp = vbNullString ThenIf MsgBox("El dato ingresado no puede estar vacío ¿Desea volver a intentarlo?", MsgBoxStyle.YesNo) = vbYes Then
GoTo Line2
Else
Exit Sub
End If
End If
Call AddConsole(txtMessage, "Email: ", FontType.FONTTYPE_PREDEFINED, False)
Call AddConsole(txtMessage, Temp, FontType.FONTTYPE_BODYAUTHOR, True)
Valora esta pregunta
0
