Second Opinion
Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale. Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit. www.neurohope.ro |
Separare numere cu Punct
Last Updated: Feb 25 2014 20:08, Started by
bullet404
, Jan 19 2014 23:34
·
0
#1
Posted 19 January 2014 - 23:34
Deci, se da 1x label, functie label1.text = "101"
cum pot face ca acest label sa afiseze 1.0.1 ? |
#2
Posted 21 January 2014 - 09:37
daca intr-adevar este o eticheta "Label" atunci aceasta nu are proprietatea Label.Text ci Label.Caption.
pentru ce ai tu de facut: Dim xSTR$ For I = 1 To Len(Label1) - 1 xSTR = xSTR & Mid$(Label1, I, 1) & "." Next xSTR = xSTR & Right$(Label1, 1) Label1 = xSTR |
#3
Posted 24 January 2014 - 00:49
e vorba de visual basic.. codul tau nu e bun..
folosesc visual studio 2013.. |
#5
Posted 01 February 2014 - 15:29
Label1.Text = String.Join(".", (From c In Label1.Text).ToArray()) |
#6
Posted 04 February 2014 - 17:03
dani.user, on 01 februarie 2014 - 15:29, said: Label1.Text = String.Join(".", (From c In Label1.Text).ToArray()) Error 1 Expression of type 'String' is not queryable. Make sure you are not missing an assembly reference and/or namespace import for the LINQ provider. C:\Users\Popescu Ionut\Documents\Visual Studio 2013\Projects\Metin2Kid\Metin2KID\Form1.vb 73 55 Metin2KID mai exact problema e aici: Label1.Text = String.Join(".", (From c In Label1.Text).ToArray()) |
#7
Posted 04 February 2014 - 17:42
sorry for dublepost.. dar rezolvarea vine tot de la mine !
label_vers.Text = 100 For numar = 0 To label_vers.Text.Length Dim nr = label_vers.Text.IndexOf(numar) label_vers.Text = label_vers.Text.Replace(nr, nr & ".") Next label_vers.Text = "v" & label_vers.Text.Remove(5) 'sterge ultimul punct ( era 1.0.0. ) rezultat final: v1.0.0 |
#8
Posted 04 February 2014 - 18:16
In eroarea postata iti zice clar ce ii lipseste, dar na, mai trec vreo 5 ani pana intelegi ce-i acolo
|
#9
Posted 25 February 2014 - 20:08
bullet404, on 24 ianuarie 2014 - 00:49, said:
e vorba de visual basic.. codul tau nu e bun.. folosesc visual studio 2013.. Ba e bun, VISUAL BASIC se opreste la versiunea 6, restul fiind pe platforma dotNET Greseala iti apartine ca n-ai specificat de la inceput versiunea pe care o folosesti. http://en.wikipedia....or_Applications http://en.wikipedia....sual_Basic_.NET bullet404, on 04 februarie 2014 - 17:42, said:
sorry for dublepost.. dar rezolvarea vine tot de la mine ! label_vers.Text = 100 For numar = 0 To label_vers.Text.Length Dim nr = label_vers.Text.IndexOf(numar) label_vers.Text = label_vers.Text.Replace(nr, nr & ".") Next label_vers.Text = "v" & label_vers.Text.Remove(5) 'sterge ultimul punct ( era 1.0.0. ) rezultat final: v1.0.0 iti lua cineva capul si te acuza de furt intelectual, Edited by MarianG, 25 February 2014 - 20:10. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users