VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2007/04/16(Mon) 11:53
投稿者ダンボ
Eメール
URL
タイトルRe: 引数に対応するアルファベットへの変換

Private Function Alpha(Num As Integer) As String
    If (Num >= 0) And (Num < 26) Then Alpha = Chr(Asc("A") + Num)
End Function

(*)上記だけで投稿しようとしたら「アスキーコードだけの入力はできません! 」って怒られましたわ


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -