コンボボックス 各種プロパティ

##########   アクティブな項目の文字列を取得  ##########

    Dim strProj As String
    
    strProj = frmMain.ComboProj.Text  
	

##########   文字列からアクティブな項目を設定  ##########

    Dim i As Integer
  
    For i = 0 To frmMain.ComboProj.ListCount - 1

        If frmMain.ComboProj.List(i) = WIN32API_Get_INI_strValue("ComboProj", "未選択") Then
        
            'コンボボックスのアクティブな項目を設定
            frmMain.ComboProj.ListIndex = i
            
        End If
    
    Next i
	

---

<戻る>

Gポイントポイ活　Amazon Yahoo 楽天

無料ホームページ 楽天モバイル[UNLIMITが今なら1円] 海外格安航空券 海外旅行保険が無料！