求vb点虐 winForm 程序 省 市 县的联动例子

Public Class Form1

网站建设哪家好，找成都创新互联公司！专注于网页设计、网站建设、微信开发、微信小程序、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了海伦免费建站欢迎大家使用！

Inherits System.Windows.Forms.Form

Private City(33) As String '市 数组

Public Province(33) As String '省 数组

'初始化省市地区名

Public Function Init() As Boolean

City(0) = "东城,西城,崇文,宣武,朝阳,丰台,石景山,海淀,门头沟,房山,通州,顺义,昌平,大兴,平谷,怀柔,密云,延庆"

City(1) = "黄浦,卢湾,徐汇,长宁,静安,普陀,闸北,虹口,杨浦,闵行,宝山,嘉定,浦东,金山,松江,青浦,南汇,奉贤,崇明"

City(2) = "和平,东丽,河东,西青,河西,津南,南开,北辰,河北,武清,红挢,塘沽,汉沽,大港,宁河,静海,宝坻,蓟县"

City(3) = "万州,涪陵,渝中,大渡口,江北,沙坪坝,九龙坡,南岸,北碚,万盛,双挢,渝北,巴南,黔江,长寿,綦江,潼南,铜梁,大足,荣昌,壁山,梁平,城口,丰都,垫江,武隆,忠县,开县,云阳,奉节,巫山,巫溪,石柱,秀山,酉阳,彭水,江津,合川,永川,南川"

City(4) = "石家庄,邯郸,邢台,保定,张家口,承德,廊坊,唐山,秦皇岛,沧州,衡水"

City(5) = "太原,大同,阳泉,长治,晋城,朔州,吕梁,忻州,晋中,临汾,运城"

City(6) = "呼和浩特,包头,乌海,赤峰,呼伦贝尔盟,阿拉善盟,哲里木盟,兴安盟,乌兰察布盟,锡林郭勒盟,巴彦淖尔盟,伊克昭盟"

City(7) = "沈阳,大连,鞍山,抚顺,本溪,丹东,锦州,营口,阜新,辽阳,盘锦,铁岭,朝阳,葫芦岛"

City(8) = "长春,吉林,四平,辽源,通化,白山,松原,白城,延边"

City(9) = "哈尔滨,齐齐哈尔,牡丹江,佳木斯,大庆,绥化,鹤岗,鸡西,黑河,双鸭山,伊春,七台河,大兴安岭"

City(10) = "南京,镇江,苏州,南通,扬州,盐城,徐州,连云港,常州,无锡,宿迁,泰州,淮安"

City(11) = "杭州,宁波,温州,嘉兴,湖州,绍兴,金华,衢州,舟山,台州,丽水"

City(12) = "合肥,芜湖,蚌埠,马鞍山埋掘敏,淮北,铜陵,安庆,黄山,滁州,宿州,池州,淮南,巢湖,阜阳,六安,宣城,亳州"

City(13) = "福州,厦门,莆田,三明,泉州,漳州,南平,龙岩,宁德"

City(14) = "南昌市,景德镇,九江,鹰潭,萍乡,新馀,赣州,吉安,宜春,抚州,上饶"

City(15) = "济南,青岛,淄博,枣庄,东营,烟台,潍坊,济宁,泰安,威海,日照,莱芜,临沂,德州,聊城,滨州,菏泽"

City(16) = "郑州,开封,洛阳,平顶山,安阳,鹤壁,新乡,焦作,濮阳,许昌,漯河,三门峡,南阳,商丘,信阳,周口,驻马店,济源"

City(17) = "武汉,宜昌,荆州,襄樊,黄石,荆门,黄冈,十堰,恩施,潜江,天门,仙桃,随州,咸宁,孝感,鄂州"

City(18) = "长沙,常德,株洲,湘潭,衡阳,岳阳,邵阳,益阳,娄底,怀化,郴州,永州,湘西,张家界"

City(19) = "广州,深圳,珠海,汕头,东莞,中山,佛山,韶关,江门,湛江,茂名,肇庆,惠州,梅州,汕尾,河源,阳江,清远,潮州,揭阳,云浮"

City(20) = "南宁,柳州,桂林,梧州,北海,防城港,钦州,贵港,玉林,南宁地区,柳州地区,贺州,百色,河池"

City(21) = "海口,三亚"

City(22) = "成都,绵阳,德阳,自贡,攀枝花,广元,内江,乐山,南充,宜散粗宾,广安,达川,雅安,眉山,甘孜,凉山,泸州"

City(23) = "贵阳,六盘水,遵义,安顺,铜仁,黔西南,毕节,黔东南,黔南"

City(24) = "昆明,大理,曲靖,玉溪,昭通,楚雄,红河,文山,思茅,西双版纳,保山,德宏,丽江,怒江,迪庆,临弯枝沧"

