Мой VB.NET набор кодов

1. Сформировать управляющие коды коды

Импорт системы
Импорт System.IO
Импорт System.Drawing
Импорт System.Drawing.Imaging

Частичное GIF Public Class
Inherits System.Web.UI.Page

    Protected Sub Page_Load (ByVal отправителя в качестве объекта, ByVal е As System.EventArgs) Ручки Me.Load
        Dim sCodeNum As String = RndNum (6)
        Session ( "CodeNum") = sCodeNum
        ValidateCode (sCodeNum)
    End Sub

    Защищенный Функция RndNum (ByVal nCodeNum) As String
        Dim sSourceCode As String = «0,1,2,3,4,5,6,7,8,9, а, б, в, г, д, е, ж, з , I, J, K, L, M, N, O, P, Q, R, s, T, U, V, W, X, Y, Z, А, В, С, D, Е, F, G , Н, I, J, K, L, M, N, О, Р, Q, R, S, Т, U, V, W, X, Y, Z»
        дим sCodeNum As String = ""
        дим arraySourceCode () As String = sSourceCode.Split ( "")
        Randomize ()
        для я As Integer = 1 nCodeNum
            sCodeNum = sCodeNum & arraySourceCode (CInt (Rnd () * 61))
        Следующая
        Return sCodeNum
    End Function

    Protected Sub ValidateCode (ByVal sCodeNum)
        Dim gWidth As Integer = CInt (Len (sCodeNum) * 14)
        Dim Img As New Bitmap (gWidth, 24)
        Dim г As Graphics = Graphics.FromImage (Img)
        g.DrawString (sCodeNum, (New шрифт ( "Arial", 12)), (Новый SolidBrush (Color.Red)), 3, 3)
        Dim мс в качестве новых MemoryStream ()
        Img.Save (мс, ImageFormat.Png)
        Response.ClearContent ()
        Response.ContentType = "изображение / Png"
        Response.BinaryWrite (ms.ToArray ())
        g.Dispose ()
        Img.Dispose ()
        Response.End ()
    End Sub
End Class

2. VB.NET общие строковые функции

1: Функции обработки строк
StrComp сравнивает две строки
StrConv преобразующие строки
InStrRev, StrReverse флип строка
LCase, UCase преобразуются в нижний регистр или прописные
Space, StrDup создавать строки , содержащие повторяющиеся символы
Len строку поиска длина
FormatCurrency, FormatDateTime, FormatNumbe, FormatPercent
формат строка
InStr, Left, LSet, LTrim, Mid, Right, Rset, RTrim, уравновешивание
операции строки
заменить Заменяет указанную подстрока
фильтр возвращает скрининг на массиве строк

Split, Join возвращает указанное число подстрок
СБН, AscW, Chr, ChrW с использованием значений ASCII и ANSI значение

1: StrComp (Str1, Str2, <Сравнить>) ( случай по умолчанию для сравнения, не строчная маленький верхний регистр)

Третий параметр является необязательным, является

Двоичное
представляющие символы из внутренней двоичной формы , полученных в сортируются двоичное сравнение выполняется (по умолчанию)
Текст
сравнение текста не чувствительно к регистру порядок сортировки текст исполнения LocaleID определенной ценности системы

Когда Str1 до сортировки Str2
-1

Когда Str1 равна str2 в
0

При сортировке str1 после Str2 в
. 1

StrComp ( «AVCD»,»ABCD», CompareMethod.Text)

Возвращает 0

2: StrConv (ул, конверсия, <localelID>)

Третий параметр является необязательным

Конверсия: члены Microsoft.VisualBasic.VBStrConv. Места для выполнения значения перечисления типа преобразования

3: InStrRev (StrCheck, StrMatch, <Пуск>, <Сравнить>)

StrCheck: строка, которую вы хотите найти

StrMathc: искать

StringMatch не найдено возвращение 0

Вы можете вернуть строку из правого положения в другую грустную дату первого вхождения строки

Такие, как:

Mystr =»быстрая коричневая лиса перепрыгивает через ленивую собаку»

InStrRev (mystr,»The»): 32

InStrRev (mystr,»О», 16): 1

StrReverse (ул)

Возвращает заданную строку последовательность символов заключается в обратном

4: Пространство (NUM)

Есть определенное количество пробелов для возврата строки.

5: StrDup (число, символ)

Если символ является строкой, просто взять первый символ

StrDup (5,»Ничего себе, что строка!»): WWWWW

6: FormatCurrency

Возвращает формат валюты для значения выражения

7: FormateDateTime ()

Возвращает формат времени значение выражения

8: FormatePercent

% С выражением возврата позади

9: InStr (старт, str1, str2, <сравнить>)

Возвращает строку, чтобы указать начальное местоположение первой строки соответствия в другом

10: Средний (ул, num1 <, пит2>)

Она возвращает строку, содержащую указанное количество символов из строки.

Mid ( «Функция Mid Demo», 1,3): Мид

Mid ( «Mid функция Demo», 14,4): Demo

11: Заменить (ул, str1, str2 <, смотреть>, <число,> <сравнить>)

12: Фильтр (Soure, матч, включают в себя, сравнивать)

Она возвращает массив нуля на основе. фильтр

13: Split ()

14: Join ()

Подключение всех строк в массиве

Воспроизводится в: https: //www.cnblogs.com/guoxiaowen/archive/2008/07/25/1251169.html

Мой VB.NET набор кодов

рекомендация