VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 関数・メソッド・変数関係のメニュー
１．数学関数・三角関数の紹介
２．主要データ型等の変換関数等の紹介
３．Convert クラスのメソッドでのデータ型変換関数等の紹介
４．Microsoft.VisualBasic 名前空間の主要文字列関数の紹介　
５．System.String クラスの主要文字列関数の紹介
６．条件判断等を行う関数の紹介
７．日付・時刻に関する主要関数の紹介(Microsoft.VisualBasic名前空間)
８．日付・時刻に関する System 名前空間のメソッド等の紹介
９．その他の主要関数(メソッド)等の紹介　
10．
11．
12．
．
20．その他、当サイト内に掲載の関数・メソッド・変数に関するサンプル


２．主要データ型等の変換関数等の紹介(11_Fnc_02)　(旧、SampleNo.002)
１ ．Asc/AscW メソッドの使用例(文字に対応する文字コードを表す Integer 値を返す)
２ ．CBool 関数の使用例(式が 0 のときは、False を返しそれ以外は、True を返す)
３ ．CByte 関数の使用例(式をバイト型に変換する)
４ ．CChar 関数の使用例(文字列型の式の最初の文字を char 型に変換する)
５ ．CDate 関数の使用例(文字列を日付型の値に変換する)
６ ．CDbl 関数の使用例(式を倍精度浮動小数点型に変換する)
７ ．CDec 関数の使用例(数値を Decimal に変換する)
８ ．Chr/ChrW 関数の使用例(指定された文字コードに対応する文字を返す)
９ ．CInt 関数の使用例(値を Integer に変換する)
10．CLng 関数の使用例(値を Long に変換する)
11．CObj 関数の使用例(値をオブジェクト型 に変換する)
12．CSByte 関数の使用例(数値を SByte 型に変換する(SByte 型は、-128 から +127 までの範囲の整数))
13．CShort 関数の使用例(数値を短整数型に変換する)
14．CSng 関数の使用例(値を単精度浮動小数点数型に変換する)
15．CStr 関数の使用例(値を文字列型に変換する)
16．CType 関数の使用例(任意の式を指定されたデータ型等に明示的に変換する)
17．CUInt 関数の使用例(数値を UInt 型に変換する)
18．CULng 関数の使用例(数値を ULng 型に変換する)
19．CUShort 関数の使用例(数値を UShort 型に変換する)
20．DirectCast 演算子の使用例(継承または実装に基づく型変換処理をする)
21．Format 関数の使用例(書式指定文字列式に含まれる指示に従って書式設定された文字列を返す)
22．Hex 関数の使用例(指定された値を 16 進数で表した文字列を返す)
23．Oct 関数の使用例(指定された値を 8 進数で返す)
24．Str 関数の使用例(数値を表す文字列を返す)
25．TryCast 演算子の使用例(例外をスローしない型変換演算をする)
26．Val 関数の使用例(指定した文字列に含まれる数値を適切なデータ型に変換する)

