newbie vb question

[newbieVB101011]

Hey I have kind of a newbie question, I'm trying to make a little joke application for my friend, and untill I can go to the store and pick up a VB book can you guys help me out?

I got a Form, with one button and on textbox. You can't type in the text box.

what i'm trying to do is make a little string array to make a program that does this:

when you hit the button, it enters into TextBox1 = MyStringArray(0), then when you hit it again it does MyStringArray(1), then MyStringArray(2), then MyStringArray(3), then when its again go back to MyStringArray(0).

is there an easy/simple way to do this? im hoping to get it made by tommorow.
thanks guys and sorry for the extremely newbie question

[dglienna]

Welcome to the forums! Try something like this:

Option Explicit
 
Dim str(3) As String
Dim x As Integer
 
Private Sub Command1_Click()
  Text1.Text = str(x)
  x = x + 1
  x = x Mod 4
End Sub
 
Private Sub Form_Load()
  str(0) = "David "
  str(1) = "is "
  str(2) = "the "
  str(3) = "Best!"
End Sub

[RobDog888]

Welcome to the forums! Try something like this:

Option Explicit
 
Dim str(3) As String
Dim x As Integer
 
Private Sub Command1_Click()
  Text1.Text = str(x)
  x = x + 1
  x = x Mod 4
End Sub
 
Private Sub Form_Load()
  str(0) = "David "
  str(1) = "is "
  str(2) = "the "
  str(3) = "Best!"
End Sub

This is the VB.NET forum and not Classic VB forum (VB6). newbieVB101011, which version of VB are you using?

This is the correct way in VB.NET to do it.

Dim MyStringArray(3) As String
Dim i As Integer = 0
 
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    MyStringArray(0) = "Test 0"
    MyStringArray(1) = "Test 1"
    MyStringArray(2) = "Test 2"
    MyStringArray(3) = "Test 3"
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox1.Text = MyStringArray(i)
    i += 1
    If i > 3 Then i = 0
End Sub

[dglienna]

Oops. Happy New Year! "New Posts" strikes again!

[RobDog888]

Well not really as the thread starter has not identifed which version he is using. Could go either way and now hes got answers for both.

Happy Pre-New Years!

[dglienna]

HAHAHAHAHA! The first one that the upgrade wizard got right!

Option Strict Off
Option Explicit On
Friend Class Form1
    Inherits System.Windows.Forms.Form
#Region "Windows Form Designer generated code "
    Public Sub New()
        MyBase.New()
        If m_vb6FormDefInstance Is Nothing Then
            If m_InitializingDefInstance Then
                m_vb6FormDefInstance = Me
            Else
                Try 
                    'For the start-up form, the first instance created is the default instance.
                    If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
                        m_vb6FormDefInstance = Me
                    End If
                Catch
                End Try
            End If
        End If
        'This call is required by the Windows Form Designer.
        InitializeComponent()
    End Sub
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
        If Disposing Then
            If Not components Is Nothing Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(Disposing)
    End Sub
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    Public ToolTip1 As System.Windows.Forms.ToolTip
    Public WithEvents Command1 As System.Windows.Forms.Button
    Public WithEvents Text1 As System.Windows.Forms.TextBox
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.components = New System.ComponentModel.Container()
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(components)
        Me.ToolTip1.Active = True
        Me.Command1 = New System.Windows.Forms.Button
        Me.Text1 = New System.Windows.Forms.TextBox
        Me.Text = "Form1"
        Me.ClientSize = New System.Drawing.Size(312, 206)
        Me.Location = New System.Drawing.Point(4, 30)
        Me.StartPosition = System.Windows.Forms.FormStartPosition.WindowsDefaultLocation
        Me.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
        Me.ControlBox = True
        Me.Enabled = True
        Me.KeyPreview = False
        Me.MaximizeBox = True
        Me.MinimizeBox = True
        Me.Cursor = System.Windows.Forms.Cursors.Default
        Me.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.ShowInTaskbar = True
        Me.HelpButton = False
        Me.WindowState = System.Windows.Forms.FormWindowState.Normal
        Me.Name = "Form1"
        Me.Command1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.Command1.Text = "Command1"
        Me.Command1.Size = New System.Drawing.Size(81, 33)
        Me.Command1.Location = New System.Drawing.Point(120, 88)
        Me.Command1.TabIndex = 1
        Me.Command1.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Command1.BackColor = System.Drawing.SystemColors.Control
        Me.Command1.CausesValidation = True
        Me.Command1.Enabled = True
        Me.Command1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Command1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Command1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Command1.TabStop = True
        Me.Command1.Name = "Command1"
        Me.Text1.AutoSize = False
        Me.Text1.Size = New System.Drawing.Size(81, 33)
        Me.Text1.Location = New System.Drawing.Point(32, 24)
        Me.Text1.TabIndex = 0
        Me.Text1.Text = "Text1"
        Me.Text1.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Text1.AcceptsReturn = True
        Me.Text1.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
        Me.Text1.BackColor = System.Drawing.SystemColors.Window
        Me.Text1.CausesValidation = True
        Me.Text1.Enabled = True
        Me.Text1.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Text1.HideSelection = True
        Me.Text1.ReadOnly = False
        Me.Text1.Maxlength = 0
        Me.Text1.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.Text1.MultiLine = False
        Me.Text1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text1.ScrollBars = System.Windows.Forms.ScrollBars.None
        Me.Text1.TabStop = True
        Me.Text1.Visible = True
        Me.Text1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Text1.Name = "Text1"
        Me.Controls.Add(Command1)
        Me.Controls.Add(Text1)
    End Sub
#End Region 
#Region "Upgrade Support "
    Private Shared m_vb6FormDefInstance As Form1
    Private Shared m_InitializingDefInstance As Boolean
    Public Shared Property DefInstance() As Form1
        Get
            If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
                m_InitializingDefInstance = True
                m_vb6FormDefInstance = New Form1()
                m_InitializingDefInstance = False
            End If
            DefInstance = m_vb6FormDefInstance
        End Get
        Set
            m_vb6FormDefInstance = Value
        End Set
    End Property
#End Region 
    
    'UPGRADE_NOTE: str was upgraded to str_Renamed. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1061"'
    Dim str_Renamed(3) As String
    Dim x As Short
    
    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        Text1.Text = str_Renamed(x)
        x = x + 1
        x = x Mod 4
    End Sub
    
    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        str_Renamed(0) = "David "
        str_Renamed(1) = "is "
        str_Renamed(2) = "the "
        str_Renamed(3) = "Best!"
        Text1.Enabled = False
    End Sub
End Class

Runs exactly the same way.

[RobDog888]

That is totally sick looking code logic by the wizard. Yet another example of why not to use the upgrade wizard.