13518219792
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
删除所有消皮列表项目
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
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
文本团纤高框也可以绑定的竖启，C#为例：
this.textBox.DataBindings.Add("Text", this.Food, "塌尺Name", false,
DataSourceUpdateMode.OnPropertyChanged);
