→→→Or / OrElse / And / AndAlso その他小技

-　Or　-----
|○　|○　|○|
|○　|×　|○|
|×　|○　|○|
|×　|×　|×|
-----------

-　OrElse　--

|○　|--　|○|

　　 　　 　 

|×　|○　|○|

|×　|×　|×|

-----------

-　And　----

|○　|○　|○|

|○　|×　|×|

|×　|○　|×|

|×　|×　|×|

-----------

-　AndAlso　

|○　|○　|○|

　　 　　 　 

|○　|×　|×|

|×　|--　|×|

-----------


DrawString
Graphicsオブジェクト DrawString(文字列, Fontオブジェクト, Brushオブジェクト, 
                                            RectangleFオブジェクト, StringFormatオブジェクト)


RectangleFオブジェクト
変数 = New RectangleF( 左上X座標, 左上Y座標, 幅, 高さ)


StringFormatオブジェクト
変数 = New StringFormat()
変数.Alignment = 横方向の配置
変数.LineAlignment = 縦方向の配置


DrawStringメソッド例


0                              100
　　---------------------------------------->
50  |                            |　　　幅200　　　　　　|
    --------------------------------------
     |                           |                             |
     |                  高      |                             |
     |                  さ      |          V   B             |             ◎四角の中央に「VB」を表示したい
     |                  150    |                             | 
     |                           |                             |
    ---------------------------------------


-------------------------------------------------
Dim sf As New StringFormat()
sf.Alignment = StringAlignment.Center
sf.LineAlignment = StringAlignment.Center
Dim r As New RectangleF(50, 100, 200, 150)
g.DrawString( "VB" , P, Brushes.Black, r, sf )
-------------------------------------------------


BULK INSERT データベース名[dbo].[Test1]
FROM   ' D:\test.csv'
WITH (fieldterminator= ',' , rowterminator='\n' )


-------------------------------------------------
10秒間待ってから
WAITFOR DELAY '00:00:10';
-------------------------------------------------
描画
●四角形
g.FillRectangle( ブラシ, 0, 0, 50, 50 )
                              ↓↓ ↓ ↓
               ｽﾀｰﾄ右位置 ↓ ↓ ↓
　　　　　　　　　ｽﾀｰﾄ下位置 ↓↓
                             横の長さ↓
　　　　　　　　　　　　　　　　　　縦の長さ


●線
g.DrawLine(ペン, 0, 0, 0, 0 )
                      ↓↓↓↓
　　　　始点左位置↓↓↓
　　　　　始点上位置 ↓↓
　　　　　　 終点左位置 ↓
                  終点上位置
-----------------------------------------------------
Cstr関数
    文字列型に変換して返す
    CStr( Expression )
                  任意の数式や文字列を指定(必ず)
例) Data = CStr(10.8786)
      ---->文字列として「10.8786」を返す
CStr関数は式や文字列を文字列型(String)に変換して返します
------------------------------------------------------
セブンチェック
Dim mailno As Long = 90687949310

Public Sub Submail(ByRef Struke6 As String)
   Dim wk(10) , syo , amari ,rp As Integer
   Dim chk As String
   Dim result As String = ""
   Dim result1 As String = ""
   Dim stw(10) As String
   chk = CStr(mailno)
    If 0 = Len(chk) Then
        Exit Sub
    End If
    If 11<> Len(chk) Then
        MessageBox.Show("ﾁｪｯｸﾃﾞｼﾞｯﾄｴﾗｰ")
        Exit Sub
    End If
    For rp = 0 To 10
         stw(rp) = chk.SubString(rp , 1 )
         wk(rp) = Val(stw(rp))
         result = String.Concat(stw)
    Next
    syo = (wk(0) * 4) + (wk(1) * 6) + (wk(2) * 2) + (wk(3) * 3) +
            (wk(4) * 1) + (wk(5) * 5) + (wk(6) * 4) + (wk(7) * 6) +
            (wk(8) * 2) + (wk(9) * 3) + (wk(10) * 1)
    amari = syo Mod 7
    chk = Val(result)
    result1 = result & amari
    struke6 = "a"  & result1 & "a"
    mailno += 1
End Sub