Temas

Bueno resulta que por algun motivo se me jodio el msi y no he podido arreglarlo. Por eso recurro a ustedes, a ver si alguien me puede dar una mano con eso.

Cosas que intente:

• Restaurar el sistema (No completa la operacion para ningun punto que indique)
• Ingresar a la consola y Tipear:
  

Código (dos) [Seleccionar] Expandir

msiexec.exe /unregister
msiexec /regservice

el ultimo comando me dice "Acceso denegado" en un mensaje (no en el prompt).[/li]

• Reinstalar el msi (Se completo la instalacion pero sigue sin funcionar)
• Reemplazar los archivos del msi por otros
• Limpiar registro y reinstalar el msi
• Instalar versiones viejas para luego actualizarlas

Nota: Al ingresar en 'services.msc, "Windows Installer Service" no aparece.

Si alguien tiene alguna idea de como solucionar esto (sin formatear/reinstalar windows) se lo agraderecia mucho.

Resulta que estaba trabajando con el vs2010 en un proyecto con vb.net, no recuerdo bien que hize, pero ahora cada vez q intento cambiar de linea con el mouse, sale un mensaje con este error "Object reference not set to an instance of an object".
Pense que venia del codigo, pero puedo borrar todo el codigo del formulario que hize y el error sigue saliendo.
¿Alguna idea de cual podria ser el problema?
Gracias de antemano

Solucion: Crear un nuevo formulario y copiar todos los elementos y eventos del anterior al nuevo. Supongo que seria algun error en el diseñador del formulario.

Estoy comenzando a crear un IDE. Y se me ocurrio que seria interesante usar como VS nodos expandibles para funciones, clases, etc. algo asi. Mi pregunta es, por donde empiezo, o sea que controles estan involucrados y alguna guia sobre que buscar (no codigos, si no tips los cuales puedan ser interesantes para leer al respecto). Gracias

Bueno, tengo este C (en realidad es el peón, pero es un metamod de C) y el código i no se traducen en vb.net, alguien me puede ayudar con esto:

Código (c) [Seleccionar] Expandir

GetPointZPos(Float: point_X, Float: point_Y, &Float: point_Z)
{
if(!(-3000.0 < point_X < 3000.0 || -3000.0 < point_Y < 3000.0))
return 0;

static
File: z_Map_File
;
if(!z_Map_File)
{
z_Map_File = fopen("SAfull.hmap", io_read);

if(!z_Map_File)
return 0;
}
new
z_Data[2 char]
;
fseek(z_Map_File, (-6000 * (floatround(point_Y, point_Y <= 0.0 ? floatround_ceil : floatround_floor) - 3000) + floatround(point_X, point_X <= 0.0 ? floatround_ceil : floatround_floor) + 3000) * 2);
fblockread(z_Map_File, z_Data, 2 char);

point_Z = (z_Data[1 / 2] & 0x0000FFFF) * 0.01;
return 1;
}

Código (vbnet) [Seleccionar] Expandir

Public Function GetZFromXY(ByVal X As Single, ByVal Y As Single) As Single
   If Not (-3000.0 < X < 3000.0 Or -3000.0 < Y < 3000.0) Then Return 0.0
   Static Reader As New IO.BinaryReader(New IO.FileStream(My.Application.Info.DirectoryPath & "\SAfull.hmap", IO.FileMode.Open))
   Dim Z(2) As Byte
   Reader.BaseStream.Seek(((-6000 * (Math.Round(Y, If(Y <= 0.0, MidpointRounding.AwayFromZero, MidpointRounding.ToEven)) - 3000) + Math.Round(X, If(X <= 0.0, MidpointRounding.AwayFromZero, MidpointRounding.ToEven)) + 3000)) * 2, IO.SeekOrigin.Begin)
   Reader.Read(Z, 0, 2)
   Reader.Close()
   return ((Z(1 / 2) And &HFFFF) * 0.01)
End Function

codigo actualizado

cuando intento enviar el mail por algun motivo la aplicacion deja de responder.
aqui el codigo:

