锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net特效小程序 vb60简单的小程序

IT技术程序

vb.net制作一个在窗体上不断移动的闪烁文字小程序 。private sub timer1_timer()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Int(Rnd() * 255)
b = Int(Rnd() * 255)
c = Int(Rnd() * 255)
lblTitle.ForeColor = RGB(a, b, c)
end sub
VB.net做一个小程序 求教Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim oledbDataAdapter As OleDb.OleDbDataAdapter
Dim oledbData As DataSet = New DataSet
Dim strConnect As String = "Provider= OraOLEDB.Oracle;Data Source=888;User ID=888;Password=888;"
oleDbConnection1 = New System.Data.OleDb.OleDbConnection(strConnect)
【vb.net特效小程序 vb60简单的小程序】Dim strSql As String
strSql = "select *"" from xx"
Dim oledbCommand As OleDb.OleDbCommand
oledbCommand.CommandText = strSql
oledbCommand.CommandType = CommandType.Text
oledbCommand.Connection = oleDbConnection1
oledbDataAdapter.SelectCommand = oledbCommand
oleDbConnection1.Open()
oledbDataAdapter.Fill(oledbData, "gy_bingrenxx")
oleDbConnection1.Close()
'在窗体上添加一个DataGridView控件,在这个位置加一句代码
DataGridView1.DataSource = oledbDataAdapter.Tables("gy_bingrenxx")
End Sub
vb.net的小程序你要做一个考试系统？？这可不是小程序 ， 不过如果是超精简的话，我倒可以写个思路给你 。
在form添加一个label 和四个command1(组成一个控件组修改index属性，按顺序设置为ABCD)和一个command2(可要可不要，这个是作为跳过用的)
定义全局变量 questions() as string,questionid as integer，answers() as string
在form_load中，将问题和答案读入questions()和answers()中，然后将第一个问题显示在label中，设置questionid=1
之后在command1_click(index as integer)中用select语句根据questionid将答案和回答比较 ， 然后显示下一题 ， 同时更改questionid 。。。大概就这样
command2_Click()就直接显示下一题和更改questionid
问题结束后就OK了，之后要加什么可以自己加上去~
关于vb.net特效小程序和vb60简单的小程序的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：tp6获取redis列表，redis获取连接数

    下一篇：linuxntp服务器，linux服务器telnet端口命令