Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: PYTANIAAAAAAAAAAAAA!!!!!!!!!
anonim




Typ: Nie zarejestrowany
PYTANIAAAAAAAAAAAAA!!!!!!!!!

Mam takie problemy:

1.Co zrobic zeby formatka odswiezala sie co 5 sekund (Maja takze ma ladowac dane z pliku)?

2.Chcialbym, zeby formatka widniala w dolnej czesci ekranu. Ustawilem ja recznie w VB przez Form Layout. Ale po zmianie rozdzielczosci na mniejsza, formatka przesunela sie na dol i nie bylo jej widac. Poradzicie cos na to? Slyszalem ze mozna cos zrobic ze sreenxi screeny ale nic z tego nie kumam.

Z gory dzieki,
i pozdrowienia dla wszystkich userow forum i programmerow vb.

Marek

10-07-2002 14:53
  
anonim




Typ: Nie zarejestrowany

Jestem poczatkujacy i to bardzo!!!

Co do timera, bo chce zeby za 5 sekund robil cos takiego:
Label1.Visible = True

i znow za 5 sekund to samo.

2)
Me.Left = "-1"
Me.Top = Screen.Height - 1000
cos takiego dalem. Dzieki!

Nie wiesz moze jak schowac start menu?

Dzikuje za odpowiedz.

10-07-2002 22:27
  
anonim




Typ: Nie zarejestrowany

Aaa poradzilem sobie wresczcie, wystarczy dorzucic do kodu timerka to co sie chce (ale odkrycie)!

No ok tylko teraz problem z Menu start...

10-07-2002 22:29
  
pawel
pvsp



Typ: neutral
Postów: 20
Zarejestrowany: Apr 2002

A, nie chce otwierac nowego tematu. Jak zrobic cos takiego, zeby po wlaczeniu programu w polu text bylo od razu wpisane 5 imion ale PIONOWO tz. jedno pod drugim?

12-07-2002 12:33
Pokaż profil pawel  Wyślij email do pawel   Odwiedź stronę pawel  
xeng



Typ: neutral
Postów: 102
Zarejestrowany: May 2002
Hide-Show MenuStart

heh.. Jak jesteś początkujacy nie wiem czy coś zakumasz.W najgorszym razie przeklej cały Kod do formy u siebie.
Zeby nie mącić Ci z modułem damy(w kodzie formy) tak :
To co w nawiasie daj od nowego wiersz w jednej linijce, chyba ze wiesz jak sie dzieli kod jednolinijkowy _
(Private Declare Function FindWindow Lib  "user32"  Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long)
( Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long)
( Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long)
'to byly deklaracje API
'teraz Stałe
Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1
'i zmienne
Dim Q As Long, W As Long
' funkcja howająca przycisk :
Function U_Button()
    Q = FindWindow("Shell_TrayWnd", "" )
    W = FindWindowEx(Q, 0, "Button", vbNullString)
    ShowWindow W, 0
End Function
'funkcja przywracjająca stan sprzed ukrycia:
Function P_Button()
    Q = FindWindow("Shell_TrayWnd", "" )
    W = FindWindowEx(Q, 0, "Button", vbNullString)
    ShowWindow W, 5
End Function
'i teraz np: wklej do formy dwa CommandButton'y
Private Sub Command1_Click()
U_Button
'chowa przycisk
End Sub

Private Sub Command2_Click()
P_Button
'pokazuje przycisk
End Sub

A gdybyś się zarejestrował to bym Ci podesłał sampla a tak to baw się w kopiowanie ..Heh.

[Post edytowany dnia 14-07-2002 02:41 przez xeng]


_____________________________________________
Nic nie umiem i nic nie wiem.Jestem tuman bity w ciemie.


14-07-2002 01:58
Pokaż profil xeng  Wyślij email do xeng   Odwiedź stronę xeng  
xeng



Typ: neutral
Postów: 102
Zarejestrowany: May 2002
5 Imion w Polu textowym

Nic prostszego 
textbox'owi ustawiasz w properties Multiline na True
i w properties rozwijasz sobie własćiwość Text
i wpisujesz ile tam chcesz Imion


_____________________________________________
Nic nie umiem i nic nie wiem.Jestem tuman bity w ciemie.


14-07-2002 02:37
Pokaż profil xeng  Wyślij email do xeng   Odwiedź stronę xeng  
anonim




Typ: Nie zarejestrowany

mozna tez napisac w textboxie "xxxxxxxxx"&chr(13)&"xxxxxxxxxxxxxx"&chr(13)&"xxxxx".... gdzie "xxx" to twoj text , a chr(13) to 'enter'

22-07-2002 12:28
  
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1