Código (vbnet) [Seleccionar] Expandir

Try
   Dim client As New SmtpClient("gmail smtp server (el verdadero)", puerto), Message As New MailMessage("XXX", "XXX")
   client.Credentials = New Net.NetworkCredential("XXX", "XXX")
   client.EnableSsl = True
   Message.Subject = "XXX"
   Message.Body = "XXX"
   client.Send(Message)
Catch ex As Exception
   MsgBox(ex.InnerException.ToString)
End Try


SOLUCIONADO

Bueno el titulo dice la mitad. Estoy creando un splash screen y al tratar de hacerlo dinamico me encontre con que se crea por un hilo diferente, por lo que debia realizar los cambios mediante Invoke. Mi problema es que estos cambios se realizan desde funciones declaradas en un Modulo, por lo que no existe Me. Algun reemplazo de Me.invoke desde un modulo? o alguna otra forma de crear un splash screen dinamico?

estuve mirando bastante en google sobre como reproducir archivos de audio con el formato .ogg, luego de buscar bastante encontre esta libreria para .net (uso vb.net). Pero ahora me encuentro con que no se como usarla y no encuentro ningun tutorial, explicacion de las funciones, o algo que me pueda ayudar. Asi que recurro a ustedes aver si alguien sabe como usar esta libreria, o algun otro metodo para poder reproducir .ogg

Bueno estoy usando RegEx.Replace para filtrar todos los caracteres no numericos de un TextBox; esto ya lo logre.
Mi problema surge al querer agregar una exepcion al filtro. yo quiero que en el cuadro se puedan poner numeros (0-9) y tambien el "."(punto).
actualmente el codigo es el siguiente:

Código (vbnet) [Seleccionar] Expandir

TextBox12.Text = Regex.Replace(TextBox12.Text, [!-/:-■], "")
(■ = 254ascii)

beno, despues de intentar reiteradas veces (y fallar la misma cantidad de veces) crear una funcion que ajuste la posicion, fuente y tamaño de los controles, vengo a pedirles ayuda sobre como hacer esto, ya busque bastante en google pero no logre basandome en alguno de los codigos/ideas que encontraba hacer que esta funcion funcione correctamente.

les dejo una imagen de como es el proyecto, para que se den una idea.
gracias.

buen estoy haciendo una aplicacion cliente-servidor, para no dejar todo un poco mas ordenado hice clases para los sockets, pero hay algo que no esta funcionando, xq el cliente dice que esta conectado, y no lo esta. aver si me pueden ayudar y decirme que estoy haciendo mal. gracias


Cliente:

Código (vbnet) [Seleccionar] Expandir

Public Class Connection

    Public Class Client
        Private _Server As String
        Private _Port As Integer
        Private c_Socket As New TcpClient
        Private c_Stream As NetworkStream

#Region "Props"

        Public Property Server() As String
            Get
                Server = _Server
            End Get
            Set(ByVal value As String)
                _Server = value
            End Set
        End Property

        Public Property Port() As Integer
            Get
                Port = _Port
            End Get
            Set(ByVal value As Integer)
                _Port = value
            End Set
        End Property

#End Region

#Region "Eventos"

#Region "Declaracion(delegados)"

        Public Delegate Sub _OnConnect(ByVal server As String, ByVal port As Integer)
        Public Delegate Sub _OnDisconect()
        Public Delegate Sub _OnError(ByVal Info As String)
        Public Delegate Sub _OnSendComplete()

#End Region

#Region "Declaracion(Evento)"

        Public Event OnConnect As _OnConnect
        Public Event OnDisconnect As _OnDisconect
        Public Event OnError As _OnError
        Public Event OnSendComplete As _OnSendComplete

#End Region

#End Region

#Region "Funciones"

        Public Sub Connect(ByVal server As String, ByVal port As Integer)
            _Server = server
            _Port = port
            Connect()
        End Sub

        Public Sub Connect()
            Try
                c_Socket.Connect(_Server, _Port)
                c_Stream = c_Socket.GetStream()
                RaiseEvent OnConnect(_Server, _Port)
            Catch ex As Exception
                RaiseEvent OnError(ex.Message)
            End Try
        End Sub

        Public Sub Disconnect()
            Try
                c_Socket.Close()
                c_Stream.Close()
                RaiseEvent OnDisconnect()
            Catch ex As Exception
                RaiseEvent OnError(ex.Message)
            End Try
        End Sub

        Public Sub Send(ByVal Data As String)
            Try
                Dim Buffer As Byte()
                Buffer = Encoding.ASCII.GetBytes(Data)
                c_Stream.Write(Buffer, 0, Buffer.Length)
                c_Stream.Flush()
                RaiseEvent OnSendComplete()
            Catch ex As Exception
                RaiseEvent OnError(ex.Message)
            End Try
        End Sub

#End Region

    End Class

End Class

Servidor:

Código (vbnet) [Seleccionar] Expandir

Public Class Connection

    Public Class Server

        Private _Port As Integer
        Private s_Listener As TcpListener
        Private s_Socket As Socket
        Private s_Timer As New Timers.Timer(50)
        Private b_Listen As Boolean = False

#Region "Eventos"

#Region "Declaracion(delegados)"

        Public Delegate Sub _OnListening(ByVal port As Integer)
        Public Delegate Sub _OnStop()
        Public Delegate Sub _OnAccept(ByVal server As String)
        Public Delegate Sub _RecievedData(ByVal Data As String, ByVal bytes As Integer)
        Public Delegate Sub _OnError(ByVal Info As String)

#End Region

#Region "Declaracion(Evento)"

        Public Event OnStartListening As _OnListening
        Public Event OnStopListening As _OnStop
        Public Event OnConnectionAccept As _OnAccept
        Public Event OnDataRecieved As _RecievedData
        Public Event OnError As _OnError

#End Region

#End Region

#Region "Props"

        Public Property Port() As Integer
            Get
                Port = _Port
            End Get
            Set(ByVal value As Integer)
                _Port = value
            End Set
        End Property

#End Region

#Region "Funciones"

        Public Sub StartListen(ByVal port As Integer)
            _Port = port
            StartListen()
        End Sub

        Public Sub StartListen()
            Try
                Dim _server As IPAddress = IPAddress.Parse("127.0.0.1")
                s_Listener = New TcpListener(_server, _Port)
                s_Listener.Start()
                b_Listen = True
                AddHandler s_Timer.Elapsed, AddressOf s_Timer_Tick
                RaiseEvent OnStartListening(_Port)
            Catch ex As Exception
                RaiseEvent OnError(ex.Message)
            End Try
        End Sub

        Public Sub StopListen()
            Try
                b_Listen = False
                s_Listener.Stop()
                s_Socket.Close()
                RemoveHandler s_Timer.Elapsed, AddressOf s_Timer_Tick
                RaiseEvent OnStopListening()
            Catch ex As Exception
                RaiseEvent OnError(ex.Message)
            End Try
        End Sub

#End Region

#Region "Internal"

        Private Sub s_Timer_Tick(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
            Dim Data As Byte(), b As Boolean = False
            Data = Nothing
            While b_Listen = True
                s_Socket = s_Listener.AcceptSocket()
                If b = False Then
                    s_Socket.SendTimeout = 100
                    b = True
                End If
                RaiseEvent OnConnectionAccept(s_Socket.RemoteEndPoint.ToString)
                s_Socket.Receive(Data, s_Socket.ReceiveBufferSize, SocketFlags.None)
                RaiseEvent OnDataRecieved(Encoding.ASCII.GetString(Data), Data.Length)
            End While
        End Sub

#End Region

    End Class

End Class

BORRAR

borrar

bueno yo tengo una linea como x ej esta:

Código [Seleccionar] Expandir

native print(const string[]);

las lineas son diferentes pero cumplen ese formato.
( native nombre(parametros); )

ahora yo tengo definido un hashtable para almacenar la funcion y los parametros. para lo q cree este codigo:

Código (vbnet) [Seleccionar] Expandir


If line.IndexOf("native") <> -1 Then
   Main.ListBox1.Items.Add(Mid(line, 8, line.IndexOf("(") - 7))
   funct.Add(Mid(line, 8, line.IndexOf("(") - 7), Mid(line, line.IndexOf("(") + 2, line.IndexOf(";")-(line.IndexOf("(") + 2)))
End If


el problema es q me dice q el largo en el 2º mid debe ser mayor a 1. aun q desconozco xq tengo este problema siendo q todas las lineas terminan en un ";"

gracias.

edit:
las lineas son leidas desde un archivo, pero note q no las lee completas a algunas. ej:
si la linea es algo asi:

Código [Seleccionar] Expandir

native print(const string[]);
o asi:

Código [Seleccionar] Expandir

native GetTickCount();
pero si es asi:

Código [Seleccionar] Expandir

native printf(const format[], {Float,_}:...);
no la lee completa, solo lee una parte (x lo q pude notar lee hasta el primer "[]") y ahi para.

para leer las lineas uso:

Código (vbnet) [Seleccionar] Expandir

FileOpen(FF, i, OpenMode.Input)
While Not EOF(FF)
   Input(FF, line)

bueno mi problema es que estoy tratando de realizar un highlight de determinadas palabras en el richtextbox.
el codigo q cree, funciona, pero solo a medias. dado que por ejemplo si yo tengo q la palabra "#define" debe salir azul, al escribirla, sale azul, pero si yo borro "#" sigue azul. alguna idea de como podria resolver eso? y tambien q titila mientras escribo

aca dejo el codigo:

Código (vbnet) [Seleccionar] Expandir


   Public Sub HighLightText(ByVal Text As RichTextBox)
       Dim oPos As Integer = Text.SelectionStart
       If oPos > 0 Then
           Dim Line As Integer = Text.GetLineFromCharIndex(Text.GetCharIndexFromPosition(Cursor.Position))
           Dim pIni As Integer, pEnd As Integer, pos As Integer, word As String
           pIni = Text.GetFirstCharIndexFromLine(Line)
           pEnd = Text.Lines(Line).Length
           For Each i As String In Words.Keys
               pos = Text.Text.IndexOf(i, pIni, pEnd)
               If ((Char.IsLetter(Chr(pos + 1)) Or Char.IsNumber(Chr(pos + 1))) And Words(i) <> Color.Blue) Or Not Char.IsLetter(Chr(pos + 1)) Then
                   If pos = 0 Then
                       word = i & " "
                   Else
                       word = i
                   End If
                   pos = Text.Text.IndexOf(word, pIni, pEnd)
                   If pos <> -1 Then
                       With Text
                           .SelectionStart = pos
                           .SelectionLength = i.Length
                           If .SelectionColor <> Words(i) Then .SelectionColor = Words(i)
                       End With
                   End If
               End If
           Next
       End If
       Text.SelectionStart = oPos
   End Sub


Nota: la funcion es llamada en el callback TextChanged

bueno vi varias veces q se pueden numerar las lineas (principalmente en programas referidos a la programacion).
bueno como yo estoy intentando hacer un editor de codigo, me gustaria saber como se hace.
algun lugar donde leer sobre esto o ideas. (preferentemente no codigo, solo quiero algo asi como un empujon).

gracias de antemano.

bueno, estoy trabajando en un programa utilizando procesos para crear entre otras cosas el promedio de memoria q consume cada proceso de un PC.
para eso utilizo la api GetProcessMemoryInfo. pero el problema surge al utilizar la misma, ya que necesito el handle del proceso, el cual al intentar obtenerlo retorna "Acceso Denegado".

Alguna idea de como solucionar esto? se q debe ser algo relacionado con los permisos pero no encontre mucho. tal vez xq no se exactamente como se llama esto de la seguridad. si alguien me pudiera guiar sobre que buscar o como solucionarlo le agradeceria mucho.

buen o primero perdon si es una pregunta medio noob pero recien estoy empezando con esto de la programacion web.

tengo un codigo html en el cual estoy trabajando y resulta que mientras lo veo con la vista en vivo con el dreamweaver se ve como yo quiero la web, pero si abro el archivo desde firefox, los botones no respetan las medidas que les asigne previamente. alguien sabe porque puede estar pasando esto?

aca el codigo css que uso para darle formato:

Código (XML) [Seleccionar] Expandir

#main-menu li{
    margin:1px;
    padding:7px;
    font-weight:bold;
    background-image:url(Imagenes/Main%20Menu%20Buton.jpg);
    width:175px;
    height:30px;
    font-size:14px;
    text-align:center;
}

