Keresés: - Visual Basic - PROHARDVER! Hozzászólások

Hirdetés

Legfrissebb anyagok

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Új hozzászólás Aktív témák

#2460 T_bee aktív tag mariann71 #2456

Új Válasz 2014-06-17 23:37:59 #2460
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

válasz mariann71 #2456 üzenetére

Szia,
Nézd meg ezt a kódot, szerintem azt csinálja, ami neked kell:
Sub transzponal() Dim inp, res As Variant Dim r As Range Dim n As Integer inp = Range(Cells(1, 1), Cells(22, 1)) 'itt olvassa be a program az induló adatokat n = Int(UBound(inp) / 5) 'itt nézi meg, hogy hány sor lesz az új tömb If UBound(inp) Mod 5 <> 0 Then n = n + 1 ReDim res(1 To n, 1 To 5) For i = 1 To n For j = 1 To 5 If (i - 1) * 5 + j > UBound(inp) Then Exit For res(i, j) = inp((i - 1) * 5 + j, 1) Next j Next i Set r = Range(Cells(1, 2), Cells(n, 6)) 'itt lehet megadni hogy hova outputolja az eredményt r = res End Sub
Üdv
T_bee
#220 T_bee aktív tag Victorius #217

Új Válasz 2005-05-10 20:21:42 #220
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

válasz Victorius #217 üzenetére

köszi, erre volt szükségem
#216 T_bee aktív tag

Új Válasz 2005-05-09 21:05:21 #216
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

Hali
Az lenne a kérdésem. hogyan lehet VB-ben egy szöveges változóban tárolt számot áttenni számváltozóba úgy, hogy ha a szöveges változóban nem szám van, akkor ne fagyjon meg a progi, hanem mondjuk egy harmadik változóba eltárolja hogy a szöveges változó hanyadik karaktere nem számjegy
remélem érthető voltam, köszi a választ
T_bee
#81 T_bee aktív tag

Új Válasz 2004-11-19 19:22:27 #81
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

hülyeséget kérdeztem?
#80 T_bee aktív tag

Új Válasz 2004-11-18 20:03:59 #80
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

Hello

lenne pár kérdésem:
1. ha csinálok valami dhtml oldalt VBvel akkor azt ki lehet menteni index.html nek?
ha igen hogy?
2. meg lehet-e csinálni olyat, hogy vannak regisztrált felhasználók, és ők a saját jelszavukkal tudnak csak bejelentkezni? tehát el lehet-e menteni a felhasználó-jelszó tömböt valami külső fájlba, amiben később tudok keresgélni?

köszi
#61 T_bee aktív tag T_bee #60

Új Válasz 2004-06-12 18:59:29 #61
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

válasz T_bee #60 üzenetére

hoppá... most olvasom és rájöttem hogy ez nem a kivonnó eljárás...

Private Sub Command4_Click()

