快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

关于VB.NET聊天室设计的信息

VB.NET中能否做一个像QQ那样的聊天框,可以输入文字和图片?

第一个问题 qq聊天室 必须能 用vb都可以做

十载的丘北网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。网络营销推广的优势是能够根据用户设备显示端的尺寸不同,自动调整丘北建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联从事“丘北网站设计”,“丘北网站推广”以来,每个客户项目都认真落实执行。

第二个问题 vb.net插入数学公式 可以把这些公式封装到一个类中,调用就是了

.net中怎么插入声音,具体点,越详细越好,或者谁可以给小弟一个网络聊天室的源码啊,不胜感激涕零……

VB.NET Code

My.Computer.Audio.Play("SoundFile.wav", AudioPlayMode.BackgroundLoop) ‘连续循环播放

My.Computer.Audio.Stop() ‘停止播放

My.Computer.Audio.Play("C:\WINDOWS\Media\Windows XP 注销音.wav", AudioPlayMode.WaitToComplete) ’仅播放一次

SoundFile.wav是您的音频文件,自己更换一下即可。

希望能帮到您

VB遇到不很多问题,不知道是什么意思,网上搜索过也找不出具体明确结果。诚恳请求高手指点。

1. error_Renamed = FirmwareVersionGet(SocketID, Buffer) 

执行FirmwareVersionGet函数,返回值赋值给error_Renamed。

根据FirmwareVersionGet函数名称估计是取得Firmware的版本号。

2. TCP_CloseSocket((SocketID))

执行TCP_CloseSocket函数,根据名字功能估计是关闭TCP连接。

3. ret = ErrorStringGet(SocketID, error_Renamed, Buffer)

执行ErrorStringGet函数,返回值赋值给ret。

根据函数名称估计是取得异常(错误)文字资料说明。

4. LogWrite(vbCrLf "Port Close" Buffer)

执行LogWrite函数,根据名字功能估计是写Log记录。

5. LogWrite(vbCrLf CStr(error_Renamed))

同上,

里面的CStr(error_Renamed)是什么意思?我查过了想确认。是把error_Renamed转为字符型数据,前面没有空格,对吧。正确

6. error_Renamed = PositionerSGammaParametersGet(SocketID, PositionerName3, vel, acc, Jerkmax, Jerkmin)

执行PositionerSGammaParametersGet函数,返回值赋值给error_Renamed 。

根据函数名称估计是取得位置参数。

将光标放在该函数上,单击鼠标右键,点选Definition(vb.net是Go To Definition)

7. error_Renamed = GroupMoveAbsolute(SocketID, txtGroup.Text, 3, dbl_arry(0))

估计是将某群组移动到指定位置吧,这个比较难猜。

8. error_Renamed = GroupPositionCurrentGet(SocketID, PositionerName1, 1, position)

估计是取得某群组的当前位置

9. Public CommOpened As Boolean 好多程序段中都有If CommOpened = False Then 那么下面的程序才能执行,我想问的是 在怎么才能控制布尔型变量CommOpened 为TURE 或FALSE呢?好多程序都是在这个条件下才能执行下一部分的。

你看看是否有CommOpened=函数(参数[可选])这一类的语句,又或者将Commopened作为参数传入某函数,而该参数是Byref来定义的。这些语句都会变更变量的值。

10. Buffer = New String(Chr(0), 512 + 1)

将513个Chr(0)连成字符串赋值给Buffer.

11. If CommOpened = FalseThen

SocketID = TCP_ConnectToServer(IPAddress, IPPort, 10)

问题 CommOpened = False这一点怎么控制呢,布尔的如何让他为False呢?

第9题已回答

SocketID = TCP_ConnectToServer(IPAddress, IPPort, 10)

建议TCP连接,将ID赋值 给SocketID.

If SocketID -1 Then

error_Renamed = FirmwareVersionGet(SocketID, Buffer)

问题 SocketID是什么,为什么不等于1才执行下的程序。可以赋其他的值吗?

根据你提供的代码,SockedID在这里的定义应该是TCP成功连接後的一个连接身份证号(成功的话通常都是一个大於0的值),如果是-1的话则表示连接不成功,只是不是-1的话就表示成功。

FirmwareVersionGet(SocketID, Buffer)

第一题已解释。

LogWrite(vbCrLf Buffer)

第4题已解释。Buffer的值第9题已解释,就如CommOpened如何赋值的道理一样。

12. TCP_CloseSocket((SocketID))

第二题已解释

SocketID = -1

第11题已解释

13. If CommOpened = TrueThen

error_Renamed = FirmwareVersionGet(SocketID, Buffer)

第11题已解释

14. Dim vel AsDouble

txtVelX.Text = Str(vel)

vel没有具体的值,这个程序不管用吧,在没有具体值的情况下不能用吧。调试了一个返回值为0.实际程序里面就是这样写的,不解。

vel可能为任意值,如果是VB6的话,未初始化的变量一般为0.

15. If CommOpened = True Then

error_Renamed = GroupInitialize(SocketID, GroupName)

当CommOpened这个变量为True时,执行GroupInitialize函数,并将返回值赋值给error_Renamed.GroupInitialize估计是某群组初始化函数。

16. If CommOpened = TrueThen

error_Renamed = GroupHomeSearch(SocketID, GroupName)

GroupHomeSearch这个函数很难猜出它的功能,估计是搜寻某群组吧。

17. If CommOpened = TrueThen

error_Renamed = GroupKill(SocketID, GroupName)

GroupKill估计是删除某群组

18. Text1.AppendText(Logstr vbCrLf)

Text1如果是Textbox控件的话,这个语句则表示在Text1这个TextBox内添加变量Logstr的内容再加上一个回车符

Text1.ScrollToCaret()Textbox将滚动条自动滚动到插入符的位置。

综合你以上问题,这个应该是一个用VB.net写的一个聊天室程序。


网站标题:关于VB.NET聊天室设计的信息
文章出自:http://6mz.cn/article/doejhgd.html

其他资讯