bueno mi problema es el siguiente: "cambie" una ventana a un control panel utilizando la api SetParent.
Luego al intentar enviar un mensaje a la misma ventana utilizando PostMessage, no logro encontrar el handle de la misma.
ya intente utilizar FindWindow, FindWindowEx, el handle del panel, el handle del parent del panel,
el handle que retorna la api SetParent al "cambiar" la ventana. pero ninguno de ellos es el correcto.
Alguien me podria decir de que forma podria encontrar el handle de esta ventana?
gracias CH4øZ

bueno tengo un problema usando FindWindow, ya que al parecer estoy cometiendo algun error que se me pasa por alto.

despues de leer un poco y escribir varias veces el codigo no logro enviar un mensaje a la consola (DOS windows), desde mi programa.

alguien me puede dar una mano por favor?

bueno estuve leyendo sobre como conectar MySQL con .net y termine haciendo esta funcion para conectar mi programa a la Db de MySQL:

Código (vbnet) [Seleccionar] Expandir


    Imports MySql.Data.MySqlClient
    Dim MySQL_Connection As MySqlConnection

    Public Sub MySQL_Connect(ByVal Host As String, ByVal User As String, ByVal Pass As String, ByVal DB As String)
        If Not MySQL_Connection Is Nothing Then MySQL_Connection.Close()
        Dim MySQL_Str As String
        MySQL_Str = String.Format("server={0};user id={1}; password={2}; database=mysql; pooling=false", Host, User, Pass)
        Try
            MySQL_Connection = New MySqlConnection(MySQL_Str)
            MySQL_Connection.Open()
        Catch ex As Exception
            MsgBox(String.Format("Error al conectar con la DB: {0}", ex.Message))
        End Try
    End Sub


el problema con esta funcion, es que no logro que se conecte mi programa con la DB. Salta el siguiente error: "Error al conectar con la DB: Unable to connect to any of the specified MySQLhosts."

alguien tiene alguna idea de como puedo solucionar esto?

bueno de nuevo yo con mis preguntas :p

bueno la pregunta es como puedo con el vb crear o modificar el tamaño de un archivo pero no el original, si no fingir de cierta forma el tamaño del mismo. Digamos hacer que un archivo de 10Mb aparente pesar 500Mb.

bueno si es esto posible me gustaria que alguien me dijera como o alguna pista ya que no logro encontrar nada sobre el tema con mi amigo google :S

bueno estoy pensando en que carrera seguir. Pense en ing. en sistemas, pero a mi lo que realmente me gusta es programar y la seguridad informatica. estuve leyendo pero lo que hay son terciarios o cursos, alguien sabe alguna carrera sobre el tema?? y otra duda, soy de Bs As (Arg) y pense que la mejor universidad de todas las que vi para ir seria la UTN, alguien sabe si hay alguna mejor (relacionada con las carreras de informatica)?

bueno hice una funcion que (segun mi poco conocimiento) deberia buscar y un caracter, y si lo encuentra escribir otro en un richtextbox aparte. El problema es que no funciona y queria saber si alguien me podria explicar que estoy haciendo mal.

Código (vbnet) [Seleccionar] Expandir

    Private Sub Remplazar(ByVal RichTextBox As Object, ByVal Texto As String, ByVal Texto2 As String)

        Dim Pos As Integer

        If Len(Texto) Then
            For Pos = 0 To Pos < Len(RichTextBox1.Text)
                If Chr(Pos) = Texto Then
                    RichTextBox2.Text = RichTextBox2.Text & Texto2
                End If
            Next
        End If
    End Sub

