'================================================================
'= 文字列を大文字・小文字に変換(文字数指定)
'=    (CharLowerBuff2.bas)
'================================================================
#include "Windows.bi"

' バッファの大文字を小文字に変換する(処理する文字数の指定が可能)
Declare Function Api_CharLowerBuff& Lib "user32" Alias "CharLowerBuffA" (ByVal lpsz$, ByVal cchLength&)

' バッファの小文字を大文字に変換する(処理する文字数の指定が可能)
Declare Function Api_CharUpperBuff& Lib "user32" Alias "CharUpperBuffA" (ByVal lpsz$, ByVal cchLength&)

Var Shared Edit1 As Object
Var Shared Edit2 As Object
Var Shared Button1 As Object

Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 12
Edit2.Attach GetDlgItem("Edit2") : Edit2.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Function Index bdecl () As Integer
Function Index()
    Index = Val(Mid$(GetDlgRadioSelect("Radio1"), 6)) -1
End Function

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var txt As String
    Var Ret As Long

    txt = Edit1.GetWindowText

    If Index = 0 Then
        '先頭から指定文字目まで大文字に変換
        Ret = Api_CharUpperBuff(txt, Val(Edit2.GetWindowText))
    Else
        '先頭から指定文字目まで小文字に変換
        Ret = Api_CharLowerBuff(txt, Val(Edit2.GetWindowText))
    End If
    Edit1.SetWindowtext txt
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End