vb.net界面设计源码 vb开发界面

使用vb.net做一个多媒体播放器外加设计界面及源代码！！

你去看过书吗？其实这个不会很难的。特别是那个界面很容易的。自己去研究下先了。不懂再问高手们了

成都创新互联公司主营酉阳土家族苗族网站建设的网络公司,主营网站建设方案,app软件定制开发,酉阳土家族苗族h5小程序设计搭建,酉阳土家族苗族网站营销推广欢迎酉阳土家族苗族等地区企业咨询

Dim url As String=" 网址"

Dim httpReq As System.Net.HttpWebRequest

Dim httpResp As System.Net.HttpWebResponse

Dim httpURL As New System.Uri(url)

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

httpReq.Method = "GET"

httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

httpReq.KeepAlive = False ' 获取或设置一个值，该值指示是否与

Internet资源建立持久连接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

System.Text.Encoding.GetEncoding(-0))

Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码

下面这段代码，是我用来计算每个月存500元进银行，连续30年，最后连本带利能有多少钱。这里面涉及复利计算。界面中右边的文本框用来输出每一次计算的结果。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim nianxian As Integer '年限变量

Dim dingcun As Integer '定存变量

Dim fuli_big As Long '大复利

Dim fuli_small As Long '小复利

Dim i As Integer '循环变量

Dim DATAstring As String '数据字符串

nianxian = Val(年限_TextBox.Text)

dingcun = Val(定存_TextBox.Text)

DATAstring = ""

For i = 1 To nianxian

fuli_small = dingcun * (1 + 0.1875)

dingcun = fuli_small

fuli_big = fuli_big + fuli_small

DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

'fuli_big = fuli_small

TextBox1.Text = DATAstring

结果_TextBox.Text = Str(fuli_big) + "元"

End Sub

分享名称：vb.net界面设计源码 vb开发界面
浏览路径：http://scyanting.com/article/ddddieg.html