City(25) = "拉萨,日喀则,山南,林芝,昌都,阿里,那曲"

City(26) = "西安,宝鸡,咸阳,铜川,渭南,延安,榆林,汉中,安康,商洛"

City(27) = "兰州,嘉峪关,金昌,白银,天水,酒泉,张掖,武威,定西,陇南,平凉,庆阳,临夏,甘南"

City(28) = "银川,石嘴山,吴忠,固原"

City(29) = "西宁,海东,海南,海北,黄南,玉树,果洛,海西"

City(30) = "乌鲁木齐,石河子,克拉玛依,伊犁,巴音郭勒,昌吉,克孜勒苏柯尔克孜,博 尔塔拉,吐鲁番,哈密,喀什,和田,阿克苏"

City(31) = ""

City(32) = ""

City(33) = "台北,高雄,台中,台南,屏东,南投,云林,新竹,彰化,苗栗,嘉义,花莲,桃园,宜兰,基隆,台东,金门,马祖,澎湖"

Province(0) = "北京"

Province(1) = "上海"

Province(2) = "天津"

Province(3) = "重庆"

Province(4) = "河北"

Province(5) = "山西"

Province(6) = "内蒙古"

Province(7) = "辽宁"

Province(8) = "吉林"

Province(9) = "黑龙江"

Province(10) = "江苏"

Province(11) = "浙江"

Province(12) = "安徽"

Province(13) = "福建"

Province(14) = "江西"

Province(15) = "山东"

Province(16) = "河南"

Province(17) = "湖北"

Province(18) = " 湖南"

Province(19) = "广东"

Province(20) = "广西"

Province(21) = "海南"

Province(22) = "四川"

Province(23) = "贵州"

Province(24) = "云南"

Province(25) = "西藏"

Province(26) = "陕西"

Province(27) = "甘肃"

Province(28) = "宁夏"

Province(29) = "青海"

Province(30) = "新疆"

Province(31) = "香港"

Province(32) = "澳门"

Province(33) = "台湾"

End Function

'得到省相对应的市

Public Function GetCity(ByVal a As ComboBox, ByVal b As ComboBox) As Boolean

b.Items.Clear()

Dim num, x1, i

num = a.SelectedIndex

x1 = Split(City(num), ",")

For i = 0 To UBound(x1)

b.Items.Add(x1(i))

Next

End Function

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Init()

ComboBox1.Items.AddRange(Province)

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

GetCity(ComboBox1, ComboBox2)

End Sub

End Class

关于VB点虐 Combobox联动问题

删除所有消皮列表项目

combobox2.Clear

增加新项目拿滑差,n为你选中第一个Combobox索引，来确定你让缺二维数组的值

n = Combobox1.Items.SelectIndex

GetLength(1) 是得到你二维数组的长度

for i = 0 to aTemp.GetLength(1)

if aTemp(n,i) "" then

Combobox2.Items.Insert aTemp(n,i)

end if

next

vb点虐 中两个RichTextbox的滚动条如何联动？

Public Class Form1

Public Declare Function GetScrollPos Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nBar As Integer) As Integer

Public Declare Function SetScrollPos Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nBar As Integer, _

ByVal nPos As Integer, ByVal bRedraw As Boolean) As Integer

Private Sub RichTextBox1_HScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.HScroll

Dim lngPos As Long

lngPos = GetScrollPos(Me.RichTextBox1.Handle, 0)

SetScrollPos(Me.RichTextBox2.Handle, 0, lngPos, True)

End Sub

Private Sub RichTextBox1_VScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.VScroll

Dim lngPos As Long

lngPos = GetScrollPos(Me.RichTextBox1.Handle, 1)

SetScrollPos(Me.RichTextBox2.Handle, 1, lngPos, True)

End Sub

Private Sub RichTextBox2_HScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox2.HScroll

Dim lngPos As Long

lngPos = GetScrollPos(Me.RichTextBox2.Handle, 0)

SetScrollPos(Me.RichTextBox1.Handle, 0, lngPos, True)

End Sub

Private Sub RichTextBox2_VScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox2.VScroll

Dim lngPos As Long

lngPos = GetScrollPos(Me.RichTextBox2.Handle, 1)

SetScrollPos(Me.RichTextBox1.Handle, 1, lngPos, True)

End Sub

End Class

vb点虐 如何实现窗体中多个文本框控件与同一窗体中datagridview控件联动？

文本团纤高框也可以绑定的竖启，C#为例：

this.textBox.DataBindings.Add("Text", this.Food, "塌尺Name", false,

DataSourceUpdateMode.OnPropertyChanged);

分享名称：vbnet联动 vbnet教程
本文地址：http://scyanting.com/article/ddpdgcs.html