重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim MyClient As WebClient = New WebClient
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:主机域名、虚拟空间、营销软件、网站建设、红河哈尼网站维护、网站推广。
Dim MyReader As New System.IO.StreamReader(MyClient.OpenRead(url), System.Text.Encoding.Default) '定义新的文件流并读取网页文件数据,url表示需要打开的网页地址
Dim longTxt As String = MyReader.ReadToEnd 'longtxt存储了网页的源码
MyReader.Close()
选择客户姓名时
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
'在这里放入取数据库客户ID的代码,现把取得的值给订单号
End Sub
resources资源文件是基于流的模型读取到内存中的没法转换成URL!
你在程序运行目录下添加一个文件夹然后把MP3文件拷贝进去。
然后:winmp.url = Application .StartupPath "\文件夹\***.mp3"
如果非得要在resources资源文件中播放,只能用System.Media.SoundPlayer类
Dim msp As New System.Media.SoundPlayer(My.Resources.***)
msp.Play()
SoundPlayer类只支持WAV,打包后的程序是巨大的!!!
假如指定的lisp程序存入"e:\abcd.lsp",其中有函数gczd4-1带有三个参数即(gczd4-1 X1 X2 X3)和命令cc,则VB.NET调用程序如下:
Dim AcadApp As Object
Dim AcadDoc As Object
AcadApp = GetObject(, "AutoCAD.Application")
AcadDoc = AcadApp.ActiveDocument
AcadDoc.SendCommand("(load " Chr(34) "e:\\abcd.lsp" Chr(34) ") ")
AcadDoc.SendCommand("(gczd4-1 " Chr(34) X1 Chr(34) Chr(34) X2 Chr(34) Chr(34) X3 Chr(34) ") ")
AcadDoc.SendCommand("(c:cc) ")
AcadDoc = Nothing
AcadApp = Nothing