vb验证码制作求助
Private Sub CreateValidImage(ByVal checkCode As String)
Dim iWidth As Integer = checkCode.Length * 15
Dim image As New Bitmap(iWidth, 25) '图片大小
Dim g As Graphics = Graphics.fromImage(image)
g.Clear(Color.White)
Dim c As Color() = {Color.Black, Color.Red, Color.DarkBlue, Color.Green, Color.Red, Color.Brown, Color.DarkCyan, Color.Purple}
Dim font As String() = {"Verdana", "System", "Comic Sans MS", "Arial", "宋体"}
Dim rand As New Random()
Dim j As Short
For j = 0 To checkCode.Length - 1
Dim tmpPoint = New Point()
Dim cIndex As Short = rand.Next(8)
Dim fIndex As Short = rand.Next(5)
Dim f As New Font(font(fIndex), 12, FontStyle.Regular) '12磅，斜体）
Dim b As New SolidBrush(c(cIndex))
Dim dg = rand.Next(10, 50)
If (rand.Next(0, 2) = 0) Then
tmpPoint.x = 12
tmpPoint.y = -6
Else
dg = -dg + 1
tmpPoint.x = -10
tmpPoint.y = 6
End If
g.RotateTransform(dg)
相关问答：
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
请问一下vb和tc的骗译语问有什么具体的区别。
& ......