実使用例としては適切でない使用例も含まれているかも知れませんがご了承願います。
また、使用例以外にも引数が色々用意されていますので、詳しくは、MSDN や WEB 上で調べて下さい。
　下記プログラムコードに関する補足・注意事項　
動作確認：Windows Vista・Windows 7 (32bit)/VB2010(SP1Rel) Framework 4.0(SP1Rel)/ターゲットCPU：x86
Option　：[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports ：追加なし
参照設定：追加なし
その他　：Button1
　　　　：
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 １．Asc/AscW メソッドの使用例(文字に対応する文字コードを表す Integer 値を返す)
[名前空間: Microsoft.VisualBasic]
Asc　メソッド　文字に対応する文字コードを表す Integer 値を返します。
AscW メソッド　文字に対応する Unicode コードポイントを返します。
　構文　Asc/W(任意の有効な Char 型または String 型の式)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox1.Text = "01．Asc　メソッド　文字に対応する文字コードを表す Integer 値を返します。" & vbCrLf
    TextBox1.Text &= "　　AscW メソッド　文字に対応する Unicode コードポイントを返します。" & vbCrLf & vbCrLf
    TextBox1.Text &= String.Format("Asc(""A"")  = {0}", Asc("A")) & vbCrLf
    TextBox1.Text &= String.Format("AscW(""A"") = {0}", AscW("A")) & vbCrLf
End Sub

上記実行結果
01．Asc　メソッド　文字に対応する文字コードを表す Integer 値を返します。
　　AscW メソッド　文字に対応する Unicode コードポイントを返します。
Asc("A") = 65
AscW("A") = 65
このページのトップへ移動します。 ２．CBool 関数の使用例(式が 0 のときは、False を返しそれ以外は、True を返す)
CBool 関数 = 式が 0 のときは、偽(False)を返しそれ以外は、真(True)を返します。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    TextBox1.Text = "02．CBool 関数 = 式が 0 のときは、偽(False)を返しそれ以外は、真(True)を返します。" & vbCrLf
    Dim values() As Integer = {-1, 0, 1, 2}
    TextBox1.Text &= "Dim values() As Integer = {-1, 0, 1, 2}" & vbCrLf
    For Each value As Integer In values
        TextBox1.Text &= String.Format("CBool({0}) = {1}", value, CBool(value)) & vbCrLf
    Next
End Sub

上記実行結果
02．CBool 関数 = 式が 0 のときは、偽(False)を返しそれ以外は、真(True)を返します。
Dim values() As Integer = {-1, 0, 1, 2}
CBool(-1) = True
CBool(0) = False
CBool(1) = True
CBool(2) = True
このページのトップへ移動します。 ３．CByte 関数の使用例(式をバイト型に変換する)
CByte 関数 = 式をバイト型(Byte)に変換します。(式は、0 〜 255(符号なし)の範囲内で指定し小数部分は丸められます)

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    TextBox1.Text = "03．CByte 関数 = 式をバイト型(Byte)に変換します。(式は、0 〜 255(符号なし)の範囲内で指定し小数部分は丸められます)" & vbCrLf
    Dim values() As Double = {4.4, 4.5, 4.6, 5.4, 5.5, 5.6}
    TextBox1.Text &= "Dim values() As Double = {4.4, 4.5, 4.6, 5.4, 5.5, 5.6}" & vbCrLf
    For Each value As Double In values
        TextBox1.Text &= String.Format("CByte({0}) = {1}", value, CByte(value)) & vbCrLf
    Next
End Sub

上記実行結果
03．CByte 関数 = 式をバイト型(Byte)に変換します。(式は、0 〜 255(符号なし)の範囲内で指定し小数部分は丸められます)
Dim values() As Double = {4.4, 4.5, 4.6, 5.4, 5.5, 5.6}
CByte(4.4) = 4
CByte(4.5) = 4
CByte(4.6) = 5
CByte(5.4) = 5
CByte(5.5) = 6
CByte(5.6) = 6
このページのトップへ移動します。 ４．CChar 関数の使用例(文字列型の式の最初の文字を char 型に変換する)
CChar 関数 = 文字列型(String)の式の最初の文字を char 型(Char)に変換します。
　　　　　　　引数は Char または String データ型である必要があります。

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    TextBox1.Text = "04．CChar 関数 = 文字列型(String)の式の最初の文字を char 型(Char)に変換します。" & vbCrLf
    Dim values() As String = {"A", "AB", "CDE", "123"}
    TextBox1.Text &= "Dim values() As String = {""A"", ""AB"", ""CDE"", ""123""}" & vbCrLf
    For Each value As String In values
        TextBox1.Text &= String.Format("CChar({0}) = {1}", value, CChar(value)) & vbCrLf
    Next
End Sub

上記実行結果
04．CChar 関数 = 文字列型(String)の式の最初の文字を char 型(Char)に変換します。
Dim values() As String = {"A", "AB", "CDE", "123"}
CChar(A) = A
CChar(AB) = A
CChar(CDE) = C
CChar(123) = 1
このページのトップへ移動します。 ５．CDate 関数の使用例(文字列を日付型の値に変換する)
CDate 関数 = 文字列を日付型(Date)の値に変換します。
　　　　　　　引数は任意の有効な日付と時刻の表現で指定して下さい。

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    TextBox1.Text = "05．CDate 関数 = 文字列を日付型(Date)の値に変換します。引数は任意の有効な日付と時刻の表現で指定して下さい。" & vbCrLf
    TextBox1.Text &= String.Format("CDate(""December 23, 2013"") = {0}", CDate("December 23, 2013")) & vbCrLf
    TextBox1.Text &= String.Format("CDate(""4:35:47 PM"")        = {0}", CDate("4:35:47 PM")) & vbCrLf
    TextBox1.Text &= String.Format("CDate(""平成25年12月23日"")  = {0}", CDate("平成25年12月23日")) & vbCrLf
End Sub

上記実行結果
05．CDate 関数 = 文字列を日付型(Date)の値に変換します。引数は任意の有効な日付と時刻の表現で指定して下さい。
CDate("December 23, 2013") = 2013/12/23 00:00:00
CDate("4:35:47 PM") = 0001/01/01 16:35:47
CDate("平成25年12月23日") = 2013/12/23 00:00:00
このページのトップへ移動します。 ６．CDbl 関数の使用例(式を倍精度浮動小数点型に変換する)
CDbl 関数 = 式を倍精度浮動小数点型(Double)に変換する。

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    TextBox1.Text = "06．CDbl 関数 = 式を倍精度浮動小数点型(Double)に変換する。" & vbCrLf
    Dim value As Single = 123.456
    TextBox1.Text &= "Dim value As Single = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　　 = {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CDbl(value)) = {0}", TypeName(CDbl(value))) & vbCrLf
