vb.net源码OA

求vb.net的源代码,最好说明其解决问题,越多越好,满意加50分.

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

? ? ? ? dingcun = fuli_small

? ? ? ? fuli_big = fuli_big + fuli_small

? ? Next

? ? 'fuli_big = fuli_small

? ? TextBox1.Text = DATAstring

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

End Sub

如何用vb.net获得网页的源代码

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就是网页源代码

如何用vb.net获取网页源代码

使用webbrowser控件来加载网页,然后再

Private

Sub

WebBrowser

①._DocumentCompleted下通过使用WebBrowser1.Document.Body.

InnerHtml

来获取网页的源代码,或使用

WebBrowser1.Document.Body.InnerText来获取网页中的文本.之后可以通过字符串控制指令或者

正则表达式

来精确获取到你所需的数据.

以上就是土嘎嘎小编为大家整理的vb.net源码OA相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！