- Karácsonyfaként világíthat a Thermaltake új CPU-hűtője
- Az USA vizsgálja a RISC-V kínai terjedésének kockázatát
- Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
- Egészen nagy teljesítményspektrumon fedné le a mobil piacot az AMD
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
Hirdetés
-
Saját Redmi Note 13 Pro+ a világbajnok focicsapatnak (és indiai rajongóiknak)
ma Argentína nemzeti válogatottjának mezével díszítik az új Redmi különkiadást.
-
Agyi chipes gyártóba fektetett a kriptocég
it A Tether 200 millió dollárt fektet a Blackrock Neurotech agyi chipes vállalatba.
-
Karácsonyfaként világíthat a Thermaltake új CPU-hűtője
ph Az ASTRIA 600 ARGB ráadásul a hűtési teljesítmény szempontjából sem szégyenkezhet.
Új hozzászólás Aktív témák
-
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''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
-
T_bee
aktív tag
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?''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
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''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
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?
''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
T_bee
aktív tag
valaki?
[Szerkesztve]''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
T_bee
aktív tag
senki?
''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
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''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
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?''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
T_bee
aktív tag
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''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
T_bee
aktív tag
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.''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
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''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
T_bee
aktív tag
hülyeséget kérdeztem?
''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
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''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/
-
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
''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/