Vizual asosiy/matn qutisiga so'zni qanday kiritish va raqamli qiymatni chiqarish

Hozirgi kunda kollejdagi ingl. Asosiy ta'limni o'rganyapman va men uni chalkashtirib tashlayapman. Matn qutisini matn sifatida kiritishni qanday qabul qilaman va ro'yxatga kiritilgan o'zgaruvchiga kirishni oladi va chiqaradi. Misol uchun, stulni narxi = $ 10 va jadval narxi = $ 40 kabi satrlarga turli qiymatlarni belgilashni xohlayman. Qanday qilib siz buni tugmachani bosganingizda matn qutilariga so'z koltuğundan oladi va ro'yxat qutisidagi qiymatni chiqaradi.

0
@David Stratton - Hech qachon. NET deb nomlangan. Ehtimol, u VB6 yoki VBA kabi narsalarni o'rganishi mumkin ... Vb.NET Braedenni qilyapsizmi?
qo'shib qo'ydi muallif Sivvy, manba
Buning uchun juda ko'p usullar bor, men qaerdan boshlashni amin emasman. Misol uchun, mahsulot/narx juftlarini qanday saqlash kerakligini aniqlash uchun hozirgi paytda nima o'rganganingizni bilishimiz kerakmi? To'plam sinflari? Ma'lumotlar bazalari? Fayllar? xml Bundan tashqari, bu VB.NET yoki VB6 ekanligini aniqlang. (Men buni VB.NET deb bilaman, lekin siz hech qachon bilmasligingiz mumkin.) Bu forum uchun juda katta javob bo'lishi mumkin. Bu darslikning bir qismiga to'g'ri kelishi singari, uni qoplash uchun kerak. Bu yerga tashrif buyurishingiz yaxshi bo'lishi mumkin: msdn.microsoft.com/en-us/ beginner/default.aspx Kurslar yangi boshlanuvchilarga qaratilgan va osonroq bo'lishi mumkin.
qo'shib qo'ydi muallif David, manba
Avvalgi sharhimda havolani unuting - bu erda boshlang: msdn.microsoft.com/en- biz/vbasic/bb466159
qo'shib qo'ydi muallif David, manba
Vizual bazani oldindan bilmagan holda ingl. Asosiy ekspress-2010 dan foydalanib.
qo'shib qo'ydi muallif Braeden Aspeleiter, manba
uni simli stulni er-xotin sifatida e'lon qilish va keyin lstBox.Items.Add (stul) dan foydalanishni osonlashtiradi va u to'g'ri raqamni ko'rsatishi kerak. Lekin men qanday qilib ma'lumotni matn qutisiga kiritilgan narsaning chiqishidan foydalanib, ro'yxat qutisiga qadriyatlarni qo'shishni bilmayman. Qachon i kafedrada yozsam, qanday qilib string kursorini belgilangan qiymatga aylantira olaman. ro'yxat qutisidagi so'zni stulga bosish o'rniga.
qo'shib qo'ydi muallif Braeden Aspeleiter, manba

1 javoblar

Function GetPrice(ByVal key As String) As Decimal
    Dim priceTable As New Dictionary(Of string, Decimal)()
    priceTable.Add("chair", 10.0)
    priceTable.Add("table", 40.0)

    Return If(priceTable.ContainsKey(key), priceTable(key), 0)
End Function

Public Sub Button1_click(ByVal sender As Object, ByVal e As EventArgs)
    ListBox1.Items.Add(GetPrice(Textbox1.Text).ToString())
End Sub
0
qo'shib qo'ydi