Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Installare i font Visual .NET
Forum - C# / VB.NET - Installare i font Visual .NET - Pagina 2

Pagine: [ 1 2 3 4 ] Precedente | Prossimo
Avatar
giogiogio1213 (Normal User)
Rookie


Messaggi: 39
Iscritto: 06/04/2010

Segnala al moderatore
Postato alle 16:05
Lunedì, 24/05/2010
Per chiarire meglio ciò che mi serve rifaccio la domanda in modo più chiaro.
Qualcuno conosce un modo per installare i font di Windows, senza utilizzare il metodo di copiatura in "Windows/Fonts", visto che non funziona.

PM Quote
Avatar
Ale96 (Member)
Pro


Messaggi: 132
Iscritto: 06/04/2010

Segnala al moderatore
Postato alle 17:00
Lunedì, 24/05/2010
Sei sicuro che dopo aver installato il font si riavvii il programma? perché come ti avevo detto prima bisogna chiudere il programma e riaprirlo, che è ciò che hai fatto per aprire la cartella C:\window\font.
Non basta rendere invisibile il programma all'occhio dell'utente e poi renderlo nuovamente visibile.

PM Quote
Avatar
giogiogio1213 (Normal User)
Rookie


Messaggi: 39
Iscritto: 06/04/2010

Segnala al moderatore
Postato alle 17:40
Lunedì, 24/05/2010
Il programma chiede di essere riaperto, tutte le volte che: la LABEL è diversa dal font installato.


quindi...

Codice sorgente - presumibilmente VB.NET

  1. Label1.Font = New Font("nomefont", 26)
  2.         If Label1.Font.Name = "nomefont" Then
  3.         Else
  4.             MsgBox("Riaprire applicazione")
  5.             NotifyIcon1.Visible = False
  6.             End
  7.         End If


PM Quote
Avatar
giogiogio1213 (Normal User)
Rookie


Messaggi: 39
Iscritto: 06/04/2010

Segnala al moderatore
Postato alle 17:52
Lunedì, 24/05/2010
Ho risolto facendogli aprire la cartella font XD è un modo bruttissimo ma perlomeno funziona, sapete dirmi come chiudere una cartella?

PM Quote
Avatar
walker93 (Member)
Expert


Messaggi: 460
Iscritto: 31/01/2010

Segnala al moderatore
Postato alle 20:03
Martedì, 25/05/2010
scusa se mi intrometto ma tanto vale fare 2 applicazioni...

alla prima fai copiare i font nella cartella di windows e quando ha finito vada a controllare l'esistenza e se esistono gli fai lanciare l'altro programma quello con la label

e alla seconda gli fai fare quello che deve fare visto che hai la label col tuo bellissimo font.

P.S.
puoi lanciarla con: Process.Start("percorso")

Ultima modifica effettuata da walker93 il 25/05/2010 alle 20:06
PM Quote
Avatar
giogiogio1213 (Normal User)
Rookie


Messaggi: 39
Iscritto: 06/04/2010

Segnala al moderatore
Postato alle 20:58
Martedì, 25/05/2010
Io invece pensavo a aprire e chiudere la cartella font, l'utente enache se ne accorge ed è fatta ;).... ora però non so come chiudere la cartella

Come chiudo una cartella?

PM Quote
Avatar
walker93 (Member)
Expert


Messaggi: 460
Iscritto: 31/01/2010

Segnala al moderatore
Postato alle 23:16
Martedì, 25/05/2010
dovresti intercettare la finestra e posizionarti sulla X di chiudi e simulare la pressione del tasto sinistro del mouse...

ti conviene fare come ti ho suggerito...
tanto manco è difficile, praticamente l'hai già fatto, devi dividere il tuo programma in due e nel primo lanciare il secondo con process.start("percorso")

PM Quote
Avatar
salva94 (Normal User)
Rookie


Messaggi: 57
Iscritto: 02/01/2010

Segnala al moderatore
Postato alle 17:33
Mercoledì, 26/05/2010
Testo quotato

Postato originariamente da giogiogio1213:

Io invece pensavo a aprire e chiudere la cartella font, l'utente enache se ne accorge ed è fatta ;).... ora però non so come chiudere la cartella

Come chiudo una cartella?



Utilizzando le api :

Codice sorgente - presumibilmente VB.NET

  1. Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  2.  
  3.     Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
  4.  
  5.     Public Const WM_CLOSE = &H10
  6.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  7.         Dim winHwnd As Long
  8.         Dim RetVal As Long
  9.         winHwnd = FindWindow(vbNullString, "Nomecartella")
  10.  
  11.         If winHwnd <> 0 Then
  12.             RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
  13.             If RetVal = 0 Then
  14.                 MsgBox("Errore nella chiusura.")
  15.             End If
  16.         Else
  17.             MsgBox("Errore.")
  18.         End If



PM Quote
Pagine: [ 1 2 3 4 ] Precedente | Prossimo