Ocultar Icono

[rulsanchez]

Hola a tod@s. Alguien sabe como quitar el icono de visual en el caption del formulario?? me refiero a hacerlo sin quitar la propiedad controlbox. Quiero que salga con el boton cerrar, el titulo y sin ningun icono...alguien sabe ?

[pkj]

El mejor modo es, como tu dices, poner a False la propiedad ControlBox.

No obstante, si quieres que siga apareciendo el menú que aparece cuando pinchas sobre el icono, pero que no se vea ningún icono, puedes crearte un icono transparente para cargar como icono del form. Así seguirá quedando el hueco del icono y si pinchas sobre él aparecerá el menú.

Yo creé un icono transparente para uno de mis programas. Si tienes problemas lo puedo subir a megaupload para que te lo descargues.

Saludos

[rulsanchez]

Muchas gracias pkj, aunque no hizo falta, mis formularios solo tienen boton de cerrar (x) asi que lo logré poniendo la propiedad Borderstyle a 3 y icon=Ninguno.
Para otros programas tendre en cuenta lo del icono transparente ;).
Saludos y gracias por tu tiempo.

[pkj]

De todas formas como me aburría he creado una sub para hacer iconos transparentes para quien la quiera

Crea un Form con un TextBox y un CommandButton y pega este código en él:

Código Crear icono transparente:

Option Explicit
 
Private Sub Form_Load()
  If Right$(App.Path, 1) = "\" Then
    Text1.Text = App.Path & "IconoTransp.ico"
  Else
    Text1.Text = App.Path & "\IconoTransp.ico"
  End If
End Sub
 
Private Sub Command1_Click()
  CreaIcono Text1.Text
End Sub
 
Private Sub CreaIcono(ByVal NombreFichero As String)
 
  Dim F As Long
  Dim NumFichero As Integer
  Dim Cadena As String
  Dim ValorTXT As String
  Dim Contador As Long
  
  On Local Error GoTo ErrorGuardar
  Cadena = "0,0,1,0,1,0,32,32,16,0,0,0,0,0,232,2,0,0,22,0,0,0,40,0,0,0,32,0,0,0,64,0,0,0,1,0,4,0,0,0,0,0,0,0,0,0"
  Cadena = Cadena & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,128,0,0,0,128,128,0,128,0,0,0,128,0,128,0,128,"
  Cadena = Cadena & "128,0,0,192,192,192,0,128,128,128,0,0,0,255,0,0,255,0,0,0,255,255,0,255,0,0,0,255,0,255,0,255,255,0,0"
  Cadena = Cadena & ",255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
  Cadena = Cadena & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
  Cadena = Cadena & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
  Cadena = Cadena & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
  Cadena = Cadena & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
  Cadena = Cadena & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
  Cadena = Cadena & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
  Cadena = Cadena & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
  Cadena = Cadena & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
  Cadena = Cadena & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
  Cadena = Cadena & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,"
  Cadena = Cadena & "255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,"
  Cadena = Cadena & "255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,"
  Cadena = Cadena & "255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,"
  Cadena = Cadena & "255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,"
  Cadena = Cadena & "255,255,255,255,255,255,255,255,255,255,255,255,255"
 
  NombreFichero = Text1.Text ' "c:\IconoTransp.ico"
  NumFichero = FreeFile
  
  Open NombreFichero For Binary Access Read Write Lock Read Write As #NumFichero
  For F = 1 To Len(Cadena)
    If Mid$(Cadena, F, 1) <> "," Then
      ValorTXT = ValorTXT & Mid$(Cadena, F, 1)
    Else
      Contador = Contador + 1
      Put #NumFichero, Contador, CByte(Val(ValorTXT))
      ValorTXT = ""
    End If
  Next F
  If ValorTXT <> "" Then
    Contador = Contador + 1
    Put #NumFichero, Contador, CByte(Val(ValorTXT))
    ValorTXT = ""
  End If
  On Local Error GoTo 0
  
ErrorGuardar:
  If Err.Number <> 0 Then MsgBox Err.Description
  Err.Clear
  On Local Error Resume Next
  Close #NumFichero
 
  MsgBox "Trabajo Finalizado"
  On Local Error GoTo 0
 
End Sub
 

Al pinchar en el botón se creará un fichero .ICO transparente donde marque el TextBox.

Un saludo

[rulsanchez]

Muchisimas gracias, tomo nota para otra vez ;)