Mensajes

Aver que nos estamos yendo de un tema a otro, creo que lo que usa mad en su programa no es ningun sstab, creo que son botones, y esos botones llaman a un groupbox diferente, con tu contenido y todo, cuando llama a uno, se hace visible, a su misma vez otro de hace invisible, asi sucesivamente, todo al estilo del sstab, y tambien conocido como pagecontrol, etc.. si lo que te gusta es el diseño de este, pues ya sabes, cada quien con sus ideas y diseños, pero tendras que curraetelo tu mismo.

saludos...

[Control SSTAB]

pero no me refiero a los controles o mejor dicho bootnes xD eso ya los tengo pido es un SStab como el que tiene el Cactus Joiner ya que el que tiene incorporado el VB6 es una "Basura" en grafico... si alguien seria tan amable de decirme donde descargarlo ya que en google no encuentro! =S

no hay manera de enteder lo tullo men.

Control SSTAB

Aqui podras encontrar muchos controles para vb6 (Descargas directas).

www.GoogleNoMuerde.com

saludos...

[Leer y grabar datos en un archivo INI]

que he tratado de buscar pero nada

hay que buscarce bien la vida, solo con escribir "archivos ini vb6" en google, ya tienes la respuesta.

-------------------------------------------------

Leer y grabar datos en un archivo INI

Ejemplo que utiliza las funciones Api GetPrivateProfileString y WritePrivateProfileString para grabar y leer datos en un archivo de configuración ini

La función que lee es GetPrivateProfileString, la función que graba WritePrivateProfileString.

Las dos poeen casi los mismos parámetros: ( La ruta y nombre del archivo Ini, el nombre de La clave a leer o grabar, el Valor que se va a leer o grabar.)

Nota: La función GetPrivateProfileString, tiene un parámetro adicional ( ByVal lpDefault As String ) para los valores por defecto en caso de que no haya ningún dato que leer.

El siguiente ejemplo lo que hace es leer y almacenar en un archivo Ini ( ubicado en el App.Path del programa y llamado Config.ini), ..el ancho, alto, el Top y el Left del formulario.

En el evento FormLoad, se llama a la función de ajuste llamada Leer_Ini ( Esta función retorna el valor leeido )

Código (vb) [Seleccionar] Expandir

Private Function Leer_Ini(Path_INI As String, Key As String, Default As Variant) As String

..en el evento Unload del formulario se llama a la función Grabar_Ini.

Código (vb) [Seleccionar] Expandir


Private Function Grabar_Ini(Path_INI As String, Key As String, Valor As Variant) As String

En el fichero Ini se almacenarán los datos de esta forma:

Código (vb) [Seleccionar] Expandir

[MiPrograma]
Left=0
Top=0
Width=12165
Height=5000

Nota: Si el archivo ini no existe, la función api WritePrivateProfileString, lo crea automáticamente, o sea que no generará error de Acceso o ruta de archivo inexistente

Código fuente en el formulario

