XProfan

Español

Julian
Schmidt

¡Hola,
Yo sería gerne una Unicode-Signo (U+2192) en un Static ausgeben.
Gibt lo como irgendwelche Möglichkeiten?

LG

Julian57

XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

02.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

- Página 2 -

Julian
Schmidt

Ok, así funzt alles.

Gracias IF. Usted warst me una große Ayuda.

Kompilieren Marca Separación

 $H Messages.ph
CLS
Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&
var id% = 1
Var static&=CreateW("Static","Das es una Static. \nHier debería Unicode-Signo rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hInstance)
Waitinput
SetText static&,chr$($2192)
Externo("USER32","SetWindowTextW",static&,utf("Test ")+chr$($92)+chr$($21)+utf(" Test"))
Waitinput
End

Proc UTF

    parámetros texto$
    declarar b#
    Dim b#,2*len(texto$)+2
    StringW b#,0 = texto$
    texto$ = Char$(b#,0,SizeOf(b#)-2)
    volver texto$

ENDPROC

Proc CreateW

    If %pCount > 10

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&

    Más

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
        Var exstyle& = 0

    EndIf

    Class$ = UTF(Class$)
    Name$ = UTF(Name$)
    Var cs# = New(CREATESTRUCT)

    With cs#

        .lpCreateParams& = SizeOf(cs#)
        .hInstance& = hInst&
        .hMenu& = If(Externo("USER32","IsMenu",id%),id%,0)
        .hwndParent& = pWnd&
        .cy% = dy%
        .cx% = dx%
        .y% = y%
        .x% = x%
        .style& = style&
        .lpszName& = Addr(Name$)
        .lpszClass& = Addr(Class$)
        .dwExStyle& = exstyle&

    EndWith

    Var handle& = Externo("USER32","CreateWindowExW",exstyle&,Addr(Class$),Addr(Name$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
    inc id%

    Caso negativo handle&

        Class$ = WinError$(%WinError)
        MessageBox("Es trat folgender Fehler en:\n\n" + Class$,"F E H L E R !!!",4096)

    EndIf

    Disponer cs#
    Volver handle&

ENDPROC

02.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 1 -

Julian
Schmidt

Anscheinend no...

Kompilieren Marca Separación

CLS
Var class$="Static"
Var title$="Das es una Static. \nHier se nachfolgend una Unicode-Signo rein."
Var static&=Externo("USER32","CreateWindowExA",0,addr(class$),addr(title$),$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hInstance,10000)
'Var static&=External("USER32","CreateWindowExW",0,addr(class$),addr(title$),$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hInstance,10000)
Waitinput
SetText static&,chr$(2192)
Waitinput

02.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jo, son desafortunadamente 1 en lugar de 2 de:

Kompilieren Marca Separación

 {$cleq}
imprimir len(chr$(256))
Waitinput

Dann kannst sí z.B. por:

Kompilieren Marca Separación

SetText static&,chr$(hibyte($2192))+chr$(lobyte($2192))+"\z\z"

Su Signo ansetzen aber irgendwie fehlt me en Deinem Ejemplo una unicode-WndProc como ellos Nico vormacht.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

02.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Hi IF,
Yo habs nun intenta con Nico's CreateW umzusetzen.
Er scheint me nun auch tatsächlich Unicode-Signo auszugeben, allerdings por desgracia, no el Signo el Yo eigentlich haben quería.
Yo habe me mein Signo en el Windows eigenen Zeichentabelle ausgesucht. Pensé links unten sei el Unicode-Valor para encontrar.
Wenn Yo esta Valor en media Prog. einsetzte kommt aber una más Signo heraus.
Posesiones Yo, el no el korrekten Unicode-Valor meines Zeichens, oder arbeitet mein Code no korrekt?

Kompilieren Marca Separación

 $H Messages.ph
CLS
Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&
var id% = 1
Var static&=CreateW("Static","Das es una Static. \nHier debería Unicode-Signo rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hInstance)
Waitinput
SetText static&,chr$($2192)
Waitinput
End

Proc HiByte

    Parámetros word%
    Volver word% >> 8

ENDPROC

Proc LoByte

    Parámetros word%
    Volver word% & $FF

ENDPROC

Proc UTF

    parámetros texto$
    declarar b#
    Dim b#,2*len(texto$)+2
    StringW b#,0 = texto$
    texto$ = Char$(b#,0,SizeOf(b#)-2)
    volver texto$

ENDPROC

Proc CreateW

    If %pCount > 10

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&

    Más

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
        Var exstyle& = 0

    EndIf

    Class$ = UTF(Class$)
    Name$ = UTF(Name$)
    Var cs# = New(CREATESTRUCT)

    With cs#

        .lpCreateParams& = SizeOf(cs#)
        .hInstance& = hInst&
        .hMenu& = If(Externo("USER32","IsMenu",id%),id%,0)
        .hwndParent& = pWnd&
        .cy% = dy%
        .cx% = dx%
        .y% = y%
        .x% = x%
        .style& = style&
        .lpszName& = Addr(Name$)
        .lpszClass& = Addr(Class$)
        .dwExStyle& = exstyle&

    EndWith

    Var handle& = Externo("USER32","CreateWindowExW",exstyle&,Addr(Class$),Addr(Name$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
    inc id%

    Caso negativo handle&

        Class$ = WinError$(%WinError)
        MessageBox("Es trat folgender Fehler en:\n\n" + Class$,"F E H L E R !!!",4096)

    EndIf

    Disponer cs#
    Volver handle&

ENDPROC

arrow.png	39 kB

Hochgeladen:	02.04.2012

Ladeanzahl:
		Descargar

02.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hier mostrar así gehts:

Kompilieren Marca Separación

 $H Messages.ph
CLS
Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&
Var hUser& = ImportDLL("USER32","u_")
var id% = 1
Var static&=CreateW("Static","Das es una Static. \nHier debería Unicode-Signo rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hInstance)
Waitinput
declarar s$
s$=chr$($92)+chr$($21)+"\z\z"
u_SetWindowTextW(static&,addr(s$))
Waitinput
FreeDLL hUser&
End

Proc UTF

    parámetros texto$
    declarar b#
    Dim b#,2*len(texto$)+2
    StringW b#,0 = texto$
    texto$ = Char$(b#,0,SizeOf(b#)-2)
    volver texto$

ENDPROC

Proc CreateW

    If %pCount > 10

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&

    Más

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
        Var exstyle& = 0

    EndIf

    Class$ = UTF(Class$)
    Name$ = UTF(Name$)
    Var cs# = New(CREATESTRUCT)

    With cs#

        .lpCreateParams& = SizeOf(cs#)
        .hInstance& = hInst&
        .hMenu& = if(u_IsMenu(id%),id%,0)
        .hwndParent& = pWnd&
        .cy% = dy%
        .cx% = dx%
        .y% = y%
        .x% = x%
        .style& = style&
        .lpszName& = Addr(Name$)
        .lpszClass& = Addr(Class$)
        .dwExStyle& = exstyle&

    EndWith

    Var handle& = u_CreateWindowExW(exstyle&,Addr(Class$),Addr(Name$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
    inc id%

    Caso negativo handle&

        Class$ = WinError$(%WinError)
        MessageBox("Es trat folgender Fehler en:\n\n" + Class$,"F E H L E R !!!",4096)

    EndIf

    Disponer cs#
    Volver handle&

ENDPROC

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

02.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Und como es, si yo el Signo con otro Cuerdas kombinieren möchte?

Kompilieren Marca Separación

 $H Messages.ph
CLS
Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&
var id% = 1
Var static&=CreateW("Static","Das es una Static. \nHier debería Unicode-Signo rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hInstance)
Waitinput
SetText static&,chr$($2192)
Externo("USER32","SetWindowTextW",static&,"Test/z/z"+chr$($92)+chr$($21))+" \z\zTest"
Waitinput
End

Proc UTF

    parámetros texto$
    declarar b#
    Dim b#,2*len(texto$)+2
    StringW b#,0 = texto$
    texto$ = Char$(b#,0,SizeOf(b#)-2)
    volver texto$

ENDPROC

Proc CreateW

    If %pCount > 10

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&

    Más

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
        Var exstyle& = 0

    EndIf

    Class$ = UTF(Class$)
    Name$ = UTF(Name$)
    Var cs# = New(CREATESTRUCT)

    With cs#

        .lpCreateParams& = SizeOf(cs#)
        .hInstance& = hInst&
        .hMenu& = If(Externo("USER32","IsMenu",id%),id%,0)
        .hwndParent& = pWnd&
        .cy% = dy%
        .cx% = dx%
        .y% = y%
        .x% = x%
        .style& = style&
        .lpszName& = Addr(Name$)
        .lpszClass& = Addr(Class$)
        .dwExStyle& = exstyle&

    EndWith

    Var handle& = Externo("USER32","CreateWindowExW",exstyle&,Addr(Class$),Addr(Name$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
    inc id%

    Caso negativo handle&

        Class$ = WinError$(%WinError)
        MessageBox("Es trat folgender Fehler en:\n\n" + Class$,"F E H L E R !!!",4096)

    EndIf

    Disponer cs#
    Volver handle&

ENDPROC

02.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

Like that?

Kompilieren Marca Separación

Externo("USER32","SetWindowTextW",static&,"T\ze\zs\zt\z\z\z")

Kompilieren Marca Separación

s$=utf("Test")
Externo("USER32","SetWindowTextW",static&,addr(s$))

Signo ha sólo 2 en lugar de 1 Byte y String möchte en lugar de sólo \z (chr(0)) con \z\z DoppelNull "nullterminiert" voluntad.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

02.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Ok, así funzt alles.

Gracias IF. Usted warst me una große Ayuda.

Kompilieren Marca Separación

 $H Messages.ph
CLS
Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&
var id% = 1
Var static&=CreateW("Static","Das es una Static. \nHier debería Unicode-Signo rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hInstance)
Waitinput
SetText static&,chr$($2192)
Externo("USER32","SetWindowTextW",static&,utf("Test ")+chr$($92)+chr$($21)+utf(" Test"))
Waitinput
End

Proc UTF

    parámetros texto$
    declarar b#
    Dim b#,2*len(texto$)+2
    StringW b#,0 = texto$
    texto$ = Char$(b#,0,SizeOf(b#)-2)
    volver texto$

ENDPROC

Proc CreateW

    If %pCount > 10

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&

    Más

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
        Var exstyle& = 0

    EndIf

    Class$ = UTF(Class$)
    Name$ = UTF(Name$)
    Var cs# = New(CREATESTRUCT)

    With cs#

        .lpCreateParams& = SizeOf(cs#)
        .hInstance& = hInst&
        .hMenu& = If(Externo("USER32","IsMenu",id%),id%,0)
        .hwndParent& = pWnd&
        .cy% = dy%
        .cx% = dx%
        .y% = y%
        .x% = x%
        .style& = style&
        .lpszName& = Addr(Name$)
        .lpszClass& = Addr(Class$)
        .dwExStyle& = exstyle&

    EndWith

    Var handle& = Externo("USER32","CreateWindowExW",exstyle&,Addr(Class$),Addr(Name$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
    inc id%

    Caso negativo handle&

        Class$ = WinError$(%WinError)
        MessageBox("Es trat folgender Fehler en:\n\n" + Class$,"F E H L E R !!!",4096)

    EndIf

    Disponer cs#
    Volver handle&

ENDPROC

02.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Julian57 (02.04.12)

Ok, así funzt alles.

Usted bist en efecto una Witzbold: iFs Code kopieren y luego Su Contribución como Solución deklarieren. Es no el feine Forums-Nettiquette...

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

02.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Exactamente genommen Es el Solución Nicos Verdienst -

kann él sí Nicos Contribución ( [...]

) nen Star verpassen. ^.^

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

02.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

funkheld

Usted bist en efecto una Witzbold: iFs Code kopieren y luego Su Contribución como Solución deklarieren. Es no el feine Forums-Nettiquette...

Hmm..., du interpretierst el falso !

Jeder de los Alles de Oben después de Unten ruhig durchliest, versteht el no como Kopie pero como kooperative Zusammenarbeit.....

Was hast du como para Problemas con el guten Zuammenarbeit ?

El Anmache führt sólo dazu el uno seinen Code, el con el Forumhilfe gelöst wurde, hier no más de fertiges gemeinsames Produkt reinstellt.
Resultat es, el el Foro verweist con el Weiterentwicklung de Programmen.

Gruss

04.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Yo podría genausogut sagen,dass el dazu führt, dass niemand mehr Lust ha en solche Beiträge a reagieren:

Como media Si es usted el?
Ejemplo?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

04.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

funkheld

Wenn uno Verbesserungsvorschläge macht, debería una Anderer no dessen Rechte anzweifeln en dadurch una Eigentumständerung hacer zugunsten des Verbesserungsvorschlagenden. Wenn entonces se el Verbesserungsvorschlagenden una Recht para el Programa einräumen.

Como media Si es usted el?
Ejemplo?

Como se uno sonst Fragen ?
El Fragen son kurz, klar y verständlich .

PS: Yo möchte dieses Thema no más vertiefen, pero el Programmlösung oben es wichtiger.

Gracias.

Gruss

04.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

◄