• Viernes 3 de Mayo de 2024, 02:24

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - nostromo

Páginas: [1] 2 3 ... 6
1
C/C++ / Utilizar Mysql Con C++
« en: Sábado 19 de Agosto de 2006, 22:29 »
Buenas.

Utilizar MySql con C++

En el sitio c.conclse, hay una forma de emplear las api del mysql, la pregunta es la siguiente:

Existe una forma de poder utilizar mysql.dll, si tener instalado el motor mysql????.

Los programa estan destinado a personas que no tienen conocimientos acabados de SO, software, etc. Pedirle que instalen el mysql, que lo arranquen, creo que deben tener instalado el apache, si van a utilizar en la creación de BD tner php, ufffff.

Demasiado, por otro lado, estaba programando con sqlite el ecual es embebido no requiero instalar un servidor de BD solamente la "dll" dentro de la carpeta del ejecutable, esto lo tiene el msyql.

Nos vemos.

2
Java / Llamar A Otros Japplet (formularios)
« en: Domingo 11 de Junio de 2006, 17:16 »
Holas;

Tengo varios JApplet realizados, son formularios de diferentes dimensiones, el asunto es, como se llaman a las diferentes php conteniendo los JApplet???

El llamado seria por ajax, el JApplet se cargan en la mismo php dentro de etiquetas <div>, los JApplet se encuentran dentro de un mismo php, applet.php?tipo=1 por ejemplo...

Dentro de los formularios en java se encuentran los botones para ir a los otros formularios.

Aunque esas llamadas podrian estar dentro del mismo php, pero, no seria la gracia, como es en Java esas llamadas...

Nos vemos.

3
C/C++ / Re: Tomar Valor En Edit
« en: Lunes 17 de Abril de 2006, 21:21 »
Holas;

Solucioné el problema.

Nos vemos.

4
C/C++ / Tomar Valor En Edit
« en: Lunes 17 de Abril de 2006, 05:40 »
Holas;

Pasa lo siguiente, intento tomar un valor de un Edit en Win32, si escribo dentro del Edit (Valor a Escribir 34.5), lo puedo tomar sin ningun problema:

