VB2008からVB2010へ移植

TemporaryKey.pfx

ソースファイルを他のPCからコピーした場合は
右クリックしてPFXのインストールで
パスワードを入力します。

変更点

VB6.Format
　　↓
Format
String.Format

Font = VB6.FontChangeName(Font, C(12))
Font = VB6.FontChangeSize(Font, F(25))
　　↓
Font = New Font(C(12), F(25))

VB6.GetPath
　　↓
Application.StartupPath

VB6.GetItemString
　　↓
List1.Items(List1.SelectedIndex).ToString

VB6.PixelsToTwipsX
VB6.PixelsToTwipsY
VB6.TwipsToPixelsX
VB6.TwipsToPixelsY
　　↓
削除（1pixel = 15twip）

フォルダ選択ダイアログ May 22, 2012 追加

Dim fbd As New FolderBrowserDialog

fbd.Description = "フォルダを指定してください。"
fbd.RootFolder = Environment.SpecialFolder.MyComputer
fbd.SelectedPath = C(0)
fbd.ShowNewFolderButton = True

If fbd.ShowDialog(Me) = DialogResult.OK Then
C(0) = fbd.SelectedPath
If VB.Right(C(0), 1) <> "\" Then C(0) = C(0) & "\"
End If

May 12, 2011

The following clause.

ソフトウェア