vb图片框的宽度与图形的宽度相同，图片框的高度任意，这个怎么设置或是怎样用语句表示出来

长沙现在的IT培训机构特别的多， 很多人都找不到一家满意的， 因为他总是听别人说这个那个的， 而且自己对这个行业也不是很了解， 那么如果你系那个学习IT， 或者Java技术的话， 但是又没有一个明确的方向， 那么你就加到这个群【（3204↑↑↑7246）】 里面来和大家讨论一下吧。

http://haiying.ctdisk.com/u/630897/980988

vb画图中显示不能添加更多控件怎麽办？

我喜欢你~

http://www.youku.com/playlist_show/id_5346963.html

多个用户可通过各自的客户端分别连接到指定服务器，进行信息交流。 服务器端不参与消息发送，只负责将各客户端发送的消息进行转发，实现效果应为：任一客户端发送消息后，其他客户端都应接受到该消息。 服务器端可以显示所有在线用户列表，当某客户端下线（客户端关闭）后，其对应用户信息应在服务器的在线列表中删除。 重点在于怎样设置才能使服务器收到A客户端信息后能自动转发给B

卡皮迪恩。

我先爆，大一的时候。

这VB，初学容易，但要学得深真比较难，特别是不经常应用的人更是不行了，学来学去只能是皮毛，俺就是这样，可以说初学几次了，过一段时间，因不时间且心血来潮，又学一下，但因记忆不好又重新开始初学，感觉能学会点，但兴趣不能长留，工作不允许，所以等于不学一样。

地址http://haiying.ctdisk.com/u/630897/980988 不断更新中,必看,每天看几个,精神一上午

福建福州泉州泉州五级三晋制连锁经营是什么?出局的人多吗？ 福建福州泉州泉州五级三晋制连锁经营是什么?出局的人多吗？ 福建福州泉州泉州五级三晋制连锁经营是什么?出局的人多吗？ 如果帖子不存在，请点百度快照或加腾 讯 号2863319057

怎样实现数据库中信息按顺序单个自动读取

如题，写一个vb程序，在电脑运行某一个程序时（例如CF.exe），启动这个vb程序，然后结束cf.exe程序会自动关机。。求高手帮助。。。。大恩不言谢。。

如题~~~

1、"&"替换"+" 2、变量命名大小写，语句错落有秩，源代码维护方面 3、请养成以下的“对象命名约定”良好习惯 4、在简单的选择条件情况下,使用IIf()函数 5、尽量使用Debug.Print进行调试 6、在重复对某一对象的属性进行修改时，尽量使用With....End With 7、MsgBox中尽量使用消息图标，这样程序比较有规范 8、在可能的情况下使用枚举

现在用vb设计一个小型的仓库管理系统，其中需要把钢铁等材料进行由整化零的转化，请问在vb中可以实现不？？希望大家多给指点~~

本人需要一个用VB做的应用程序，只包括几个简单的界面，有意者请联系QQ：344077459。报酬面议。要求：是用VB做过实际应用程序的高手，能快速准确写出程序。

请问vb中对＄％！等的变量的定义在应用时规则是什么？

求助:如何利用VB解决 a、b、c、d、e中有3个整除2、有1个整除3、有3个整除5的并且它们的和介于60—70间

如题，是listview,所选中的行有多列.求高手帮忙解决。

这是我自己编写的子程序 Function VCZ(Z#) As Single '水位库容关系 Open "D:\临时文件夹\07水文\毕业设计\新程序\水位库容关系.txt" For Input As #3 For i = 1 To 65 Input #3, Hm(i), Vm(i) X2(i) = Hm(i): Y2(i) = Vm(i) Next i Close #3 Select Case Z If Z = 1076 Then VCZ = Y2(1) End If For i = 2 To 65 Case X2(i - 1) To X2(i) VCZ = (Y2(i) - Y2(i - 1)) * (Z - X2(i - 1)) / (X2(i) - X2(i - 1)) + Y2(i - 1) Next i End Select End Function

一般单选控件的名称应该会在按钮的左边或者右边显示，设置了Alignment还是不显示，知道为什么吗？知道的请告诉我，谢谢

Type StudType Name As String * 10 Special As String * 10 Total As Single Private Sub Command1_Click(Index As Integer) Dim stud(1 To 100) As StudType, n%, i%, Max!, maxi% Select Case Index Case 0 If n < 100 Then n = n + a i = n With stud(n) Name = Text1: .Special = Text2: .Total = Val(Text3) End With Text1 = "": Text2 = "": Text3 = "" Else MagBox "输入人数超过组声明的个数" End End If Case 1 If i > 1 Then i = i + 1 With stud(i) Text1 = .Name: Text = .Special: Text3 = .Total End With Case 2 If i < n Then i = i - 1 With

Private Sub Command1_Click() A = InputBox("A=", "输入") B = InputBox("B=", "输入") Max = (A + B) / 2 + Abs(A - B) / 2 Print "MAX="; Max End Sub 请问怎样算结果

现在的计算机培训学校到处都是， 那么刚刚走出校门的你， 对计算机培训这个行业又了解多少呢？、 如果你自己不了解， 那么就加入我们的群： 大几一起交流讨论：◥◣〔3204〓〓7246〕◢◤ 给你选出最好的学校，

表弟技校毕业， 计算机专业， 想找家Java培训机构学习Java， 我最近在网上查了一些资料， 才知道湖南有很多培训机构， 这里有一个咨询群： 【↖(^ω^)↗32047246↖(^ω^)↗】 大家想学习Java的可以加进去看看。

Dim i As Integer '定义一个整型变量 Dim ssql As String Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\宾馆管理.mdb;Persist Security Info=False" Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\宾馆管理.mdb;Persist Security Info=False" For i = 1 To 4 Check1(i).Value = 1 Next i End Sub Private Sub DataList1_Click() '查看操作员权限 Adodc2.RecordSource = "select * from Opera where 操作员='&q

我有如下代码VB连接SQL SEVER2000 modul1中 Public flagCedit As Boolean Public gintCmode As Boolean Public gintTmode As Integer Public gintrmode As Integer Public gintbmode As Integer Public flagsedit As Boolean Public username As String Public txtsql As String Public mblchange As Boolean Public js As Integer Public Function ExecuteSQL(ByVal SQL As String, Msgstring As String) As ADODB.Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo executeSQL_error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open c

欢迎您加入VB WORLD群 44894963 大家可以在这里交流讨论有关VB程序设计方面的学习，技术，考试等信息。 还可以提出自己的VB学习上遇到的困难，VB WORLD欢迎你的加入！

vb 中的用户类型未定义该怎么 办啊？

使用API: MessageBeep 声明: Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long 把下面的东西复制到一个新的空白的form中，不要任何东西，不要有代码、控件。 自己按一下那六个按钮，想要哪个复制就行 Private Const MB_ICONASTERISK = &H40& Private Const MB_ICONEXCLAMATION = &H30& Private Const MB_ICONHAND = &H10& Private Const MB_ICONINFORMATION = MB_ICONASTERISK Private Const MB_OK = &H0& Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long Dim WithEvents Co

哈哈 哪闰兄弟给个VB的初级介绍

谁能告诉我with的用法