1

NumericUpDown選択したコントロールをに置き換えることは可能ComboBoxesですか?

すべてのプロパティを保存できるわけではないことは理解していますが、必要なプロパティは場所とサイズだけです。私が念頭に置いているワークフローは次のとおりです。

  1. 特定の選択NumericUpDowns
  2. [置換...] をクリックし、ComboBoxes(またはその他の方法)を選択します。
  3. あったところに、NumericUpDowns今ComboBoxesは同じ大きさの

これを行う理由は、複数のタブを持つ GUI をまとめなければならないからです。各タブ ページには、またはLabelsの横にある のリストがあります。コントロールの順序はタブごとに変わります。最初のタブの項目をコピーして、他のタブに貼り付けたいだけです。次に、タブごとに、特定のものを に変更するだけです。NumericUpDownsControlBoxesNumericUpDownsComboBoxes

昨日VBを始めたので、見落としがあるかもしれません。

4

2 に答える 2

1

最も速いのは手動で行うことです。GUI をリモートで変更することはできません。よく知らない言語の初心者レベルなので、RAD をお勧めします。この方法で、HTML を学習するのと同じように、RAD が何をするかを学ぶことができます。 DreamWeaver の RAD ツール。

あなたが興味を持っているので（あなたがVBに慣れていないことを知っているので、はっきりさせておきます）、次の手順を実行します。

a) Winforms VS 2008 ソリューションを開く
b) [ファイル] > [新しいプロジェクトの作成] > [WinForms
] をクリックします c) フォームをダブルクリックすると、フォーム コードが表示されます
d) コンストラクター メソッドに次の行が表示されますInitializeComponent
e) これを右クリックしますメソッド呼び出しと選択Goto Definition
f) これにより、フォームにコントロールを設定するコードが表示されます
g) 次に、フォームごとに、 xyz.Designer.vb ファイル内のすべての NumericUpDown を ComboBoxes に置き換えることをお勧めします

ただし、Visual Studio IDE で行うことを強くお勧めします。怖がらないでください。

于 2012-05-08T09:39:51.287 に答える
1 
Private sub Replace_By_ComboBox(ByVal nud As NumericUpDowns)

    'Create new combo box        
    Dim cbx As New ComboBox
    cbx.Left = nud.Left
    cbx.To = nud.Top
    cbx.Width = nud.Width
    cbx.Height = nud.Height
    cbx.Visible = True
    cbx.Enabled = True

    'Add the combo box 
    nud.Parent.Controls.Add(cbx)

    'Remove the NumericUpDowns
    nud.Parent.Controls.Remove(nud)

End Sub
于 2012-05-08T02:28:05.023 に答える