Archived

This topic is now archived and is closed to further replies.

Motwner

QUICK BUT URGENT VISUAL BASIC QUESTION!!!!!!!!

Recommended Posts

i wrote code for a program that prints rows of asteriks with four command buttons. I now have to change it into using one command button. Just copy/pasting under one command button isnt cutting it. Does anyone have any suggestions? I''VE TRIED EVERYTHING!!!!!!! Thank you heres my code with the four command buttons if it helps: Option Explicit Dim strb As String, stra As String, strc As String, strd As String Dim a As Boolean Dim b As Boolean Dim c As Boolean Dim d As Boolean Private Sub cmdb_Click() Cls stra = "" b = True Dim j As Integer For j = 10 To 0 Step -1 strb = String$(j, "*") If a = True Then stra = stra + "*" If Len(stra) > 10 Then stra = "" End If End If If c = True Then strc = Space$(10 - j) + String$(j, "*") If Len(strc) > 10 Then strc = "" End If End If If d = True Then strd = Space$(j) + String$(10 - j, "*") If Len(strd) > 10 Then stra = "" End If End If Print stra, strb, strc, strd Next j End Sub Private Sub cmdc_Click() Cls Dim j As Integer For j = 10 To 0 Step -1 c = True If a = True Then stra = stra + "*" If Len(stra) > 10 Then stra = "" End If End If If b = True Then strb = String$(j, "*") If Len(strb) > 10 Then strb = "" End If End If If d = True Then strd = Space$(j) + String$(10 - j, "*") If Len(strd) > 10 Then strd = "" End If End If strc = Space$(10 - j) + String$(j, "*") Print stra, strb, strc, strd Next j End Sub Private Sub cmda_Click() Dim i As Integer For i = 0 To 9 Step 1 a = True stra = stra + "*" Print stra Next i End Sub Private Sub cmdd_Click() Cls strd = "" Dim j As Integer For j = 10 To 0 Step -1 If a = True Then stra = stra + "*" If Len(stra) > 10 Then stra = "" End If End If If b = True Then strb = String$(j, "*") If Len(strb) > 10 Then strb = "" End If End If If c = True Then strc = Space$(10 - j) + String$(j, "*") If Len(strc) > 10 Then strc = "" End If End If strd = Space$(j) + String$(10 - j, "*") Print stra, strb, strc, strd Next j End Sub Private Sub Label1_Click() End Sub Private Sub Form_Load() a = False b = False c = False d = False End Sub

Share this post


Link to post
Share on other sites