Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Ori nu stie sa numere, ori nu sti...

Austria - confiscarea masinii pen...

Licenta Windows 10
 TRUMP: Un vis american -2017

Ozempic

Sectii ale politiei chineze in Ro...

Viteza net Wifi de 5 ori mai mica...
 Alegere cablu tv

2l combustibil plafonat in Ungaria?

Recomandare TV Oled-Led

Rabla pentru electrocasnice si pr...
 The SKA Project(Square Kilometre ...

Sfat achiziție bicicleta

Samsung Galaxy Tab S6 - Chrome nu...

Intrebare despre pizza, marime si...
 

Separare numere cu Punct

- - - - -
  • Please log in to reply
8 replies to this topic

#1
bullet404

bullet404

    Junior Member

  • Grup: Members
  • Posts: 47
  • Înscris: 01.07.2013
Deci, se da 1x label, functie label1.text = "101"
cum pot face ca acest label sa afiseze 1.0.1 ?

#2
nexusm

nexusm

    Senior Member

  • Grup: Senior Members
  • Posts: 2,793
  • Înscris: 07.07.2011
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
bullet404

bullet404

    Junior Member

  • Grup: Members
  • Posts: 47
  • Înscris: 01.07.2013
e vorba de visual basic.. codul tau nu e bun.. :(
folosesc visual studio 2013..

#4
paulicaFX

paulicaFX

    Member

  • Grup: Members
  • Posts: 792
  • Înscris: 08.08.2011
incearca String.Split("") dar nu stiu daca va merge

#5
dani.user

dani.user

    Guru Member

  • Grup: Senior Members
  • Posts: 29,263
  • Înscris: 24.02.2007
Label1.Text =  String.Join(".", (From c In Label1.Text).ToArray())



#6
bullet404

bullet404

    Junior Member

  • Grup: Members
  • Posts: 47
  • Înscris: 01.07.2013

View Postdani.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
bullet404

bullet404

    Junior Member

  • Grup: Members
  • Posts: 47
  • Înscris: 01.07.2013
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
dani.user

dani.user

    Guru Member

  • Grup: Senior Members
  • Posts: 29,263
  • Înscris: 24.02.2007
In eroarea postata iti zice clar ce ii lipseste, dar na, mai trec vreo 5 ani pana intelegi ce-i acolo

#9
MarianG

MarianG

    be that as it may

  • Grup: Moderators
  • Posts: 28,252
  • Înscris: 10.08.2005

View Postbullet404, on 24 ianuarie 2014 - 00:49, said:

e vorba de visual basic.. codul tau nu e bun.. Posted Image
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

View Postbullet404, on 04 februarie 2014 - 17:42, said:

sorry for dublepost.. dar rezolvarea vine tot de la mine ! Posted Image



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
Ca daca ai fi mers pana la penultima cifra, asa cum apare in codul postat de @nexusm
iti lua cineva capul si te acuza de furt intelectual,

Edited by MarianG, 25 February 2014 - 20:10.


Anunturi

Second Opinion 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

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate