vb.net简单源码 VBNET教程

VB程序源码如何使用

你需要安装vb6.0开发软件

专注于为中小企业提供网站设计、网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业梧州免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了成百上千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

如果安装了，就可以直接打开源码测试了，后缀名是vbp，（就是vb的工程文件）

如果没有安装vb6.0，还想打开源码看程序，那就右击用记事本打开后缀名为frm的文件，他是vb的窗口文件，源码都在他里面

一般得源码是没有生成exe可执行文件的，那样文件太多，太大，浪费空间

如果你自己想生成exe可执行文件，那就vb6.0得文件菜单中把文件保存成exe可执行文件就可以了，非常简单

好运！

VB.NET获取需要登录后的源码

很简单的。这个最基本的了。

就是从数据库表中找出一个记录，名称和密码都和你输入的一样的记录，就表示登陆成功。

简单的思路：（密码也没有加密等）

dim dt As New DataTable

dim cmd As New SqlCommand

With cmd

.CommandText = "Select * From Users Where UserName=@UserName and UserPwd=@UserPwd"

.Parameters.Add(New SqlClient.SqlParameter("@UserName", "=你输入的用户名TextBox1.Text"))

.Parameters.Add(New SqlClient.SqlParameter("@strColorNo", "=你输入的密码TextBox2.Text"))

End With

dt =SqlHelper.GetDatatable(cmd)

if dt.rows.count0 then

msgbox "ok"

else

msgbox "error"

end if

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

下面这段代码，是我用来计算每个月存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获得网页的源代码

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修改360网页源码？

有点困难……有一个方案，使用自身的webbrowser控件（浏览器控件）这样简单很多

不过系统附带的webbrowser控件不带这个接口的。

我有一个方案可以告诉你，不过我也不会做

1.导出网页源码

dim a

a = WebBrowser1.DocumentText'这里的documenttext就是网页的源码，是纯文本

'下面可以写修改的代码了

2.修改代码，反正是txt纯文本，这不需要说明了吧

3.修改完后保存为xml文件（保存代码→百度一下保存txt文件，然后你把保存的txt后缀名改成xml就OK了）

4.将浏览器要显示的网页设定为刚才保存的xml文件就OK了

WebBrowser1.Navigate “刚才保存的xml文件路径.xml”'注：此处不需要等于号