• Lunes 12 de Mayo de 2025, 17:17

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 - hitman47

Páginas: 1 2 [3] 4
51
Java / Introducir Jlist
« en: Sábado 2 de Octubre de 2004, 15:22 »
Hola  me pueden ayudar y decirme que sucede con este codigo que no introduce correctamente la JList en el JFrame
import java.awt.*;
//import java.awt.event.*;
import javax.swing.*;

class Proy extends JFrame
{
   String label [] = {"Cranberry", "Orange", //elementos de la lista
    "Banana", "Kiwi", "Blueberry",
    "Pomegranate", "Apple", "Pear",
    "Watermelon", "Raspberry", "Snozberry"};
JLabel eti2;
JTextField texto;
JLabel eti1;
JList list;
//JButton b1;


Proy(){ //constructor
list = new JList(label);
list.setVisibleRowCount(5);//#d objetos visibles en la lista
JScrollPane scroll = new JScrollPane(list);//barra de scroll para la lista
eti2 = new JLabel("LISTADO DE CANCIONES POR COMPOSITOR / INTERPRETE");
texto = new JTextField(10);
eti1 = new JLabel("Compositor/Interprete:");

this.getContentPane().setBackground(new Color(167,180,205));

this.getContentPane().add(eti1);
this.getContentPane().add(texto);
this.getContentPane().add(eti2);
this.getContentPane().add(scroll);
scroll.setBounds(270,170,30,70);
texto.setBounds(170,50,160,30);
eti1.setBounds(20,50,150,30);
eti2.setBounds(120,50,160,30);

} //fin del constructor   
   

public static void main(String args[]){

Proy obj = new Proy();

obj.setTitle("Listado de canciones por Compositor/ Interprete");
obj.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
obj.setBounds(210,100,450,400);
obj.setVisible(true);   
   
}
   
}

SALU2 :(

52
Java / Re: Lectura Desde El Teclado
« en: Viernes 3 de Septiembre de 2004, 06:53 »
Gracias por los codigos
                                               ¡SALU2! :beer:  :good:

53
Java / Re: Tutoriales Manuales
« en: Jueves 26 de Agosto de 2004, 05:22 »
gracias por el enlace  ¡salu2!         :comp:

54
Java / Tutoriales Manuales
« en: Martes 24 de Agosto de 2004, 05:37 »
me podrian enviar algunos links con buenos tutoriales de java para novatos
pero que esten bien completos. sobre como manejar AWT , Swing, entorno grafico. applets etc.

salu2    B)

55
Java / Re: Lectura Desde El Teclado
« en: Martes 24 de Agosto de 2004, 05:32 »
hola quisiera saber como haacen para leer datos desde el teclado
he probado con la instruccion System.in.read() pero no me funciona.
                                                     
                                                         ¡Gracias!   :comp:

56
Visual Basic 6.0 e inferiores / Re: Ventana De Bloqueo
« en: Domingo 7 de Marzo de 2004, 07:16 »
bueno prueba este codigo para ver si te sirve necesitas agregar un timer:

Option Explicit

Dim re As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long


Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
re = SetForegroundWindow(Me.hwnd)
End Sub

  ¡saludos! :D

57
Visual Basic 6.0 e inferiores / Capturar Teclas En Windows
« en: Viernes 5 de Marzo de 2004, 08:31 »
alguien puede decirme que api captura una tecla presionada
 sin que mi programa tenga el focus. por esto no puedo usar
 el evento keypress.
         ¡muchas gracias! y saludos

58
Visual Basic 6.0 e inferiores / Re: Urgente Necesito Ayuda!
« en: Miércoles 3 de Marzo de 2004, 07:48 »
no se si deba darte el codigo me tomo unas horas hacerlo
debe de ser para una tarea pero en fin tu eres el que no incrementa sus habilidades con este codigo puedes hacer tambien el binomio de newton.
salu2

Option Explicit
'autor: hitman47 (diego avila)
Dim e As Integer 'varible exponente
Dim a, c, d, s, r, i 'd=denominador,s=contador
'c=coeficiente,r=numerador

Private Sub Form_Load()
Show
e = Val(InputBox("introduzca el exponente"))
If e > 20 Then MsgBox "mucho": Unload Me
For i = 1 To e 'difrentes filas para los exponentes
 If i = 1 Then
  Print "1"
 Else
  d = 1
  For a = 1 To i + 1 'son el exponente + 1 termino mas si es 6 son 7
  r = numerar(a, i, s, r)
  c = r / d 'n(n-1)/2...
  Print c; 'imprimir en la misma linea
  d = d * a '1*2,2*3,2*3*3...
  s = s + 1
  Next a
  Print
  s = 0
  End If
Next i
End Sub
Function numerar(ByVal a As Integer, ByVal i As Integer, ByVal s As Integer, ByVal r As Integer) As Integer
If a = 2 Then
numerar = i
ElseIf a = 1 Then
numerar = a
ElseIf a > 2 Then
numerar = r * (i - (s - 1)) 'n(n-1);n(n-1)(n-2)
End If
End Function

59
Visual Basic 6.0 e inferiores / Re: Ventana De Bloqueo
« en: Miércoles 3 de Marzo de 2004, 05:25 »
si no me equivoco hay unos api para ganar el foco de windows puedes hacer que tu
programa se ponga activa cada vez que pierde el focus. salu2 :ph34r:

60
Visual Basic 6.0 e inferiores / Re: Ocultar Un Archivo
« en: Domingo 29 de Febrero de 2004, 03:38 »
bueno yo cree un archivo llamado winzip.txt en C: y solo le introduje en el input lo siguiente C:\winzip.txt y lo puso oculto

