【CSDN】【求类似visual studio.net工具箱的控件源码】

drillmaster 2003-12-12 10:57:01
RT
...全文
46 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
drillmaster 2004-02-11
<%@import Namespace="System.Data"%> <%@import Namespace="System.Data.OleDb"%> <script runat="server" language="c#"> void Page_Load() { String strConnection="Provider=Microsoft.Jet.OleDb.4.0;Data Source="; strConnection+=Server.MapPath("guestbook.mdb"); OleDbConnection objConnection=new OleDbConnection(strConnection); OleDbCommand objCommand1=new OleDbCommand("select * from guestbook",objConnection); objConnection.Open(); dgrdMain.DataSource=objCommand1.ExecuteReader(); dgrdMain.DataBind(); objConnection.Close(); } </script> <html> <body> <asp:DataGrid id="dgrdMain" cellpadding="1" showheader="false" autogeneratecolumns="false" borderwidth="1" runat="server"> <columns> <asp:boundcolumn datafield="ii"/> <asp:TemplateColumn> <itemTemplate> <table border="0" cellspacing="0" cellpadding="0" width="100%"> <tr> <td><%# DataBinder.Eval(Container,"Dataitem.aa").ToString()%></td> </tr><tr> <td><%# DataBinder.Eval(Container,"Dataitem.bb").ToString()%></td> </tr> </table> </itemTemplate> </asp:TemplateColumn> </columns> </asp:datagrid>
回复
cloudtarget 2004-02-06
'Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection("provider=sqloledb;user id=sa;password=;data source=127.0.0.1;initial catalog=northwind")
'con.Open()
'Dim com As New OleDb.OleDbCommand("select * from employees", con)
'Dim dr As OleDb.OleDbDataReader
'dr = com.ExecuteReader()
'Do While dr.Read
'ListBox1.Items.Add(dr.Item("lastname"))
'Loop
'dr.Close()
Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection("provider=sqloledb;user id=sa;password=;data source=t01;initial catalog=northwind")
'con.Open()
Dim com As New OleDb.OleDbCommand("select * from employees")
Dim com1 As New OleDb.OleDbCommand("select * from customers")
Dim da As New OleDb.OleDbDataAdapter(com.CommandText, con)
Dim ds As New DataSet()
da.Fill(ds, "emp")
Dim i As Integer = ds.Tables("emp").Rows.Count - 1
Do While i
ListBox1.Items.Add(ds.Tables("emp").Rows(i).Item(1))
i = i - 1
Loop

da.SelectCommand = com1
da.Fill(ds, "cust")

回复
drillmaster 2004-02-05
Dim bm As BindingManagerBase

Dim flag As Integer
Dim dr As DataRow
Dim dt As DataTable
Dim pid As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SqlDataAdapter1.Fill(DataSet11)
bm = Me.BindingContext(DataSet11, "Employees")
bm.Position = 0
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bm.Position = 0
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bm.Position -= 1
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
bm.Position += 1
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
bm.Position = bm.Count - 1
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
Dim ctr, len As Integer
Dim pid As String
dt = DataSet11.Tables("Employees")
len = (dt.Rows.Count - 1)
dr = dt.Rows(len)
pid = dr("EmployeeID")
ctr = CInt(pid) + 1
TextBox1.Text = ctr
flag = 1
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
pid = TextBox1.Text
flag = 2
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
pid = TextBox1.Text
dt = DataSet11.Tables("Employees")
dr = dt.Rows.Find(pid)
dr.Delete()
SqlDataAdapter1.Update(DataSet11, "Employees")
SqlDataAdapter1.Fill(DataSet11)
bm.Position = 0
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If flag = 1 Then
dt = DataSet11.Tables("Employees")
dr = dt.NewRow
dr(0) = TextBox1.Text
dr(1) = TextBox2.Text
dr(2) = TextBox3.Text
dt.Rows.Add(dr)
ElseIf flag = 2 Then
dt = DataSet11.Tables("Employees")
dr = dt.Rows.Find(pid)
dr.BeginEdit()
dr(1) = TextBox2.Text
dr(2) = TextBox3.Text
dr.EndEdit()
TextBox1.Enabled = True
End If
flag = 0
SqlDataAdapter1.Update(DataSet11, "Employees")
SqlDataAdapter1.Fill(DataSet11)
bm.Position = 0
End Sub
End Class

回复
drillmaster 2004-02-05
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SqlDataAdapter1.Fill(DataSet11)
Dim dv As New DataView(DataSet11.Tables("customers"))
Dim s1 As String
s1 = "City=" & "'" & TextBox1.Text & "'"
dv.RowFilter = s1
dv.Sort = "CustomerID Desc"
DataGrid1.DataSource = dv
End Sub
回复
drillmaster 2004-02-05
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DataSet11.Clear()
SqlDataAdapter1.SelectCommand.Parameters("@pCity").Value = TextBox1.Text
SqlDataAdapter1.Fill(DataSet11)
End Sub
回复
cloudtarget 2004-01-02
<html>

<head>
<style type="text/css">
.PopupMenu1{
left:0;
top:500px;
width:100px;
height:20px;
}
.moremnenu={
width:100;
background:pink;
visibility:hidden;
top:50;
}
.f
{
font-family:Arial;
font-size:12;
color=#333333
}
</style>

<script lanuage="javascript">
function popup()
{
popupid.style.visibility="visible";
popupid.style.left=0;
popupid.style.top=0;
}

function hide()
{
popupid.style.visibility="hidden";
}

function load()
{
popupid.style.visibility="hidden";
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>

<body onload="load()">
<span class="PopupMenu1" onmouseover="popup()">
<span style="z-index: -1"><img id="menu" src="csdn.gif" width="99" height="34"></span>
</spqn>
<div id="popupid" class ="moremnenu" onmouseout="hide()">
<table border="0" width="100" bordercolor="#ffffff" cellspacing="1" >
<tr>
<td bgcolor="#ffcc00" class="f">aaa</td>
</tr>
<tr>
<td bgcolor="#ffcc00" class="f">bbb</td>
</tr>
<tr>
<td bgcolor="#ffcc00" class="f">ccc</td>
</tr>
<tr>
<td bgcolor="#ffcc00" class="f">ddd</td>
</tr>
<tr>
<td bgcolor="#ffcc00" class="f">eee</td>
</tr>
</table>
</div>
</body>

</html>
回复
callzjy2 2003-12-12
http://www.vbaccelerator.com/home/VB/Code/Controls/ListBar/Visual_Studio_Style_ListBar/article.asp
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告