If List1.Text <> '''' Then
If mag >= 10 And szele >= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 1)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
ElseIf mag >= 10 And szele <= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 2)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
ElseIf mag <= 10 And szele >= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x''))
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
End If
Else
d = MsgBox(''Nincs kijelölt adat!'', vbInformation, ''Hiba'')
End If

End Sub

na ez lenne az, ha valaki rájön hogy mi benne a hiba annak megköszönném.
#60 T_bee aktív tag blemidon #58

Új Válasz 2004-06-12 13:13:35 #60
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

válasz blemidon #58 üzenetére

köszi...

megin nem akar menni a kivonás a listából, de rájöttem hogy a számok hosszával van kapcsolatban a probléma. valakinek ötlete hogy lehetne megoldani? jelenleg így néz ki a programsor: Private Sub szamit_Click()
'Számítás
Dim p900 As Double
If ossz <> 0 And tabhosssz <> 0 And tabbszel <> 0 And tabch = False And tebch = False Then
table = tabhossz * tabszel
tabter.Text = table
szam = ossz / table
proba = Int(szam)
p900 = szam - proba
If p900 = 0 Then tabszam.Text = szam
If p900 <> 0 Then tabszam.Text = proba + 1

Else
Dim c As Integer
c = MsgBox(''Add meg az adatokat'', vbInformation, ''Hiba'')
End If
End Sub

köszi
#57 T_bee aktív tag

Új Válasz 2004-06-11 11:56:55 #57
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

Na, sekerült az előző problémát is megoldani, úgyhogy most jöhet a következő:
van-e a VBben olyasmi parancs mint mondjuk a htmlben a mailto: parancs? tehát lehetr-e emailprogram emailüldő ablakát behívni adott címzéssel?
#56 T_bee aktív tag

Új Válasz 2004-06-10 08:37:28 #56
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

Hi

szerintetek mi a hibaa ebben a kódban?

Private Sub vesz_Click()
If List1.Text <> '''' Then
s1 = Left(List1.Text, InStr(List1.Text, ''*'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''*'') - 1)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
index = index - listitem
ered.Text = index
i = i - 1
Else
d = MsgBox(''Nincs adat!'', vbInformation, ''Hiba'')
End If
End Sub

mer csak a list1.list utolsó elemét vonja ki rendesen

köszi
#51 T_bee aktív tag

Új Válasz 2004-06-09 16:52:00 #51
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

senki?
#50 T_bee aktív tag

Új Válasz 2004-06-09 10:16:23 #50
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

valaki?

[Szerkesztve]
#49 T_bee aktív tag

Új Válasz 2004-06-08 20:13:33 #49
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

meg még 1 kérdés: Linuxok alatt működik a microsoft visual studio 6, meg a VB?
#48 T_bee aktív tag

Új Válasz 2004-06-08 18:43:29 #48
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

hi

mi a hiba atz alábbi kóddal? mer nekem sajna nem fogadja el

pivate sub command1_click

dim szam as string
dim i as byte
i=i+1
list1.additem szam,i

end sub

na ez nem akar mennni, és nagyon zavar, hogy nem tudok az elemeknek külön indexet adni

köszi
#46 T_bee aktív tag blemidon #45

Új Válasz 2004-06-03 19:07:32 #46
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

válasz blemidon #45 üzenetére

köszi, de ez csak az utolsó beírás értékének törlésére jó jó
olyan kéne, hogy az éppen kiválaszott elemének az értékét lehessen törölni
#44 T_bee aktív tag T_bee #43

Új Válasz 2004-06-03 11:23:41 #44
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

válasz T_bee #43 üzenetére

na. már rájöttem erre is
DE.
van egy progi, ami bekér két számot text1 és text2 vezérlőben, a és b változóba.

Private Sub Command1_Click()
If i = False And j = False Then
c = a
c = c + ''*''
c = c + b
o = a * b
index = a * b
List1.AddItem = c
q = q + o
Text3.Text = q
End If
End Sub

és ha a lista egyik elemét törlöm akkor hogy lehet annak az értékét( tehát az elem c változójának értékét) törölni egy másik Q változóból?
#43 T_bee aktív tag blemidon #42

Új Válasz 2004-06-03 10:42:29 #43
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

válasz blemidon #42 üzenetére

ok.
tehát a list1.list listán vannak elemek: a 120 indexxel, b 240 indexxel. el szeretném távolítani a elemet a listáról. ezt hogy lehet?
#40 T_bee aktív tag Sopi #39

Új Válasz 2004-06-02 21:08:51 #40
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

válasz Sopi #39 üzenetére

tudod... A jó űttörő ott segít ahol tud
na nekem is van kérdésem, hogy lehet a listáról kiválasztott elemeket törölni?
meg hogy lehet a listán a beírásokhoz tartozó indexeket összeadni?
#38 T_bee aktív tag Sopi #36

Új Válasz 2004-06-02 20:39:01 #38
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

válasz Sopi #36 üzenetére

asszem
private sub taska.click (index as integer)
if case index
case 0 then
.
.
.
case 1 then
.
.
.
end selectt
#31 T_bee aktív tag

Új Válasz 2004-05-17 20:19:26 #31
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

hi

az lenne a kérdésem, VB6ban hogyan lehet a list vezérlőnek különböző elemeket értéknek megadni, meg hogy hogy lehet az egyes elemekre való kattintást érzékelni

kösz

T_bee