99热在线精品一区二区三区_国产伦精品一区二区三区女破破_亚洲一区二区三区无码_精品国产欧美日韩另类一区

使用vb.net編寫一個(gè)函數(shù)，函數(shù)只有一個(gè)參數(shù)

首先在窗體上添加Button1，ListBox1，下面是完整代碼

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站制作、成都做網(wǎng)站、巴楚網(wǎng)絡(luò)推廣、微信平臺小程序開發(fā)、巴楚網(wǎng)絡(luò)營銷、巴楚企業(yè)策劃、巴楚品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供巴楚建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18980820575，官方網(wǎng)址：www.cdcxhl.com

Public?Class?Form1

Public?Sub?BubbleSort(ByVal?arr()?As?Integer)?'冒泡法排序

Dim?temp?As?Double

Dim?i,?j?As?Integer

For?i?=?0?To?arr.GetUpperBound(0)?-?1

For?j?=?i?+?1?To?arr.GetUpperBound(0)?-?1

If?arr(i)??arr(j)?Then

temp?=?arr(j)

arr(j)?=?arr(i)

arr(i)?=?temp

End?If

Next

Next

End?Sub

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click?'調(diào)用

Dim?arr()?As?Integer?=?{55,?22,?33,?11,?77,?88}

BubbleSort(arr)?'調(diào)用排序過程

Me.ListBox1.Items.Clear()

For?i?=?0?To?arr.GetUpperBound(0)?-?1?'顯示排序后結(jié)果

Me.ListBox1.Items.Add(arr(i).ToString)

Next

End?Sub

End?Class

vb.net怎么用構(gòu)造函數(shù)傳參進(jìn)行窗體間跳轉(zhuǎn)？

Public?Class?Form2

Dim?test?As?String

Public?Sub?New(ByVal?_test?As?String)

test?=?_test

End?Sub

End?Class

Form1 中 New Form2("abc") 即可傳參給 Form2 中的 test。

但在 VB.NET 中，沒必要這么麻煩，只需要聲明為 Public，即可直接方法，如：

Public?Class?Form2

Public?test?As?String

End?Class

Form1 中直接 Form2.test = "abc" 即可。

vb.net mdiform的父窗口調(diào)用子窗口的函數(shù)

既然子窗體都有同名函數(shù)，就應(yīng)該對子窗體進(jìn)行一層封裝，子類實(shí)現(xiàn)不同方法

Public?MustInherit?Class?AbstractChild

Public?MustOverride?Sub?Method1()

End?Class

Public?Class?ChildClass1

Inherits?AbstractChild

Public?Overrides?Sub?Method1()

MessageBox.Show("class1")

End?Sub

End?Class

Public?Class?ChildClass2

Inherits?AbstractChild

Public?Overrides?Sub?Method1()

MessageBox.Show("class2")

End?Sub

End?Class

Public?Class?ChildClass3

Inherits?AbstractChild

Public?Overrides?Sub?Method1()

MessageBox.Show("class3")

End?Sub

End?Class

Dim?child1?As?New?ChildClass1()

Dim?child2?As?New?ChildClass2()

Dim?child3?As?New?ChildClass3()

child1.Method1()

child2.Method1()

child3.Method1()

分享名稱：vb.net窗體的函數(shù) 窗體和控件都是vb中的對象
轉(zhuǎn)載來于：http://www.ef60e0e.cn/article/docgpsd.html