61
Visual Basic 6.0 e inferiores / Re: Ocultar Un Archivo
« en: Sábado 28 de Febrero de 2004, 06:38 »
hola compa aycul ahora si te entendi es sencillo con el api setfileattributes
dejame darte el codigo:

Option Explicit
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100

Private Sub Form_Load()
Dim nombre$
nombre$ = InputBox("nombre del archivo con su path:")
SetFileAttributes nombre$, FILE_ATTRIBUTE_HIDDEN
End Sub

para saber las propiedades de un archivo solo cambia set por get

Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

62
Visual Basic 6.0 e inferiores / Re: Ocultar Un Archivo
« en: Viernes 27 de Febrero de 2004, 07:08 »
depende si quieres ocultarlo solo dale propiedades y marca oculto.
tambien puedes ocultar archivos por ms-dos. si no es de alguna de estas maneras
explicate mejor   B)

63
Visual Basic 6.0 e inferiores / Ocultar Programa De Windows
« en: Viernes 27 de Febrero de 2004, 06:57 »
como hago para ocultar mi programa de la lista de procesos de windows. si es que
se puede. o tengo que deshabilitar ctrl +alt+supr
                        saludos  :gracias:

64
Visual Basic 6.0 e inferiores / Re: ---------ayuda Con Shell-------------------
« en: Viernes 6 de Febrero de 2004, 05:24 »
no te entendi muy bien pero prueba esto:
Dim SRC as string
SRC = App.Path & "ayuda.htm"
Shell "EXPLORER.EXE SRC", vbMaximizedFocus

                                      !suerte¡

65
Visual Basic 6.0 e inferiores / Re: Averiguar La Ip Del Otro Pc
« en: Lunes 2 de Febrero de 2004, 06:41 »
si la ip de la pc es fija creo que puedes obtenerla mediante el control winsock
y su propiedad localip asi:

Private Sub Form_Load()
MsgBox Winsock1.LocalIP
MsgBox Winsock1.LocalHostName
End Sub

                                                     !suerte¡ :whistling:

66
ejemplo:
RichTextBox1.OLEObjects.Add , , "C:\cero.bmp"

67
la coleccion OLEObjects tiene la lista de los objetos que se encuentran actualmente
en el RTB. como OLEObjects es una coleccion tiene el metodo Add para agregar
objetos y ese es el que se utiliza.
 ejemplo:
RichTextBox1.OLEObjects.Add , , , ?C:\SMILE.GIF?

68
si le has dado copiar a una imagen puede introducirse en el RTB con control + v

69
Visual Basic 6.0 e inferiores / Re: Extension De Tu Exe
« en: Viernes 9 de Enero de 2004, 04:35 »
Gracias Por el codigo Brroz.  :beer:

70
Visual Basic 6.0 e inferiores / Extension De Tu Exe
« en: Miércoles 7 de Enero de 2004, 05:58 »
si alguien me pudise decir como hago para que si un archivo tiene una extension
creada con mi aplicacion al hacer doble click sobre este se carge en mi programa.
y como hago para ponerle el icono de mi programa a los archivos creados por este
o con su extension. por ejemplo como word que los archivos *.doc tienen el icono de word y se abren en word al hacer doble click.
                                   
                                 Salu2 y Gracias! :comp:

71
Visual Basic 6.0 e inferiores / Re: Usar Estilos Xp En Mis Programas Vb6?
« en: Miércoles 7 de Enero de 2004, 05:50 »
hola yo para darle estilo xp a mis programas simplemente lo hago con dos pasos

paso 1:

solo incluye este codigo en tu proyecto

Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long
Private Sub Form_Initialize()
    InitCommonControls
End Sub

paso 2:
necesitas poner un archivo en el mismo path que tu aplicacion, el archivo zip tiene
un archivo llamado YourApp.exe.manifest. solo tines que escribir el nombre de tu archivo exe dode dice YouApp.con eso es suficiente para que trabaje, pero
abre el archivo manifest con el notepad y donde vez "YourCompany.YourProduct.YourApp" reemplazalos por los valores de tu exe. no olvides cambiar a la version
de tu exe

72
Visual Basic 6.0 e inferiores / Re: Conectar A Un Equipo En Otro Dominio
« en: Sábado 3 de Enero de 2004, 05:51 »
hola no entendi muy bien tu problema pero porque no pruebas con el control winsock si tienes acceso fisico a  DCX_SERVER puedes instalarle un programa
que reciba instrucciones de otro programa en tu equipo. asi el programa remoto
saca la informacion del archivo .mdb y se lo manda a tu programa luego este lo recibe y lo copia a un .txt.
  no se si te sirva de algo la idea pero suerte :lightsabre:

73
Visual Basic 6.0 e inferiores / Re: Tratamiento de VIDEO
« en: Sábado 27 de Diciembre de 2003, 06:52 »
creo que debes buscar como inicia un Avi si lo abres con el block de notas o otro
editor de texto puede que veas la escritura que caracteriza a su extension creo que deben tener una parte que finaliza el formato debes identificarlas. espero te sirva de algo. :suerte:

74
Visual Basic 6.0 e inferiores / Re: Alguien Sabe
« en: Jueves 25 de Diciembre de 2003, 06:25 »
hunter el  archivo pesa mas 127 kb esta http://www.lawebdelprogramador.com/codigo/down.php?idp=905 es la direccioion de donde lo baje.

75
Visual Basic 6.0 e inferiores / Re: Alguien Sabe
« en: Miércoles 24 de Diciembre de 2003, 05:48 »
hola Hunter te adjunto un Programa cliente servidor no se si te sirva
pero esta bastante interesante.
                                             Saludos! :suerte:

Páginas: 1 2 [3] 4