Sign In
Create Account
Separare numere cu Punct
Last Updated: Feb 25 2014 20:08, Started by
bullet404
, Jan 19 2014 23:34
·
0
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 ? |
Back to top
#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
|
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
|
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
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
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users
-
- Change Theme
- English
- Mark Community Read
- Termene & conditii
- Confidentialitate
- Consimtamant
- Cookies
- Help
© 2001-2023 Softpedia. All rights reserved. Softpedia® and the Softpedia logo are registered trademarks of SoftNews Net SRL.
Ora implicita a Forumului Softpedia este ora standard a Romaniei (GMT+2). Mai multe informatii →
⚠ Postarile afisate pe Forumul Softpedia reprezinta o opinie subiectiva a membrilor care le-au publicat si nu a SoftNews Net SRL.