holas

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

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

Como ven la tiene que crear...

Con lo cual no le podemos poner haci:

 
    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?

 ....
 
  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:

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
 

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.

 strPrueba=Space(10)
 

strPrueba tendría el valor: "          "

 
54¬u|)()5