Ludsam

Отказах се от снимката и си го направих да ми запазва всичко в текстов документ като името му посочвам аз . Стана сполучливо Ken благодаря ти за отзивчивостта и друда, който положи Поздрави

Там е проблема, че аз съм с 6.0 версията и ми дава грешка ... явно има нещо ново във функцията, което са въвели в 2008 и за това да ми дава грешка ... нз и аз

Това ми даде някаква грешка : "Compile error: User-defined type not defined" и посочва " Private Function GetFormImage(ByVal include_borders As Boolean) As Bitmap" Някакви идеи Едит: както и да е, не е болка за умиране. Може и без него Благодаря отново за отделеното време и усилия

Мерси сега ще се опитам да го вмъкнем

дава следната грешка : "Run-time error '13' Type missmatch" и посочва "kol9 = txt81.Text" Едит: промених кода по следния начин и всичко се оправи Private Sub command_Click() Dim sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8, sum9, sum01 As Integer If txt01.Text <> "" And txt02.Text <> "" Then sum1 = txt01.Text * txt02.Text If txt11.Text <> "" And txt12.Text <> "" Then sum2 = txt11.Text * txt12.Text If txt21.Text <> "" And txt22.Text <> "" Then sum3 = txt21.Text * txt22.Text If txt31.Text <> "" And txt32.Text <> "" Then sum4 = txt31.Text * txt32.Text If txt41.Text <> "" And txt42.Text <> "" Then sum5 = txt41.Text * txt42.Text If txt51.Text <> "" And txt52.Text <> "" Then sum6 = txt51.Text * txt52.Text If txt61.Text <> "" And txt62.Text <> "" Then sum7 = txt61.Text * txt62.Text If txt71.Text <> "" And txt72.Text <> "" Then sum8 = txt71.Text * txt72.Text If txt81.Text <> "" And txt82.Text <> "" Then sum9 = txt81.Text * txt82.Text txt03.Text = sum1 txt13.Text = sum2 txt23.Text = sum3 txt33.Text = sum4 txt43.Text = sum5 txt53.Text = sum6 txt63.Text = sum7 txt73.Text = sum8 txt83.Text = sum9 total.Text = sum1 + sum2 + sum3 + sum4 + sum5 + sum6 + sum7 + sum8 + sum9 + sum01 End Sub Private Sub del_Click() Unload Form1 Form1.Show End Sub Добавих също и бутон за изчистване на резултата който просто презарежда form1 Едит 2 : Сега се сетих за друго... какъв трябва да е кода на др бутон който да снима прозореца на програмата и да го запазва като картинка на посочено от мен място? Ако някой измисли нещо моля да го сподели

Здравейте Нов съм във VB и нещо не ми се получава една нагледно проста програмка за изчисления Ето какво представлява тя : Идеята е следната: добавяш количество и цена на някой от редовете и след натискането на бутона "изчисли" с/у реда на общо да сметне произведението им, да го изпише там и да субере сичките суми от редовете и да го изпише най отдолу до "изчисли". Използвам следния код но някъде бъркам : Private Sub command_Click() Dim sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8, sum9 As Integer Dim kol1, kol2, kol3, kol4, kol5, kol6, kol7, kol8, kol9 As Integer Dim cen1, cen2, cen3, cen4, cen5, cen6, cen7, cen8, cen9 As Integer kol1 = txt01.Text kol2 = txt11.Text kol3 = txt21.Text kol4 = txt31.Text kol5 = txt41.Text kol6 = txt51.Text kol7 = txt61.Text kol8 = txt71.Text kol9 = txt81.Text cen1 = txt02.Text cen2 = txt12.Text cen3 = txt22.Text cen4 = txt32.Text cen5 = txt42.Text cen6 = txt52.Text cen7 = txt62.Text cen8 = txt72.Text cen9 = txt82.Text If kol1 <> "" And cen1 <> "" Then sum1 = kol1 * cen1 Else If kol2 <> "" And cen2 <> "" Then sum2 = kol2 * cen2 Else If kol3 <> "" And cen3 <> "" Then sum3 = kol3 * cen3 Else If kol4 <> "" And cen4 <> "" Then sum4 = kol4 * cen4 Else If kol5 <> "" And cen5 <> "" Then sum5 = kol5 * cen5 Else If kol6 <> "" And cen6 <> "" Then sum6 = kol6 * cen6 Else If kol7 <> "" And cen7 <> "" Then sum7 = kol7 * cen7 Else If kol8 <> "" And cen8 <> "" Then sum8 = kol8 * cen8 Else If kol9 <> "" And cen9 <> "" Then sum9 = kol9 * cen9 txt03.Text = sum1 txt13.Text = sum2 txt23.Text = sum3 txt33.Text = sum4 txt43.Text = sum5 txt53.Text = sum6 txt63.Text = sum7 txt73.Text = sum8 txt83.Text = sum9 total.Text = sum1 + sum2 + sum3 + sum4 + sum5 + sum6 + sum7 + sum8 + sum9 End Sub