VB2008からVB2010へ移植

TemporaryKey.pfx

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

変更点

VB6.Format
　　↓
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）

「名前を付けて保存」ダイアログボックス
Dim sfd As New SaveFileDialog()
If sfd.ShowDialog() = DialogResult.OK Then
' 書き込み処理コード
End If

May 12, 2011

The following clause.

ソフトウェア