End Sub

上記実行結果
06．CDbl 関数 = 式を倍精度浮動小数点型(Double)に変換する。
Dim value As Single = 123.456
TypeName(value)　　　 = Single
TypeName(CDbl(value)) = Double
このページのトップへ移動します。 ７．CDec 関数の使用例(数値を Decimal に変換する)
CDec 関数 = 数値を Decimal に変換します。

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    TextBox1.Text = "07．CDec 関数 = 数値を Decimal に変換します。" & vbCrLf
    Dim value As Single = 123.456
    TextBox1.Text &= "Dim value As Single = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　　 = {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CDec(value)) = {0}", TypeName(CDec(value))) & vbCrLf
    TextBox1.Text &= String.Format("CDec(value)　　　　　 = {0}", CDec(value)) & vbCrLf
End Sub

上記実行結果
07．CDec 関数 = 数値を Decimal に変換します。
Dim value As Single = 123.456
TypeName(value)　　　 = Single
TypeName(CDec(value)) = Decimal
CDec(value)　　　　　 = 123.456
このページのトップへ移動します。 ８．Chr/ChrW 関数の使用例(指定された文字コードに対応する文字を返す)
[名前空間: Microsoft.VisualBasic]
Chr メソッド　指定された文字コードに対応する文字を返します。
ChrW メソッド ChrW は、CharCode を Unicode のコードポイントとして受け取ります。
　構文　Chr/W(指定された文字コードに対応する文字を返します。)

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    TextBox1.Text = "08．Chr メソッド　指定された文字コードに対応する文字を返します。" & vbCrLf
    TextBox1.Text &= "　　ChrW メソッド ChrW は、CharCode を Unicode のコードポイントとして受け取ります。" & vbCrLf & vbCrLf
    TextBox1.Text &= String.Format("Char(65)　= {0}", Chr(65)) & vbCrLf
    TextBox1.Text &= String.Format("CharW(65) = {0}", ChrW(65)) & vbCrLf