Código (vb) [Seleccionar] Expandir

     Option Explicit 
   
  Const APPLICATION As String = "MiPrograma" 
   
  Dim m_Left As Single 
  Dim m_Top As Single 
  Dim m_Width As Single 
  Dim m_Height As Single 
   
  Dim Path_Archivo_Ini As String 
   
  'Función api que recupera un valor-dato de un archivo Ini 
  Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _ 
      ByVal lpApplicationName As String, _ 
      ByVal lpKeyName As String, _ 
      ByVal lpDefault As String, _ 
      ByVal lpReturnedString As String, _ 
      ByVal nSize As Long, _ 
      ByVal lpFileName As String) As Long 
   
  'Función api que Escribe un valor - dato en un archivo Ini 
  Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _ 
      ByVal lpApplicationName As String, _ 
      ByVal lpKeyName As String, _ 
      ByVal lpString As String, _ 
      ByVal lpFileName As String) As Long 
   
   
  'Lee un dato _ 
  ----------------------------- 
  'Recibe la ruta del archivo, la clave a leer y _ 
   el valor por defecto en caso de que la Key no exista 
  Private Function Leer_Ini(Path_INI As String, Key As String, Default As Variant) As String 
   
  Dim bufer As String * 256 
  Dim Len_Value As Long 
   
          Len_Value = GetPrivateProfileString(APPLICATION, _ 
                                           Key, _ 
                                           Default, _ 
                                           bufer, _ 
                                           Len(bufer), _ 
                                           Path_INI) 
           
          Leer_Ini = Left$(bufer, Len_Value) 
   
  End Function 
   
  'Escribe un dato en el INI _ 
  ----------------------------- 
  'Recibe la ruta del archivo, La clave a escribir y el valor a añadir en dicha clave 
   
  Private Function Grabar_Ini(Path_INI As String, Key As String, Valor As Variant) As String 
   
      WritePrivateProfileString APPLICATION, _ 
                                           Key, _ 
                                           Valor, _ 
                                           Path_INI 
   
  End Function 
   
   
  Private Sub Form_Load() 
       
      'Path del fichero Ini 
      Path_Archivo_Ini = App.Path & "\config.ini" 
       
      ' Lee las Key y  Les envia el valor por defecto por si no existe 
      m_Left = Leer_Ini(Path_Archivo_Ini, "Left", 0) 
      m_Top = Leer_Ini(Path_Archivo_Ini, "Top", 0) 
      m_Width = Leer_Ini(Path_Archivo_Ini, "Width", 5000) 
      m_Height = Leer_Ini(Path_Archivo_Ini, "Height", 5000) 
       
      'Posiciona el formulario con los valores del archivo Ini 
      Move m_Left, m_Top, m_Width, m_Height 
       
  End Sub 
   
  Private Sub Form_Unload(Cancel As Integer) 
       
      'Escribe en el archivo Ini 
       
      'Posición del Form 
      Call Grabar_Ini(Path_Archivo_Ini, "Left", Me.Left) 
      Call Grabar_Ini(Path_Archivo_Ini, "Top", Me.Top) 
       
      'Tamaño del formulario 
      Call Grabar_Ini(Path_Archivo_Ini, "Width", Me.Width) 
      Call Grabar_Ini(Path_Archivo_Ini, "Height", Me.Height) 
       
  End Sub   

Fuente: Leer y grabar datos en un archivo INI

saludos...

[Chamaleon button control]

Chamaleon button control

Este otro ocx es un control Open Source muy similar al LvButtons, pero tiene algunos estilos mas ( Office xp, 3d Hover, Oval Flat y KDE-2) y además incluye el código fuente

Vista previa de algunos estilos y combinaciones posibles :



Descargar solo el control ocx
Descargar el código fuente

www.google.es

saludos...

Men me puedes pasar esa imagen fondo que tienes en tu escritorio de elhacker, esta muy chulo. 

saludos...

Pues yo creo que este tema no vas a ir a ningun lado, porque ha foro libre creo que no se les cambiara el nombre.

saludos...

Creo que la intención original del post no es exactamente cambiar el nombre de foro libre...

Claro, pero eso es lo que quiere alguien, pero para que, si como foro libre esta bien.

saludos...

no veo bien que cierren un hilo solo porque a algun mod no les guste, cuando ni siquiera participa en el, o porque no les gusta a el user que lo abrio, no lo veo bien, esas no son razones, al fin y al cabo es foro libre, donde esta la liberta de expresion, claro todo tiene su limite, pero si alguien tiene algun lio por hay, que no venga ha cobrarlo cerrando un tema que no tiene nada de malo.

ha algunos mod se les sube todo a la cabeza, asi lo digo.

disculpen.

saludos...

Bueno, yo no uso Pascal y nunca lo eh usado, en pascal creo que seria lo mismo que en Delphi, no se, pero en modo consola se puede hacer asi.

Código (delphi) [Seleccionar] Expandir

program ContarCadenas;

{$APPTYPE CONSOLE}

uses
  SysUtils;

//funcion que cuenta los numeros de caracteres de la cadena
function ContarCaracteresCadenas: String;
var
Contar: String;
begin
Contar := 'Numeros de caracteres';
WriteLn ('Los caracteres contados son: ', Length (Contar));
ReadLn;
end;

//iniciamos el programa y llamamos a la funcion
begin
  ContarCaracteresCadenas;
end.

no se, espero que te sirva.

saludos...

Lo mas aconsejable es usar Visual C#, para que otros ??, este es el completo, ya con este lo tienes todo.

saludos...