Här är en bit av den kod som jag har i modulen.. denna bit efterföljs av identiska, med undantag från olika HTML-taggar... problemet är bara attt när jag stegar genom koden så går den till Select Case KeyAscii, och sedan hoppar den direkt till End Select.. jag vill inte att den ska göra det.. den ska ju kolla om det står <html> och iså fall lägga till </html> när jag trycker på Enter... e det nån som har en aning om varför? Hej Hej jag har provat båda.. det går betydligt snabbare att ladda programet när koden ligger i modulen... Hej tack.. funka nu.. hade desutom glömt att sätta pungt framför de objekt som finns i frm_main.. *pinsamt* men nu funkar det.modul problem.....
<code>
Public Sub SH_KeyPress(KeyAscii As Integer)
With frm_main
Select Case KeyAscii
Case vbKeyReturn
'<HTML>
sText = rtText.Text
lStop = rtText.SelStart
lStart = InStrRev(sText, "<", lStop)
If lStart Then
If lStop > lStart Then
sTag = Mid$(sText, lStart, lStop - lStart + 1)
If StrComp(sTag, "<html>", vbTextCompare) = 0 Then
If InStr(lStop, sText, "</html>", vbTextCompare) = 0 Then
rtText.SelText = vbCrLf & "</" & Mid(sTag, 2, Len(sTag) - 2) & ">"
rtText.SelStart = lStop + 2
KeyAscii = 0
End If
End If
End If
End If
</code>Sv: modul problem.....
Svårt att veta om du inte visar koden, men du måste
göra Suben Public om den ligger i en BasModul.
Varför tror du att det går snabbare där ?
mvh
SvenSv: modul problem.....
Nu framgår det inte om denna kod ligger i en BasModul
Men om den gör det så går det inte.
Du kan inte ha en Public Sub SH_KeyPress(KeyAscii As Integer)
i en BasModul. KeyAscii As Integer tillhör Objektet TextBox
som bara kan ligga i ett formulär.
mvh
SvenSv: modul problem.....
<code>
Private Sub rtText_KeyPress(KeyAscii As Integer)
On Error Resume Next
If bolSH = True Then
Call SH_KeyPress(KeyAscii)
End If
End Sub
</code>
så här ser suben i formuläret ut.. det e den som ropar på suben i modulen.. men det funkar inte...Sv: modul problem.....
Okidoki det ser Ok ut Men ändra KeyPress och KeyAscii till något annat
Förslag:
Call SH_Tangent(KeyAscii) 'Här skall det vara KeyAscii
Public Sub SH_Tangent(ByVal KAscii As Integer)
ändra till KAscii på alla ställe i Suben
>With frm_main
se konstigt ut när använder du det,längre ner kanske ?
tror
SvenSv: modul problem.....