• 主页
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API

好東西不敢獨享,給大家分享一下

99441dudu 2004-03-20 04:12:49
1. 你們的label/checkBox是不是不能設計成透明?
答案: checkBox1.BackColor = Color.FromArgb(0, checkBox1.BackColor)
...全文
9 点赞 收藏 15
写回复
15 条回复
leogon 2004年04月22日
记住先!
回复 点赞
99441dudu 2004年04月15日
5.只能輸入數值的DataGridTextBoxColumn
C# 部分
public class DataGridDigitsTextBoxColumn : DataGridTextBoxColumn
{
public DataGridDigitsTextBoxColumn(System.ComponentModel.PropertyDescriptor pd, string format, bool b)
: base(pd, format, b)
{
this.TextBox.KeyPress += new System.Windows.Forms.KeyPressEventHandler(HandleKeyPress);

}

private void HandleKeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e)
{
//ignore if not digit or control key
if(!char.IsDigit(e.KeyChar) && !char.IsControl(e.KeyChar))
e.Handled = true;

//ignore if more than 3 digits
if(this.TextBox.Text.Length >= 3 && !char.IsControl(e.KeyChar) && this.TextBox.SelectionLength == 0)
e.Handled = true;
}

protected override void Dispose(bool disposing)
{
if(disposing)
this.TextBox.KeyPress -= new System.Windows.Forms.KeyPressEventHandler(HandleKeyPress);

base.Dispose(disposing);

}
}
}
回复 点赞
99441dudu 2004年03月25日
4.在DataSet使用SQL語句

以 Customers 和 Orders 資料表考量資料集。若要以 Kelly 的 FirstName 篩選 Customers 的資料,您可以使用 Select 方法,這個方法會傳回資料列的陣列。

myRowArray = dsCustomers.Select("ContactName like 'Kelly%'")

請注意,陳述式和 ANSI-SQL 類似。基本上它們是 ANSI-SQL 的子集,具有以下差異:因為資料集能夠容納多個相關資料表,所以篩選條件可以在這些相關資料表上進行篩選。在下列範例中,使用 Child 關鍵字來篩選 Orders 和 Customers 資料表。


myRowArray = dsCustomers.Select("ContactName like 'Kelly%' AND [child].OrderDate = '7/26/68'")
這些函式會傳回資料列的陣列。您可以使用 foreach 陳述式重複整個陣列。

回复 点赞
zhouats2000 2004年03月22日
up
回复 点赞
smalllove 2004年03月22日
mark!
回复 点赞
henryniu 2004年03月22日
textbox怎么不管用?
回复 点赞
simonllf 2004年03月21日
mark too
回复 点赞
scegg 2004年03月21日
MARK
回复 点赞
99441dudu 2004年03月21日
3.EXcel的設定方面,獲取正在Excel.Application。book‘name
:>你肯定要開個Excel 應用程序先,該那個book的name為"Haha"
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
REM Dim xlSheet As Excel.Worksheet
Dim myBookName As String

xlApp = CType((GetObject(, "Excel.Application")), Excel.Application)
xlBook = CType(xlApp.ActiveWorkbook, Excel.Workbook)
myBookName = xlBook.Name
MsgBox(myBookName)
--- 結果:顯示出Haha
回复 点赞
hanbin7965 2004年03月20日
还看不太懂,先谢谢楼主
回复 点赞
zihu928 2004年03月20日
Thx
回复 点赞
xdd1125 2004年03月20日
这是alpha混合,把它放在form上有效果,但在其它控件上时就不行了


谢谢楼主!!
回复 点赞
banni2003 2004年03月20日
受教了,谢谢楼主。
回复 点赞
xdd1125 2004年03月20日
没有效果呀!!
回复 点赞
99441dudu 2004年03月20日
2.只能輸入數值的TextBox的class
[VB.NET]

Public Class NumbersOnlyTextBox

Inherits TextBox

Public Sub New()

AddHandler Me.KeyPress, AddressOf HandleKeyPress

End Sub 'New

Private Sub HandleKeyPress(sender As Object, e As KeyPressEventArgs)

If Not Char.IsDigit(e.KeyChar) And Not Char.IsControl(e.KeyChar) Then

e.Handled = True

End If

End Sub 'HandleKeyPress

End Class 'NumbersOnlyTextBox
回复 点赞
发动态
发帖子
VB
创建于2007-09-28

1.1w+

社区成员

11.0w+

社区内容

VB技术相关讨论,主要为经典vb,即VB6.0
社区公告
暂无公告