Language Basics ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. Language Basics
  4. Pass parameters to subroutine (VB net)
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb"  Inherits="Default" %>


    Untitled Page


    
    

        
        
        
    

    


File: Default.aspx.vb
Partial Class Default
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        output.Text = String.Empty
        DisplayMessage("Welcome to my website")
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        DisplayMessage("Welcome to my website")
    End Sub
    Private Sub DisplayMessage(ByVal message As String)
        Dim i As Integer
        For i = 1 To 4
            output.Text &= message
        Next i
    End Sub
End Class