Código: Text
  1. LPTSTR strE = new char[10];
  2.  
  3. GetWindowText(hEdit,strE,10);
  4. valor = atof(strE);
  5. sprintf(sql,&#34;SELECT ITEM FROM valores WHERE COSTO = %f&#34;,valor);
  6.  

o bien por este otro:

Código: Text
  1. LPTSTR strE = new char[10];
  2.  
  3. GetWindowText(hEdit,strE,10);
  4. sprintf(sql,&#34;SELECT ITEM FROM valores WHERE COSTO = %s&#34;,strE);
  5.  


Pero, si introdusco el valor mediante codigo:

Código: Text
  1. SetWindowText(hEdit,&#34;34.5&#34;);
  2.  

El programa se detiene debido a un error, al tratar de tomar el valor del Edit ya asignado.

Programo en Dev-C++ 4.9.9.0. El error es el siguiente:

ModName: msvcrt.dll
ModVer : 7.0.2600.0
Offset: 0000cc6d

Nos vemos.

5
C/C++ / Re: Problemas De Ejecución Programa En C++
« en: Jueves 23 de Febrero de 2006, 21:56 »
Holas:

Pasa que llevo una bitácora de los códigos que ingreso tal día, antes del fallo no habia colocado lo siguiente:

free()

En el evento click del static o bien; WM_LBUTTONDOWN, capturo 4 edit y los coloco en una variable strEsp, etc....:

GetWindowText(Esp,strEsp,10);

Al final de los calculos y el correspodiente resultado libero los string que capturo, el problema era ese, los coloque o los emplee muy mal.

Ahora funciona muy bien y en el administrador de tareas la cantidad de memoria que ocupa esta estable, antes subia de forma alarmante. Hasta que quedaba colgado mi programa.

En cuanto a la depuración no funciona muy bien y por flojera no actualizo a la versión 5 del Dev-C++.

Nos vemos.

6
C/C++ / Problemas De Ejecución Programa En C++
« en: Miércoles 22 de Febrero de 2006, 23:49 »
Holas;

Estoy realizando un programa con Dev-C++ 4.9.9.0, Sistema Operativo XP Profesional.

Hasta el día de ayer no presentaba problema de ejecución, ahora me el siguiente error, y no se, a que se debe:

Código: Text
  1.  
  2. AppName: aserrio.exe   AppVer: 0.0.0.0   ModName: ntdll.dll
  3. ModVer: 5.1.2600.0   Offset: 000036f9
  4.  
  5.  

Tengo una entrada de datos y por radio button se escoje la salida del resultado, el hecho es que el si apreto 5 ó 6 veces en diferentes radioo button el programa deja de responder, a esto en el Administrador de Tareas parte el programa con Uso de Memoria de 1636 KB, cuando selecciono los diferentes Radiobutton sube a unos 1716 KB, pero cuando llega al quinto selección el Uso de Memoria sube repentinamente a unos 2416 KB en este momento deja de funcionar.

Necesito saber que esta pasando, tengo que cambiar el compilador, si quieren ver el listado de argumentos que utilizo no hay problema.

En los radio button tengo procedimientos de ventana, los cuales consisten en fijar el cursor, en los eventos WM_LBUTTONDOWN cambio el cursor a una que simula que aprieta el radiobutton:

Código: Text
  1.  
  2. LRESULT CALLBACK Radio1Proc(HWND rmc,UINT msj, WPARAM wp,LPARAM lp)
  3. {
  4.     switch(msj)
  5.     {
  6.         case WM_SETCURSOR: SetCursor(lcr); return TRUE;
  7.         case WM_LBUTTONDOWN:
  8.             SetCursor(lcra);
  9.             sf(Rad1);//--&#62;function SetFocus()
  10.             marca(Rad1,Rad2,Rad3,Rad4,Rad5);
  11.             ew(VerVol,TRUE);//-&#62;function EnableWindow()
  12.             return TRUE;
  13.         case WM_KEYDOWN:
  14.             if(wp == VK_TAB || wp == 40) sf(Rad2);
  15.             if(wp == 38) sf(Cantidad);
  16.             if(wp == 13) { marca(Rad1,Rad2,Rad3,Rad4,Rad5); ew(VerVol,TRUE); }
  17.             break;
  18.     }
  19.     return CallWindowProc(NRad1Proc,rmc,msj,wp,lp);
  20. }
  21.  
  22.  

En WM_CREATE en el WinProc :

Código: Text
  1.  
  2. Rad1 = CreateWindowEx(0,ctl[3],&#34; m3&#34;,str_rad,20,197,45,15,hwnd,(HMENU)0,inst,NULL);
  3. Rad2 = CreateWindowEx(0,ctl[3],&#34; p3&#34;,str_rad,20,220,41,15,hwnd,(HMENU)0,inst,NULL);
  4. Rad3 = CreateWindowEx(0,ctl[3],&#34; pp&#34;,str_rad,20,245,40,15,hwnd,(HMENU)0,inst,NULL);
  5. Rad4 = CreateWindowEx(0,ctl[3],&#34; P'm&#34;,str_rad,20,270,50,15,hwnd,(HMENU)0,inst,NULL);
  6. Rad5 = CreateWindowEx(0,ctl[3],&#34; P''m&#34;,str_rad,20,295,52,15,hwnd,(HMENU)0,inst,NULL);
  7.  
  8. NRad1Proc = (WNDPROC)SetWindowLong(Rad1,GWL_WNDPROC,(LONG)Radio1Proc);
  9. ProcRadio1 = (FARPROC)GetWindowLong(Rad1,GWL_WNDPROC);
  10.  
  11.  

Si necesitan más datos pidan...

Nos vemos.

7
C/C++ / Background En Ventana
« en: Domingo 19 de Febrero de 2006, 14:54 »
HOlas;

En el cuadrod e diálogo no es complicado cambiar el background, pero como se hace en una ventana en :

int WINAPI WinMain

wincl.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);

wincl.hbrBackground = GetSysColorBrush(COLOR_3DFACE) ;

Como se puede utilizar :

RGB(245,124,129);

nOS VEMOS.

8
C/C++ / Re: Control Button Estilo Bs_groupbox En C++
« en: Domingo 19 de Febrero de 2006, 14:47 »
Holas;

Bien, ya cambie el background de los botones estilos group, radio, etc.

Se trataba de algo que no recordaba, el cambio de color de fondo y texto hay que tratarlos como si fueran etiquetas, así de simple, los cambios se realizan en ; WM_CTLCOLORSTATIC.

Nos vemos.

9
C/C++ / Control Button Estilo Bs_groupbox En C++
« en: Viernes 17 de Febrero de 2006, 03:48 »
Holas;

EStoy programando en WinAPI C++ con Dev-C++, el problema que el boton con estilo; BS_GROUPBOX, no puedo cambiarle el background color.

En WM_CTLCOLORBTN; tengo lo siguiente:

Código: Text
  1.  
  2. case WM_CTLCOLORBTN:
  3.             if((HWND)lParam == lblGrpEscuadra)
  4.             {
  5.                 SetTextColor((HDC)lParam,RGB(0,0,0));
  6.                 SetBkColor((HDC)lParam,RGB(255,255,255));
  7.                 return (LRESULT)hbrush;
  8.             }
  9.             break;
  10.  
  11.  

El programa no es en DialogBox, en WM_CREATE, es el siguiente :

Código: Text
  1.  
  2. static HWND lblGrpEscuadra;
  3. static HBRUSH hbrush;
  4. LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
  5. {
  6.     switch (message)                  /* handle the messages */
  7.     {
  8.         case WM_CREATE:
  9.             //Etiquetas
  10.             lblGrpEscuadra = CreateWindowEx (
  11.                                              0,ctl[3],NULL,
  12.                                              str_grp,5,5,160,180,
  13.                                              hwnd,(HMENU)0,inst,NULL);
  14.  
  15.  

En la ayuda de Win32 que tengo no hace referencia si incide en el hecho que el desarrollo sea en WindowProcedure o en DialogProcedure. acepto sugerencias.

Nos vemos.

10
C/C++ / Color En Controles
« en: Jueves 9 de Febrero de 2006, 00:52 »
Holas;

Estaba programando Cuadros de Diálogos, a los controles Edit y Radio Button,
les cambiaba el background y color de la fuente, ningún problema.

Ahora estaba programando ventanas sin recurrir a recursos, ahora no puedo hacer que se modifique
los colores de los controles, ejemplo;

Código: Text
  1.  
  2. #include &#60;windows.h&#62;
  3.  
  4. /*  Declare Windows procedure  */
  5. LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM);
  6. HINSTANCE inst;
  7. /*-----------------------*/
  8. #define CB_OCULTAR  10
  9. #define RB_RADIO_1  11
  10. #define RB_RADIO_2  12
  11. #define BG_GRUPO    13
  12. #define RB_RADIO_3  14
  13. #define RB_RADIO_4  15
  14.  
  15. //-----
  16. #define EstiloRadios    WS_CHILD | WS_VISIBLE |BS_AUTORADIOBUTTON
  17. #define EstiloGrupos    WS_CHILD | WS_VISIBLE | BS_GROUPBOX | WS_GROUP
  18. #define EstiloEdit      WS_CHILD | WS_VISIBLE | WS_BORDER
  19. /*-----------------------*/
  20. char szClassName[ ] = &#34;Ejemplo Controles&#34;;
  21. //
  22. int WINAPI WinMain (HINSTANCE hThisInstance,
  23.                     HINSTANCE hPrevInstance,
  24.                     LPSTR lpszArgument,
  25.                     int nFunsterStil)
  26.  
  27. {
  28.     HWND hwnd;
  29.     MSG messages;
  30.     WNDCLASSEX wincl;
  31.  
  32.     /* The Window structure */
  33.     wincl.hInstance = hThisInstance;
  34.     wincl.lpszClassName = szClassName;
  35.     wincl.lpfnWndProc = WindowProcedure;
  36.     wincl.style = CS_DBLCLKS;
  37.     wincl.cbSize = sizeof (WNDCLASSEX);
  38.  
  39.     /* Use default icon and mouse-pointer */
  40.     wincl.hIcon = LoadIcon (NULL, IDI_APPLICATION);
  41.     wincl.hIconSm = LoadIcon (NULL, IDI_APPLICATION);
  42.     wincl.hCursor = LoadCursor (NULL, IDC_ARROW);
  43.     wincl.lpszMenuName = NULL;
  44.     wincl.cbClsExtra = 0;
  45.     wincl.cbWndExtra = 0;
  46.     /* Use Windows's default color as the background of the window */
  47.     wincl.hbrBackground = (HBRUSH) (COLOR_BTNFACE+1);//COLOR_BACKGROUND;
  48.     /* Register the window class, and if it fails quit the program */
  49.     if (!RegisterClassEx (&wincl))
  50.         return 0;
  51.     /* */
  52.     hwnd = CreateWindowEx (
  53.            0,
  54.            szClassName,
  55.            &#34;Ejemplos Controles&#34;,
  56.            WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX,
  57.            CW_USEDEFAULT,
  58.            CW_USEDEFAULT,
  59.            544,
  60.            375,
  61.            HWND_DESKTOP,
  62.            NULL,
  63.            hThisInstance,
  64.            NULL
  65.            );
  66. //
  67.     ShowWindow (hwnd, nFunsterStil);
  68. //
  69.     while (GetMessage (&messages, NULL, 0, 0))
  70.     {
  71.         TranslateMessage(&messages);
  72.         DispatchMessage(&messages);
  73.     }
  74.     return messages.wParam;
  75. }
  76.  
  77. LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
  78. {
  79.     static HWND hedit,hboton,hradio_1,hradio_2;
  80.     static HWND hgrupo;
  81.     static HWND hradio_3,hradio_4;
  82.     int optar = 11;
  83.     //--- COLOR BACKGROUND CONTROLES
  84.     static HBRUSH RadioBrush;
  85.     static COLORREF BkRadioColor;
  86.     static COLORREF TextoRadio;
  87.     switch (message)
  88.     {
  89.         case WM_CREATE:
  90.             hedit = CreateWindowEx(
  91.                         0,
  92.                         &#34;edit&#34;,&#34;&#34;,
  93.                         EstiloEdit,
  94.                         10,10,80,20,
  95.                         hwnd,NULL,
  96.                         inst,NULL
  97.                         );
  98.             hboton = CreateWindowEx(
  99.                         0,
  100.                         &#34;button&#34;,&#34;Ocultar&#34;,
  101.                         WS_CHILD | WS_VISIBLE,
  102.                         10,40,60,22,
  103.                         hwnd,(HMENU)CB_OCULTAR,
  104.                         inst,NULL
  105.                         );
  106.             hgrupo = CreateWindowEx(
  107.                         0,
  108.                         &#34;button&#34;,&#34;OPciones&#34;,
  109.                         EstiloGrupos, 15,70,150,80,
  110.                         hwnd,(HMENU)BG_GRUPO,
  111.                         inst,NULL
  112.                         );
  113.             hradio_1 = CreateWindowEx(
  114.                         0,
  115.                         &#34;Button&#34;,&#34;Marcar&#34;,
  116.                         EstiloRadios, 30,88,60,20,
  117.                         hwnd,(HMENU)RB_RADIO_1,
  118.                         inst,NULL
  119.                         );
  120.             hradio_2 = CreateWindowEx(
  121.                         0,
  122.                         &#34;button&#34;,&#34;Marca 2&#34;,
  123.                         EstiloRadios, 30,113,70,20,
  124.                         hwnd,(HMENU)RB_RADIO_2,
  125.                         inst,NULL
  126.                         );
  127.             hgrupo = CreateWindowEx(
  128.                         0,
  129.                         &#34;button&#34;,&#34;Opciones 2&#34;,
  130.                         EstiloGrupos, 15,150,150,80,
  131.                         hwnd,(HMENU)BG_GRUPO,
  132.                         inst,NULL
  133.                         );
  134.             hradio_3 = CreateWindowEx(
  135.                         0,
  136.                         &#34;button&#34;,&#34;Marca 3&#34;,
  137.                         EstiloRadios, 30,175,70,20,
  138.                         hwnd,(HMENU)RB_RADIO_3,
  139.                         inst,NULL
  140.                         );
  141.             hradio_4 = CreateWindowEx(
  142.                         WS_EX_TRANSPARENT,
  143.                         &#34;button&#34;,&#34;Marca 4&#34;,
  144.                         EstiloRadios, 30,192,70,20,
  145.                         hwnd,(HMENU)RB_RADIO_4,
  146.                         inst, NULL
  147.                         );
  148.             //---------
  149.             TextoRadio = RGB(0,0,254);
  150.             BkRadioColor = GetSysColor(COLOR_WINDOW);//RGB(225,225,225) GetSysColor(COLOR_BACKGROUND);
  151.             RadioBrush = CreateSolidBrush(BkRadioColor);
  152.             break;
  153.         case WM_CTLCOLORBTN:
  154.             if((HWND)lParam == (HWND)RB_RADIO_4)
  155.             {
  156.                 SetTextColor((HDC)wParam,TextoRadio);
  157.                 SetBkColor((HDC)wParam,BkRadioColor);
  158.                 return (LONG)RadioBrush;
  159.             }
  160.             break;
  161.         case WM_COMMAND:
  162.             switch(LOWORD(wParam))
  163.             {
  164.                 case CB_OCULTAR:
  165.                     SetWindowText(hedit,&#34;Holas&#34;);
  166.                     break;
  167.                 case RB_RADIO_1:
  168.                     SetWindowText(hedit,&#34;Radio1&#34;);
  169.                     break;
  170.                 case RB_RADIO_2:
  171.                     SetWindowText(hedit,&#34;Radio2&#34;);
  172.                     break;
  173.                 case RB_RADIO_3:
  174.                     SetWindowText(hedit,&#34;Radio3&#34;);
  175.                     ShowWindow(hboton,FALSE);
  176.                     break;
  177.                 case RB_RADIO_4:
  178.                     SetWindowText(hedit,&#34;Radio4&#34;);
  179.                     ShowWindow(hboton,TRUE);
  180.                     break;
  181.             }
  182.             break;
  183.         case WM_DESTROY:
  184.             DeleteObject(RadioBrush);
  185.             PostQuitMessage (0);
  186.             break;
  187.         default:
  188.             return DefWindowProc (hwnd, message, wParam, lParam);
  189.     }
  190.  
  191.     return 0;
  192. }
  193.  
  194.  

Gracias, por cualquier ayuda.

11
JavaScript / Re: Javascript Y Php
« en: Domingo 11 de Diciembre de 2005, 04:52 »
Holas;

Tienes lo siguiente:

<script>
function desNombre()
{
var name =document.formulario.txtAlumno.value;
var hi= "Nombres.php";
}
</script>

Si quieres pasar esta variable al php debes tener esto:

<script>
function desNombre()
{
var name =document.formulario.txtAlumno.value;
var hi= "Nombres.php?alumno=" + name;
open(hi,"_self");
}
</script>

<?
##ahora "matricula"=name es lo que no puedo hacer, para buscar en un ##base de batos
$matricula = $_GET['alumno'];
$sql="SELECT * FROM alumnos WHERE Matricula ='".$matricula."' ";
$resultado=mysql_query($sql);
if($fila=mysql_fetch_array($resultado))
{
echo $fila['Nombre'];
}
?>

Pruebalo.

Nos vemos.

12
JavaScript / Re: ¿como Hago?
« en: Domingo 11 de Diciembre de 2005, 04:43 »
Holas;

Hace bastante tiempo que te conteste....XD

Lo que andas buscando es mediante el uso de asp o php, no existe otra forma.

Nos vemos.

13
C/C++ / Conectar Winapi Con Sqlite
« en: Domingo 11 de Diciembre de 2005, 04:12 »
HOlas;

Me encuentro realizando programas en este lenguaje, el compilador que uso es el Dev-C++ 4.9.9.0.

Los ejemplos que he encontrado en la red son en referencia en modo consola, más, no encuentro ejemplos al usar WINAPI ventanas.

Solamente necesito una ayudita el resto lo realizo por mi mismo.

Gracias.....

14
C/C++ / Re: Manual De Api's
« en: Domingo 11 de Diciembre de 2005, 04:04 »
Holas;

Si quieres referencias a las API de windows busca en este sitio:

http://conclase.net
http://winapi.conclase.net/

Los rincones del API Win32:

http://www.lawebdejm.com/prog/win32/

Si quieres bajarte las referencias del API de windows intenta aquí:

ftp://ftp.cs.virginia.edu/pub/lcc-win32/win32hlp.exe

Nos vemos.

15
C/C++ / Re: Que Lio! Alguien Sabe Pasar Esto De Visual A C++?
« en: Martes 9 de Agosto de 2005, 00:08 »
Holas

Entendí lo siguiente, es como pasar de Visual Basic a C++, es decir, debe tener EditBox, Label, CommandButton, etc, esto pasar a una ventana GUI en C++, en VisualC++ dicen que existe un conversor de aplciaciones en Visual Basic Versión 4, 5 y 6 a VC++, pero hasta ahora no se donde se encuentra ni como utilizarlo.

Yó creo que la pregunta esta por esos lados...

Nos vemos.

16
JavaScript / Re: Problema Con Wscript Desde Javascript (iexplores)
« en: Sábado 26 de Febrero de 2005, 16:44 »
Hola;

Para poder ejecutar el Wscript, necesitas instalar el pack correspondiente en la máquina del cliente.

Es decir, el cliente debe darse el trabajo de bajarlo e instalarlo, esto es mejor en aplicaciones de intranet.

No vemos.

17
PHP / Re: Problema Al Conectar Con Mysql Server 4.1
« en: Lunes 27 de Diciembre de 2004, 03:34 »
Hola;

Porque no instalas el AppServ 2.5.2:


http://www.appservnetwork.com/

http://sourceforge.net/projects/appserv

Nos vemos.

18
PHP / Re: Conectar Php Con Mysql...
« en: Lunes 27 de Diciembre de 2004, 03:26 »
Hola;

Para los nuevos que instalen el AppServer 2.5.2, la siguiente línea no aparece en php.ini en Windows:

extension=php_mysql.dll

Simplemente no viene, y es el error descrito al principio de este post:

Fatal error: Call to undefined function mysql_connect() in C:\Documents and Settings\Mario Martinez\Mis documentos\Eric\Ejercicios Php\conexion.php on line 18

En php.ini, deben colocar lo siguiente:

Donde dice :

;;;;;;;;;;;;;;;;;;;;;;
; Dynamic Extensions ;
;;;;;;;;;;;;;;;;;;;;;;
;
; If you wish to have an extension loaded automatically, use the following
; syntax:
;
;   extension=modulename.extension
;
; For example, on Windows:
;
;   extension=msql.dll
;
; ... or under UNIX:
;
;   extension=msql.so
;
; Note that it should be the name of the module only; no directory information
; needs to go here.  Specify the location of the extension with the
; extension_dir directive above.
;Windows Extensions
;Note that MySQL and ODBC support is now built in, so no dll is needed for it.
;

:
;extension=php_java.dll
;extension=php_ldap.dll
;extension=php_mbstring.dll
extension=php_mysqli.dll
;extension=php_mcrypt.dll
;extension=php_mhash.dll
;extension=php_mime_magic.dll
:
etc...

Debe decir :


;;;;;;;;;;;;;;;;;;;;;;
; Dynamic Extensions ;
;;;;;;;;;;;;;;;;;;;;;;
;
; If you wish to have an extension loaded automatically, use the following
; syntax:
;
;   extension=modulename.extension
;
; For example, on Windows:
;
;   extension=msql.dll
;
; ... or under UNIX:
;
;   extension=msql.so
;
; Note that it should be the name of the module only; no directory information
; needs to go here.  Specify the location of the extension with the
; extension_dir directive above.
;Windows Extensions
;Note that MySQL and ODBC support is now built in, so no dll is needed for it.
;

:
;extension=php_java.dll
;extension=php_ldap.dll
;extension=php_mbstring.dll
extension=php_mysql.dll  <---- Completar línea
extension=php_mysqli.dll
;extension=php_mcrypt.dll
;extension=php_mhash.dll
;extension=php_mime_magic.dll

Nos vemos.

19
Visual Basic 6.0 e inferiores / Re: Exportar A Excel
« en: Lunes 27 de Diciembre de 2004, 03:10 »
Hola;

Mira, este es un ejemplo de lo que realize, nunca he tenido ningún problema ni siquiera bloqueo del excel.

Código: Text
  1.  
  2. Private Sub Command1_Click()
  3.     Dim xlsApp As Variant
  4.     'Dim xlsApp As Excel.Application
  5.     'Set xlsApp = Excel.Application
  6.     Set xlsApp = CreateObject(&#34;Excel.application&#34;)
  7.     With xlsApp 'ApExcel
  8.         .Visible = True
  9.         .Workbooks.Add
  10.         men = &#34;titulo&#34; & vbCrLf & &#34;Estudio de Rendimiento&#34;
  11.         .Cells(1, 1) = Text1.Text
  12.         .Cells(1, 1).Font.Size = 12
  13.         '.Cell(1, 1).Font.FontStyle = &#34;Verdana&#34;
  14.         .Cells(1, 1).Font.Bold = True
  15.         .Range(&#34;A1&#34;).Select
  16.         .Selection.HorizontalAlignment = 3  'Center=3, Left=1 2, Right=4
  17.         .Cells(3, 1) = Text2.Text
  18.         .Cells(3, 1).Font.Size = 10
  19.         .Cells(3, 1).Font.Bold = True
  20.         .Range(&#34;A3&#34;).Select
  21.         .Selection.HorizontalAlignment = 3
  22.         For f = 0 To msflex.Rows - 1
  23.             For h = 0 To msflex.Cols - 1
  24.                 With msflex
  25.                     '.Col = h .Row = f
  26.                     m = .TextMatrix(f, h)
  27.                 End With
  28.                 .Cells(5 + f, 1 + h) = m
  29.             Next h
  30.             b = &#34;A&#34; & 5 + f
  31.             b1 = &#34;D&#34; & 5 + f
  32.             .Range(b & &#34;:&#34; & b1).Borders.Color = RGB(0, 0, 0)
  33.             .Range(b & &#34;:&#34; & b1).Borders.LineStyle = 1  'Hasta el 12
  34.         Next f
  35.         'En negrita titulos de las columnas
  36.             .Range(A & 5 & &#34;:&#34; & D & 5).Select
  37.             .Selection.Font.Bold = True
  38.         'Alinear contenido primera tabla
  39.         For al1 = 0 To msflex.Rows
  40.             b = &#34;A&#34; & 5 + al1
  41.             b1 = &#34;D&#34; & 5 + al1
  42.             '.Range(b & &#34;:&#34; & b1).Borders.Color = RGB(0, 0, 0)
  43.             .Range(b & &#34;:&#34; & b1).Select
  44.             .Selection.HorizontalAlignment = 3
  45.         Next al1
  46.         .Cells(5 + msflex.Rows + 1, 1) = &#34;Continuación Segunda Tabla&#34;
  47.         For n = 0 To msflex1.Rows - 1
  48.             For m = 0 To msflex1.Cols - 1
  49.                 With msflex1
  50.                     '.Col = m .Row = n
  51.                     l = .TextMatrix(n, m)
  52.                 End With
  53.                 .Cells(5 + n + msflex.Rows + 3, 1 + m) = l
  54.             Next m
  55.             b = &#34;A&#34; & 5 + n + msflex.Row + 3 + 1
  56.             b1 = &#34;E&#34; & 5 + n + msflex.Row + 3 + 1
  57.             .Range(b & &#34;:&#34; & b1).Borders.Color = RGB(0, 0, 0)
  58.             .Range(b & &#34;:&#34; & b1).Borders.LineStyle = 1
  59.         Next n
  60.         'En negrita titulos de ls segunda tabla
  61.             .Range(A & 5 + msflex.Row + 4 & &#34;:&#34; & D & 5 + msflex.Row + 4).Select
  62.             .Selection.Font.Bold = True
  63.         'Alinear toda la segunda tabla
  64.         For al = 0 To msflex1.Rows
  65.             b = &#34;A&#34; & 5 + al + msflex.Row + 3
  66.             b1 = &#34;E&#34; & 5 + al + msflex.Row + 3
  67.             .Range(b & &#34;:&#34; & b1).Select
  68.             .Selection.HorizontalAlignment = 3
  69.         Next al
  70.         'Continuación de los textos
  71.         .Cells(5 + msflex1.Row + msflex.Row + 6, 1) = &#34;Resto del texto&#34;
  72.         b = &#34;A&#34; & 5 + msflex1.Row + msflex.Row + 6
  73.         .Range(b).Select
  74.         .Selection.Font.Bold = True
  75.         'Seleccionar última celda
  76.         b = &#34;A&#34; & 5 + msflex1.Row + msflex.Row + 8
  77.         .Range(b).Select
  78.         .Sheets(&#34;Hoja1&#34;).Name = &#34;Inventario&#34;
  79.         'Ver documento antes de imprimir
  80.         If optVista.Value = True Then
  81.             .Worksheets.PrintPreview
  82.         End If
  83.         Set ApExcel = Nothing
  84.     End With
  85. End Sub
  86.  
  87.  

Código: Text
  1.  
  2. Private Sub Form_Unload(Cancel As Integer)
  3.     Set xlsApp = Nothing
  4. End Sub
  5.  
  6.  

Nos vemos.

20
PHP / Re: Subir Varios Archivos Al Servidor
« en: Sábado 11 de Diciembre de 2004, 19:51 »
Hola;

Existen los clientes de FTP los cuales puedes subir varios archivos, hasta carpetas completas de una sola vez.

Por el momento, trabajo con el Cute FTP32, si bien es shareware por 30 días, lo desintalas y listo. Utilizalo en conjunto con el regCleaner, ambos los encuentras en:

http://www.uptodown.com/

Cuando lo instales y abrir, te pide los siguientes datos.

- Etiqueta del sitio : Nombre con que aparece en el Administrador de Sitio

- Dirección del host FTP : Colocas de acuerdo te salga en el sitio que tengas :

ft.hosting_actual.com
nombre_sitio.hosting.com

- Nombre de usuario del sitio FTP : El que te asigna el hosting puede ser:

nombre_sitio@hosting.com
nombre_sitio
etc.....

- Contraseña del sitio FTP : El password que colocas cuando ingresaste.

Al conectar presenta dos pantallas grandes, el del lado Izquierdo, siempre son los archivos de tu PC, y la de la derecha corresponde a los archivos de tu sitio en el hosting.

El traspaso es simplemente, seleccionar los archivos o carpeta a subir y arrastrar soltando en el lado derecho, la transferencia es automática.

Nos vemos.

21
Visual Basic 6.0 e inferiores / Declaraciones Winapi
« en: Jueves 9 de Diciembre de 2004, 05:33 »
Hola;

Les dejo las declaraciones WinAPI para utilizar desde Visual Basic.

WinAPI32 (Guardar Como ...)

Nos vemos.

22
C/C++ / Re: Api De Windows
« en: Jueves 9 de Diciembre de 2004, 05:14 »
Hola;

Siquieres utilizar el WinAPI aquí tienes una buena:

1- http://winapi.conclase.net/

2- El curso :

http://winapi.conclase.net/curso/index.php

Puedes ver la mía que me encuentro construyendo actualmente, la cual consiste en como armar el esqueleto de una aplicación de ventanas, por API y Archivos de Recursos.

http://win32cpp.cjb.net

Nos vemos.

23
JavaScript / Re: Javascript
« en: Jueves 9 de Diciembre de 2004, 05:04 »
Hola;

Simplemente, no se puede.

Para eso utiliza php, asp, en modo localhost, con servidor de apache y el resto como MySql, php.

Tienes una serie de funciones para crear texto, directorias, mover, borrar, etc.

Lo otro sería, copiar del textarea al portapapeles y despues insertar en el notepad cuando lo inicias.

Nos vemos.

24
JavaScript / Re: Impotar Un Javascript
« en: Lunes 22 de Noviembre de 2004, 05:15 »
Hola;

<script language=javascript src=js/hola.js></script>,

y dependiendo de las otras páginas de la web, por psosición relativa con respecto a la carpeta js:

<script language=javascript src=../js/hola.js></script>

<script language=javascript src=../../js/hola.js></script>

Y de forma interna:

<script>
function hola()
{
   // Instrucciones
}
</script>

Nos vemos.

25
HTML / Re: Ventanas Hijas
« en: Lunes 22 de Noviembre de 2004, 04:53 »
Hola;

Primero debes crear una instancia, una variable al crear la ventana hja, por ejemplo:

Código: Text
  1.  
  2. function crear()
  3. {
  4.      win = window.open(&#34;mi_pagina.html&#34;,&#34;&#34;,&#34;width=120,height=120,rezisable=no&#34;);
  5. }
  6.  
  7.  

El parámetro "win", es la instancia donde se queda almacenado la ventana que acabas de crear. Si quieres pasar cualquier valor, lo debes hacer por esa instancia, de la misma forma enviar datos de la hija al padre, mediante la instrucción opener.

Si quieres cerrar la hija, dos formas:

1- Al terminar de pasar datos de la hija al padre, se cierra automáticamente y.

2- Al abrir un vínculo de tu web, agregar una function al evento onclick del enlace y cerrar utilizando el parámetro "win", por ejemplo:

Código: Text
  1.  
  2. function cerrar()
  3. {
  4.    win.window.close();
  5. }
  6.  
  7.  

En el body

Código: Text
  1.  
  2. &#60;input type=button value=Cerrar onclick=cerrar();&#62;
  3.  
  4.  

De la misma forma si quieres recargar:

Código: Text
  1.  
  2. function cerrar()
  3. {
  4.    win.window.reload();
  5. }
  6.  
  7.  

Pero, recuerda, funciona la momento de crear la ventana. Debes barajar como reconocer si esta la ventana, o cerrarla al terminar de ocupar la hija.

Nos vemos.

Páginas: [1] 2 3 ... 6