End Sub

上記実行結果
08．Chr メソッド　指定された文字コードに対応する文字を返します。
　　ChrW メソッド ChrW は、CharCode を Unicode のコードポイントとして受け取ります。
Char(65)　= A
CharW(65) = A
このページのトップへ移動します。 ９．CInt 関数の使用例(値を Integer に変換する)
CInt 関数 = 数値を Integer に変換します。

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
    TextBox1.Text = "09．CInt 関数 = 数値を Integer に変換します。" & vbCrLf
    Dim value As Single = 123.456
    TextBox1.Text &= "Dim value As Single = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　　 = {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CInt(value)) = {0}", TypeName(CInt(value))) & vbCrLf
    TextBox1.Text &= String.Format("CInt(value)　　　　　 = {0}", CInt(value)) & vbCrLf
End Sub

上記実行結果
09．CInt 関数 = 数値を Integer に変換します。
Dim value As Single = 123.456
TypeName(value)　　　 = Single
TypeName(CInt(value)) = Integer
CInt(value)　　　　　 = 123
このページのトップへ移動します。 10．CLng 関数の使用例(値を Long に変換する)
CLng 関数 = 数値を Long に変換します。

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
    TextBox1.Text = "10．CLng 関数 = 数値を Long に変換します。" & vbCrLf
    Dim value As Single = 123.456
    TextBox1.Text &= "Dim value As Single = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　　 = {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CLng(value)) = {0}", TypeName(CLng(value))) & vbCrLf
    TextBox1.Text &= String.Format("CLng(value)　　　　　 = {0}", CLng(value)) & vbCrLf
End Sub

上記実行結果
10．CLng 関数 = 数値を Long に変換します。
Dim value As Single = 123.456
TypeName(value)　　　 = Single
TypeName(CLng(value)) = Long
CLng(value)　　　　　 = 123
このページのトップへ移動します。 11．CObj 関数の使用例(値をオブジェクト型 に変換する)
CObj 関数 = 値をオブジェクト型(Object)に変換します。

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
    TextBox1.Text = "11．CObj 関数 = 値をオブジェクト型(Object)に変換します。" & vbCrLf
    Dim value As Single = 123.456
    TextBox1.Text &= "Dim value As Single = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　　 = {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CObj(value)) = {0}", TypeName(CObj(value))) & vbCrLf
    TextBox1.Text &= String.Format("CObj(value)　　　　　 = {0}", CObj(value)) & vbCrLf
End Sub

上記実行結果
11．CObj 関数 = 値をオブジェクト型(Object)に変換します。
Dim value As Single = 123.456
TypeName(value)　　　 = Single
TypeName(CObj(value)) = Single
CObj(value)　　　　　 = 123.456
このページのトップへ移動します。 12．CSByte 関数の使用例(数値を SByte 型に変換する(SByte 型は、-128 から +127 までの範囲の整数))
CSByte 関数 = 数値を SByte 型に変換します。
　　　　　　　 (SByte 型とは、-128 から +127 までの範囲の整数のことで小数部分は丸められますす。)

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
    TextBox1.Text = "12．CSByte 関数 = 数値を SByte 型に変換します。(SByte 型とは、-128 から +127 までの範囲の整数のことで小数部分は丸められますす。)" & vbCrLf
    Dim value As Single = 123.456
    TextBox1.Text &= "Dim value As Single = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　 　　= {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CSByte(value)) = {0}", TypeName(CSByte(value))) & vbCrLf
    TextBox1.Text &= String.Format("CSByte(value)　　　　　 = {0}", CSByte(value)) & vbCrLf
End Sub

