甜橘子，专注成都网站制作网站设计与营销型网站建设与优化
QQ :532337155
电话：028-86922220
你试试行不行
创新互联服务项目包括积石山保安族东乡族网站建设、积石山保安族东乡族网站制作、积石山保安族东乡族网页制作以及积石山保安族东乡族网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，积石山保安族东乡族网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到积石山保安族东乡族省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
Dim bt As Bitmap = New Bitmap(456, 456)
Dim dcObject As Integer = bt.GetHbitmap().ToInt32()
Using b As New Bitmap(1, 1)
Using g As Graphics = Graphics.FromImage(b)
g.CopyFromScreen(New Point(300, 300), New Point, New Size(1, 1))
PictureBox1.BackColor = b.GetPixel(0, 0)
End Using
End Using
复制当前屏幕左上角位置（300,300）的一个点，取其颜色
Public Function IsRunnian(ByVal n As Integer) As Boolean
Dim res As Boolean
res = False
If n Mod 400 = 0 Then
res = True
End If
If (n Mod 100 0) And (n Mod 4 = 0) Then
res = True
End If
IsRunnian = res
End Function
Public Function Fc(ByVal td As Date) As Byte
Dim y As Integer
Dim m As Integer
Dim d As Integer
Dim yc As Integer
Dim mc As Integer
Dim dc As Integer
y = Year(td)
m = Month(td)
d = Day(td)
dc = d
If IsRunnian(y) Then
mc = Val(Mid("512503514624", m, 1))
Else
mc = Val(Mid("622503514624", m, 1))
End If
yc = ((y Mod 100) \ 4 + (y Mod 100)) Mod 7
Fc = (yc + mc + dc) Mod 7
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.Columns.Clear()
DataGridView1.DataSource = GetDateTable("1|2|3,张三|李四|王五,1111111|2222222|3333333", "编号|姓名|卡号")
End Sub
Function GetDateTable(ByVal s As String, ByVal TabNames As String) As DataTable
Dim tb As New DataTable
Dim ss() As String = s.Split(",")
Dim tc() As String = TabNames.Split("|")
Dim c As Integer
For Each i As String In ss
Dim ts() As String = i.Split("|")
Dim dc As DataColumn
If c tc.Length Then
dc = New DataColumn(tc(c))
Else
dc = New DataColumn
End If
tb.Columns.Add(dc)
For j As Integer = 0 To ts.Length - 1
If j tb.Rows.Count - 1 Then
tb.Rows.Add(tb.NewRow)
End If
tb.Rows(j)(dc) = ts(j)
Next
c += 1
Next
Return tb
End Function