[Risolto] Ridimensionare icone di un Button

[kicco]

 
Sto giocando con i componenti di un Form che voglio si ridimensionino cambiando le dimensioni del Form stesso.
L'unica cosa che non sono riuscito a ridimensionare è, appunto, l'icona del pulsante Button.
Allego il semplice codice.
Qualcuno ha da suggerirmi una possibile soluzione?
 

[Gianluigi]

Purtroppo oggi non ho tempo, ma vorrei ricordarti la classe Image con la possibilità di ridimensionare.
Si può passare da Picture a Image ridimensionare e poi nuovamente Picture, ma non so se può funzionare.

Scusa 

 

[vuott]

Codice: [Seleziona]

....aaa" & Chr(10) & "Bbb...

Questa finezza mi piace.

L'unica cosa che non sono riuscito a ridimensionare è, appunto, l'icona del pulsante Button.

Ma come no ?   

C'è un apposito Metodo della Classe "Image" per gestire il ridimensionamento.
Riprendo il tuo esempio:

Codice: [Seleziona]

Private ico As Picture = Stock["16/warning"]


Public Sub Form_Open()
  
  TextArea1.text = "Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" & Chr(10) & "Bbbbbbbbbbbbbbbbbbbbbbbbbb"
  
  Button1.Picture = ico
  
End

Public Sub Form_Resize()
  
  With Button1
    .Font.size = Me.w / 45
    .X = Me.w / 1.5
    .Y = Me.H / 1.1
    .w = Me.W / 6
    .H = Me.H / 18
    .Picture = ico.Image.Stretch(Me.w / 35, Me.H / 35).Picture
  End With
  
  With TextArea1
    
    .Font.size = Me.w / 35
    .X = Me.w / 30
    .Y = Me.H / 30
    .w = Me.W / 1.2
    .H = Me.H / 1.2
  End With
  
End

Public Sub Button1_Click()
  
  TextArea1.text = Null
  
End

[Gianluigi]

Vuott è più lesto di Flash 

Nel tempo che io scrivevo lui ha trovato la soluzione 

Ciao grande!

 

[kicco]

Vuott è più lesto di Flash 
Nel tempo che io scrivevo lui ha trovato la soluzione 

Confesso che pagherei per vedere in pratica come fa, come si muove...

....aaa" & Chr(10) & "Bbb...

Questa finezza mi piace.

Un giorno, se ne avrai voglia, mi spiegherai perchè! 

Per la soluzione mi tirerei un colpo in testa perchè è la dimostrazione che devo aprire sempre più la mia zucca.
Gli schemi e l'abitudine mi fregano sempre....
Come sempre , "dopo" è sempre tutto ovvio!

Grazie Vuott (come sempre)! 
 

[vuott]

Confesso che pagherei per vedere in pratica come fa, come si muove...

E' evidente che pregate poco San Midi !
Non vi fate da lui ispirare !

....aaa" & Chr(10) & "Bbb...

Questa finezza mi piace.

Un giorno, se ne avrai voglia, mi spiegherai perchè!

Perché tutti avrebbero pensato a questa soluzione (ugualmente valida, ma troppo ovvia):

Codice: [Seleziona]

...aaa\nBbb...

Per la soluzione mi tirerei un colpo in testa perchè è la dimostrazione che devo aprire sempre più la mia zucca.

Bravo.

Gli schemi e l'abitudine mi fregano sempre....

Appunto !   

[kicco]