Mensajes

holas

Estaba bien do como usar direct x en VB y me encontré con que carga las testuras desde un archivo.

Código (vb) [Seleccionar] Expandir


 
    D3DDevice.SetTexture 0, D3DX.CreateTextureFromFile(D3DDevice,"C:\a.bmp")
 


Como ven la tiene que crear...

Con lo cual no le podemos poner haci:

Código (vb) [Seleccionar] Expandir


 
    D3DDevice.SetTexture 0, Picture1.Image
 


Porque nos tiraría error (No Coinciden Los Tipos)

Si alguien sabe como cargar la textura Directamente desde el  Picture y me puede ayudar le estaría muy agradecido.

54¬ui)()5

mm

Perdón por explicarme mal con constantes me refería a los valores de las mimas, no a los nombres.

holas cark

Lo de las constantes no hay mucho que aclarar. Son valores que se les pasa a  una función(api) para que actué de tal manera. Estos valores están predeterminados y no se llevan con ninguna lógica. Erecto cunado le pasa el KeyCode de una letra que se suelen utilizar constantes y esas cosas.

Y lo de 'como se enteran la apis'.

A que te referís como las llamamos. Si es eso primero tienes que declararla con todo lo que puedas llegar a necesitar, (tipos, constantes), y luego la llamas como a una función común de vb.

O lo que aqueres es una guía para ver las que podes llegar a precisar. Si es esto te aconsejo el ApiGuide.

oks

xkiz:

muy bueno el ej...

holas

coco:
jej no es por nada pero el code que pusistes no se parece al que puse yo?

Código (vb) [Seleccionar] Expandir


....

  If InStr(LCase(strBuf), "<font") > 0 Then

  strBuf = Mid(strBuf, InStr(LCase(strBuf), "<font"))

  If InStr(LCase(strBuf), ">") > 0 Then

   Dim inta As Integer: inta = InStr(LCase(strBuf), ">")

   If InStr(LCase(strBuf), "</font") > 0 Then

    Dim intb As Integer

    intb = InStr(LCase(strBuf), "</font") - inta
    PlusArray strText, Mid(strBuf, inta + 1, intb - 1)

      ...


y lo qpusistes:

Código (vb) [Seleccionar] Expandir


Public Function TextInBetwinE(ByVal sData As String, ByVal sStart As String, ByVal sEnd As String) As String
    If InStr(sData, sStart) > 0 Then
        sData = Mid(sData, InStr(sData, sStart) + Len(sStart))
        TextInBetwinE = Mid(sData, 1, InStr(sData, sEnd) - 1)
    End If
End Function


Código (vb) [Seleccionar] Expandir


Dim strRet As String
strRet = TextInBetwinE("<font color=""#DD6600"">blablabla</font>", "<font ", "</font>")

If Left(strRet, 1) = ">" Then
strRet = Right(strRet, Len(strRet) -1)
Else
strRet = Right(strRet, Len(strRet) - InStr(strRet, ">"))
End If


jej.. holas

  Parece muy bueno.
  Probé asíéndolo desde el teclado en mi WinXP SP3 y nada.
  ya te digo si me funciona el code...

<----------------------->
           nada...

jej..holas

  Explicitame lo de ''un parser, a lo xml o algo asi!''

  y si no se optiene el mismo resultado,.. no me cirbe.

holas

Acabo de iniciarme en PHP y me estan faltando las funciones bases.

Si alguien puede poner aki un link a una lista de funciones o postear les agradecería mucho0.

  Con funciones me refiero a las equivalencias de en VB:

    LCase
    UCase
    Trim
    InStr
    Split
    Replce

Salud2ss

<--------------------------------------------------------------->

   Gracisa ->  дٳŦ٭

holas

A la primera ni idea por lo que también soy principiante, pero lo de 'cmdow @ /HID' por lo menos en mi pc no hizo nada.


54¬u|)()5

holas

Ya que estamos

La única función que usaría yo, space.

Y tu teoría funciona bien con palabras con caracteres pares. Si tratas con '123',  el resultado de los espacios es 14 osea 14*2=28  y 3 de la cadena nos queda 31. y en otros casos puede llegar a quedarte 29.

Otro detalle a destacar que cada carácter ocupa un espacio determinado y eso puede cagarte algo. Hay una fuente que todos sus caracteres ocupan lo mismo pero no me la acuerdop.


La funcion Space devuelve espacios, su cantidad es dada por su argumento.

Código (vb) [Seleccionar] Expandir


strPrueba=Space(10)


strPrueba tendría el valor: "          "


54¬u|)()5