上記実行結果
12．CSByte 関数 = 数値を SByte 型に変換します。(SByte 型とは、-128 から +127 までの範囲の整数のことで小数部分は丸められますす。)
Dim value As Single = 123.456
TypeName(value)　　 　　= Single
TypeName(CSByte(value)) = SByte
CSByte(value)　　　　　 = 123
このページのトップへ移動します。 13．CShort 関数の使用例(数値を短整数型に変換する)
CShort 関数 = 数値を短整数型(Short)に変換します。(小数部分は丸められます。)

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
    TextBox1.Text = "13．CShort 関数 = 数値を短整数型(Short)に変換します。(小数部分は丸められます。)" & vbCrLf
    Dim value As Single = 123.456
    TextBox1.Text &= "Dim value As Single = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　 　　= {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CShort(value)) = {0}", TypeName(CShort(value))) & vbCrLf
    TextBox1.Text &= String.Format("CShort(value)　　　　　 = {0}", CShort(value)) & vbCrLf
End Sub

上記実行結果
13．CShort 関数 = 数値を短整数型(Short)に変換します。(小数部分は丸められます。)
Dim value As Single = 123.456
TypeName(value)　　 　　= Single
TypeName(CShort(value)) = Short
CShort(value)　　　　　 = 123
このページのトップへ移動します。 14．CSng 関数の使用例(値を単精度浮動小数点数型に変換する)
CSng 関数 = 値を単精度浮動小数点数型(Single)に変換します。

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
    TextBox1.Text = "14．CSng 関数 = 値を単精度浮動小数点数型(Single)に変換します。" & vbCrLf
    Dim value As Double = 123.456
    TextBox1.Text &= "Dim value As Double = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　 　= {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CSng(value)) = {0}", TypeName(CSng(value))) & vbCrLf
    TextBox1.Text &= String.Format("CSng(value)　　　　　 = {0}", CSng(value)) & vbCrLf
End Sub

上記実行結果
14．CSng 関数 = 値を単精度浮動小数点数型(Single)に変換します。
Dim value As Double = 123.456
TypeName(value)　　 　= Double
TypeName(CSng(value)) = Single
CSng(value)　　　　　 = 123.456
このページのトップへ移動します。 15．CStr 関数の使用例(値を文字列型に変換する)
CStr 関数 = 値を文字列型(String)に変換します。


Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
    TextBox1.Text = "15．CStr 関数 = 値を文字列型(String)に変換します。" & vbCrLf & vbCrLf
    TextBox1.Text &= "Dim value As Double = 123.456" & vbCrLf

    Dim value As Double = 123.456
    TextBox1.Text &= "Dim value As Double = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　 　= {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CStr(value)) = {0}", TypeName(CStr(value))) & vbCrLf
    TextBox1.Text &= String.Format("""00"" & CStr(value)　  = {0}", "00" & CStr(value)) & vbCrLf
End Sub

上記実行結果
15．CStr 関数 = 値を文字列型(String)に変換します。

Dim value As Double = 123.456
Dim value As Double = 123.456
TypeName(value)　　 　= Double
TypeName(CStr(value)) = String
"00" & CStr(value)　 = 00123.456
このページのトップへ移動します。 16．CType 関数の使用例(任意の式を指定されたデータ型等に明示的に変換する)
CType 関数 = 任意の式を、指定されたデータ型等に明示的に変換し、その結果を返します。

Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
    TextBox1.Text = "16．CType 関数 = 任意の式を、指定されたデータ型等に明示的に変換し、その結果を返します。" & vbCrLf
    Dim value As Double = 123.456
    TextBox1.Text &= "Dim value As Double = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　 　　　　　 = {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CType(value, String)) = {0}", TypeName(CType(value, String))) & vbCrLf
    TextBox1.Text &= String.Format("""00"" & CType(value, String)　= {0}", "00" & CType(value, String)) & vbCrLf
End Sub

上記実行結果
16．CType 関数 = 任意の式を、指定されたデータ型等に明示的に変換し、その結果を返します。
Dim value As Double = 123.456
TypeName(value)　　 　　　　　 = Double
TypeName(CType(value, String)) = String
"00" & CType(value, String)　= 00123.456
このページのトップへ移動します。 17．CUInt 関数の使用例(数値を UInt 型に変換する)
CUInt 関数 = 数値をUInt 値型 に変換します。
　　　　　　　(引数は、0 から 4,294,967,295 (符号なし)の範囲、小数部分は丸められます。)

Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
    TextBox1.Text = "17．CUInt 関数 = 数値をUInt 値型 に変換します。(引数は、0 から 4,294,967,295 (符号なし)の範囲、小数部分は丸められます。)" & vbCrLf
    Dim value As Double = 125.56
    TextBox1.Text &= "Dim value As Double = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　　 = {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CUInt(value))= {0}", TypeName(CUInt(value))) & vbCrLf
    TextBox1.Text &= String.Format("CUInt(value)　　　　　= {0}", CUInt(value)) & vbCrLf