Editado: habia puesto mal el codigo antes ya que habia empezado a intentar ver donde estaba el problema.

hola el otro dia buscando codigos para trabajar con archivos .ini que me pudieran ayudar y servir de guia encontre este, pero hay una cosa que no entendi:

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 


porque en el evento load del form no se llama a la funcion Leer_Ini, mientras que en el evento Unload del form si se lo hace?

gracias

hay alguna manera de hacer el form transparente, pero que a la vez se vea su contenido ???

hola les comento que estoy haciendo un reproductor de audio utilizando Windows Media Player (WMP) ya que me provee de visualizaciones y es mas facil de usar, pero los botones, comandos, etc. los diseño yo y al diseñar la seek bar con un slider no encontre la forma de conectarla al WMP :S
Mi idea era hacer una seek bar como la del reproductor, es decir si uno hace click en X lugar la cancion se adelante hasta el mismo y que avanze a medida q el tema se reproduce, gracias.

hola tengo un problema con este codigo, no logro que cargue el archivo que elijo desde el commondialog
pero no encuentro el porque

Código [Seleccionar] Expandir


Private Sub Image5_Click()

On Error Resume Next
CommonDialog1.Filter = "Archivos MP3 (*.mp3)|*.mp3| Archivos MIDI (*.mid)|*.mid| Archivos de audio de Windows (*.wav)|*.wav"
CommonDialog1.ShowOpen

MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"

Label1.Caption = CommonDialog1.FileTitle

End Sub


hola queria saber si hay alguna manera de guardar un archivo con el guardar
xq ya hice el guardar como, pero no encontre la forma de hacer el guardar solo :S
si alguien me dice como empezar o donde puedo conseguir algo de informacion se lo voy a agradecer

estoy intentando hacer un editor de texto
el problema surge cuando quiero guardar el text como un archivo
ya que si no especifico la extensión cuando ingreso el nombre no me lo guarda

el codigo q tiene es este

Código [Seleccionar] Expandir

On Local Error Resume Nex
    CommonDialog1.CancelError = True
    CommonDialog1.DefaultExt = "*.txt"
    CommonDialog1.Filter = "Documentos de texto (*.txt)"
    CommonDialog1.ShowSave
    Open CommonDialog1.FileName For Output As #1
    Print #1, Text1
    Close

saben por que no me crea el archivo ????

hola mi problema es que no se como hacer que aparescan todas las fuentes en el
combobox sin tener que ingresar una x una con AddItem.
o sea lo que yo quiero es que en el combobox aparescan todas las fuentes de la
computadora.
gracias

Bueno aca les voy a dejar un programa que hice yo
el programa en si es muy simple, lo unico que hace es
devolverles en un recuadro el valor Ascii de la tecla pulsada.
lo hice ver mas facilmente el varor de una tecla

aca les dejo el link de descarga

http://www.megaupload.com/?d=SYBPJPV5

Espero que les sirva

tambien les dejo el codigo fuente x si a alguien le interesa
Codigo fuente del programa:

Form1:

Private Sub Command1_Click()

Form2.Visible = True

End Sub

Private Sub Form_Load()

Me.Caption = "Valor KeyAscii"
Form2.Visible = False
Label1.Caption = "KeyAscii"
Label2.Caption = ""
Label3.Caption = "Tecla"
Text1.Text = ""
Label1.AutoSize = True
Label1.BackStyle = 0
Label2.AutoSize = True
Label2.BackStyle = 0
Label3.AutoSize = True
Label3.BackStyle = 0
Label2.FontSize = 20
Label2.FontBold = True
Label2.Font = Arial
Text1.MaxLength = 1
Command1.Caption = "Ayuda"

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Text1.Text = ""
Label2.Caption = KeyAscii

End Sub

el segundo formulario no lo pongo ya que es la parte de ayuda. no tiene demasiada utilidad.