End Sub

上記実行結果
17．CUInt 関数 = 数値をUInt 値型 に変換します。(引数は、0 から 4,294,967,295 (符号なし)の範囲、小数部分は丸められます。)
Dim value As Double = 123.456
TypeName(value)　　　 = Double
TypeName(CUInt(value))= UInteger
CUInt(value)　　　　　= 126
このページのトップへ移動します。 18．CULng 関数の使用例(数値を ULng 型に変換する)
CULng 関数 = 数値を ULng 値型 に変換します。
　　　　　　 (引数は、0 から 18,446,744,073,709,551,615 (符号なし)の範囲、小数部分は丸められます。)

Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
    TextBox1.Text = "18．CULng 関数 = 数値を ULng 値型 に変換します。(引数は、0 から 18,446,744,073,709,551,615 (符号なし)の範囲、小数部分は丸められます。" & vbCrLf
    Dim value As Double = 125.56
    TextBox1.Text &= "Dim value As Double = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　　 = {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CULng(value))= {0}", TypeName(CULng(value))) & vbCrLf
    TextBox1.Text &= String.Format("CULng(value)　　　　　= {0}", CULng(value)) & vbCrLf
End Sub

上記実行結果
18．CULng 関数 = 数値を ULng 値型 に変換します。(引数は、0 から 18,446,744,073,709,551,615 (符号なし)の範囲、小数部分は丸められます。
Dim value As Double = 123.456
TypeName(value)　　　 = Double
TypeName(CULng(value))= ULong
CULng(value)　　　　　= 126
このページのトップへ移動します。 19．CUShort 関数の使用例(数値を UShort 型に変換する)
CUShort 関数 = 数値を UShort 値型に変換します。
　　　　　　　　(引数は、0 から 65,535 (符号なし)の範囲、小数部分は丸められます。)

Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
    TextBox1.Text = "19．CUShort 関数 = 数値を UShort 値型に変換します。(引数は、0 から 65,535 (符号なし)の範囲、小数部分は丸められます。)" & vbCrLf
    Dim value As Double = 125.56
    TextBox1.Text &= "Dim value As Double = 123.456" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(value)　　　　　= {0}", TypeName(value)) & vbCrLf
    TextBox1.Text &= String.Format("TypeName(CUShort(value)) = {0}", TypeName(CUShort(value))) & vbCrLf
    TextBox1.Text &= String.Format("CUShort(value)　　　　　 = {0}", CUShort(value)) & vbCrLf
End Sub

上記実行結果
19．CUShort 関数 = 数値を UShort 値型に変換します。(引数は、0 から 65,535 (符号なし)の範囲、小数部分は丸められます。)
Dim value As Double = 123.456
TypeName(value)　　　　　= Double
TypeName(CUShort(value)) = UShort
CUShort(value)　　　　　 = 126
このページのトップへ移動します。 20．DirectCast 演算子の使用例(継承または実装に基づく型変換処理をする)
DirectCast 演算子 = 継承または実装に基づく型変換処理を実行します。(CType 関数と似た方法で使用します)
　DirectCast の場合、 2 つの引数のデータ型の間に、継承または実装の関係があることが必要です。

Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
    TextBox1.Text = "20．DirectCast 演算子 = 継承または実装に基づく型変換処理を実行します。(CType 関数と似た方法で使用します)" & vbCrLf
    TextBox1.Text &= "    DirectCast の場合、 2 つの引数のデータ型の間に、継承または実装の関係があることが必要です。" & vbCrLf & vbCrLf

    Dim value As Double = 125.56
    TextBox1.Text &= "Dim value As Double = 123.456" & vbCrLf
    'CType 関数のように下記のような変換はできません。
    '継承または実装の関係が存在しないことを検出し、エラーが発生します。
    'Console.WriteLine("TypeName(DirectCast(value, String)) = {0}", TypeName(DirectCast(value, Integer)))

    Dim f As New System.Windows.Forms.Form
    TextBox1.Text &= String.Format("TypeName(DirectCast(f, System.Windows.Forms.Control)) = {0}", _
                                    TypeName(DirectCast(f, System.Windows.Forms.Control)))
End Sub

上記実行結果
20．DirectCast 演算子 = 継承または実装に基づく型変換処理を実行します。(CType 関数と似た方法で使用します)
DirectCast の場合、 2 つの引数のデータ型の間に、継承または実装の関係があることが必要です。
Dim value As Double = 123.456
TypeName(DirectCast(f, System.Windows.Forms.Control)) = Form
このページのトップへ移動します。 21．Format 関数の使用例(書式指定文字列式に含まれる指示に従って書式設定された文字列を返す)
[名前空間: Microsoft.VisualBasic]
　Strings.Format メソッド = 書式指定文字列(String)式に含まれる指示に従って書式設定された文字列を返します。

Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
    TextBox1.Text = "21．Strings.Format メソッド = 書式指定文字列(String)式に含まれる指示に従って書式設定された文字列を返します。" & vbCrLf
    Dim value As Double = 12345.6
    Dim ans As String = ""
    ans = Format(value, "合計 = #,###.00")
    TextBox1.Text &= "Dim value As Double = 123.456" & vbCrLf
    TextBox1.Text &= "ans = Format(value, ""合計 = #,###.00"")" & vbCrLf
    TextBox1.Text &= "String.Format(ans) = " & String.Format(ans)
End Sub

上記実行結果
21．Strings.Format メソッド = 書式指定文字列(String)式に含まれる指示に従って書式設定された文字列を返します。
Dim value As Double = 123.456
ans = Format(value, "合計 = #,###.00")
String.Format(ans) = 合計 = 12,345.60

注意、上記同様のものに、名前空間 : System の　String.Format メソッドがあります。
　 ans = String.Format("{0:合計 = #,###.00}", value)
　 Console.WriteLine(ans)　'合計 = 12,345.60
このページのトップへ移動します。 22．Hex 関数の使用例(指定された値を 16 進数で表した文字列を返す)
Hex 関数 = 指定された値を 16 進数で表した文字列で返します。

Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
    TextBox1.Text = "22．Hex 関数 = 指定された値を 16 進数で表した文字列で返します。" & vbCrLf
    Dim values() As Integer = {9, 10, 12, 14, 20}
    TextBox1.Text &= "Dim values() As Integer = {9, 10, 12, 14, 20}" & vbCrLf
    For Each value As Integer In values
        TextBox1.Text &= String.Format("Hex({0}) = {1}", value, Hex(value)) & vbCrLf
    Next
End Sub

上記実行結果
22．Hex 関数 = 指定された値を 16 進数で表した文字列で返します。
Dim values() As Integer = {9, 10, 12, 14, 20}
Hex(9) = 9
Hex(10) = A
Hex(12) = C
Hex(14) = E
Hex(20) = 14
このページのトップへ移動します。 23．Oct 関数の使用例(指定された値を 8 進数で返す)
Oct 関数 = 指定された値を 8 進数で返します。

Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
    TextBox1.Text = "23．Oct 関数 = 指定された値を 8 進数で返します。" & vbCrLf
    Dim values() As Integer = {6, 7, 8, 9, 10}
    TextBox1.Text &= "Dim values() As Integer = {6, 7, 8, 9, 10}" & vbCrLf
    For Each value As Integer In values
        TextBox1.Text &= String.Format("Oct({0}) = {1}", value, Oct(value)) & vbCrLf
    Next
End Sub

上記実行結果
23．Oct 関数 = 指定された値を 8 進数で返します。
Dim values() As Integer = {6, 7, 8, 9, 10}
Oct(6) = 6
Oct(7) = 7
Oct(8) = 10
Oct(9) = 11
Oct(10) = 12
このページのトップへ移動します。 24．Str 関数の使用例(数値を表す文字列を返す)
Str 関数 = 数値を表す文字列を返します。

Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
    TextBox1.Text = "24．Str 関数 = 数値を表す文字列を返します。" & vbCrLf
    TextBox1.Text &= String.Format("Str(10) + Str(10) = {0}", Str(10) + Str(10))
End Sub

上記実行結果
24．Str 関数 = 数値を表す文字列を返します。
Str(10) + Str(10) = 10 10
このページのトップへ移動します。 25．TryCast 演算子の使用例(例外をスローしない型変換演算をする)
TryCast 演算子 = 例外をスローしない型変換演算を開始します。
　　　　　　　　　 CType 関数や DirectCast 演算子と同じように使用します。

変換が失敗した場合、CType および DirectCast の両方から InvalidCastException エラーが発生しますが、これは、アプリケーションのパフォーマンスに悪影響を与える可能性があります。
TryCast は、例外を処理するのではなく、返された値が Nothing かどうかをテストするだけで済むようにNothing を返します。

Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
    TextBox1.Text = "25．TryCast 演算子 = 例外をスローしない型変換演算を開始します。 CType 関数や DirectCast 演算子と同じように使用します。" & vbCrLf
    Dim value As Object = 125.56
    TextBox1.Text &= "Dim value As Object = 125.56" & vbCrLf
    TextBox1.Text &= String.Format("TryCast(DirectCast(value, String)) = {0}", TypeName(TryCast(value, String))) & vbCrLf

    Dim f As New System.Windows.Forms.Form
    TextBox1.Text &= String.Format("TryCast(f, System.Windows.Forms.Control)) = {0}", _
                    TypeName(TryCast(f, System.Windows.Forms.Control)))
End Sub

上記実行結果
25．TryCast 演算子 = 例外をスローしない型変換演算を開始します。 CType 関数や DirectCast 演算子と同じように使用します。
Dim value As Object = 125.56
TryCast(DirectCast(value, String)) = Nothing
TryCast(f, System.Windows.Forms.Control)) = Form
このページのトップへ移動します。 26．Val 関数の使用例(指定した文字列に含まれる数値を適切なデータ型に変換する)
Val 関数 = 指定した文字列に含まれる数値を適切なデータ型に変換して返します。

Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
    TextBox1.Text = "26．Val 関数 = 指定した文字列に含まれる数値を適切なデータ型に変換して返します。" & vbCrLf
    Dim value As String = "1234.56"
    TextBox1.Text &= "Dim value As String = 1234.56" & vbCrLf
    TextBox1.Text &= String.Format("TypeName(Val(value))　　= {0}", TypeName(Val(value))) & vbCrLf
    TextBox1.Text &= String.Format("Val(value) + Val(value) = {0}", Val(value) + Val(value))
End Sub

上記実行結果
26．Val 関数 = 指定した文字列に含まれる数値を適切なデータ型に変換して返します。
Dim value As String = 1234.56
TypeName(Val(value))　　= Double
Val(value) + Val(value) = 2469.12
このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)





このページのトップへ移動します。