pinazzo, una cosa non capisco. se tu hai fatto una procedura di quel tipo, dovresti avere conoscenza tali che ti permettano *molto* facilmente (è solo una questione di rottura di scatole) di fare quello che chiedi...
mica per offendere, eh, ma per capire come ti si può aiutare
no vedi fa tutto il programma e il mio capo adesso vuole mettere sto codice e io non so da che parte iniziare.... un codice che usano è tipo questo ma non ci capisco niente.....
Private Sub Aggiorna_variabile(ByVal strNamePoint As String, ByVal strNameVariable As String)
On Error GoTo cheerr
Dim OggTesto As GefObject
Dim OggScreen As GefObject
Dim OggTextFormat As GefTextFormat
Dim trigger As New Point
Dim scr As GefScreen
Dim VarsScreen As GefObjectVariables
Dim VarTesto As GefObjectVariable
trigger.Id = strNamePoint
trigger.Get
Set scr = CimGetScreen
Set OggScreen = scr.Object
Set VarsScreen = OggScreen.Variables
Set VarTesto = VarsScreen.Item(strNameVariable)
VarTesto.Value = strNamePoint
'Refresh dello screen in modo da avere le modifiche attive immediatamente
cheerr:
If err.number >0 Then
'msgbox err.description
End If
End Sub
Public Sub CleanObjectForm
'load the managed error
On Error GoTo CheckErr
'declare const for the managed error
Const FUNCTIONNAME = "CleanObjectForm"
Const MODULENAME = "InputOutput.cim"
'start declared local variable
Dim ScreenObjects As Gefobjects
Dim OggTesto As GefObject
Dim OggTextFormat As GefTextFormat
Dim strNameTextBox As String
Dim intIndex As Integer
Dim strNameVariable As String
Dim VarsScreen As GefObjectVariables
Dim VarTesto As GefObjectVariable
'end declared local variable
'start code procedure
'Recupero gli oggetti contenuti nello screen
Set ScreenObjects = CimGetScreen().Object.Objects
Set scr = CimGetScreen
Set OggScreen = scr.Object
Set VarsScreen = OggScreen.Variables
'clean all the object in the form
For intIndex = 1 To 48
'clean the slot text
If intIndex <=3 Then
strNameTextBox = "txtNameSlot" & intIndex
'Tra gli oggetti presenti nello screen recupero l'oggetto di nome "Testo"
Set OggTesto = screenObjects.Item(strNameTextBox)
'Dell'oggetto "Testo" recupero l'oggetto TextFormat per accedere alla stringa da visualizzare
Set OggTextFormat = OggTesto.TextFormat
'Modifico la stringa visualizzata
OggTextFormat.Text = ""
End If
io non credo che si possa agire su un programma così a muzzo con qualche righetta di codice. fossi in te, andrei dal mio capo e me lo farei spiegare. IMHO, OC!
sono veramente poche righe... farò... cmq proviamo a fare solo questa cosa, come faccio indicando un testo a farlo cambiare come voglio io? tipo la scritta testo voglio farla diventare se ad uno italiano a 2 inglese.... Sei stato gentilissmo sai..
mm mi sa che ho rotto troppo. Grazie mille lo stesso se qualcuno ha qualche idea son qua
l'ho scritto sopraOriginariamente inviato da pinaz
sono veramente poche righe... farò... cmq proviamo a fare solo questa cosa
Ad esempio, nel codice al posto di "parola",Originariamente inviato da pinaz
sono veramente poche righe... farò... cmq proviamo a fare solo questa cosa
scrivi: Choose(L, "parola","word","mot","InRussoNonSoComeSiDice" )
dove L vale 1(italiano), 2(inglese), 3(francese), 4(russo)
IceCube_HT (VB6 fan Club)
ma poi come faccio a vederlo in "azione" se compilo? vorrei vedere che funziona....
IF iLinguaggio = 1 Then
lblScritta.Caption = "Ciao!"
END IF
IF iLinguaggio = 2 Then
lblScritta.Caption = "Hi!"
END IF
come fa a parlare con il testo scusa....
...pero', capisci, stai dicendo:
non conosco molto l'inglese, so a mala pena tenere una penna in mano, aiutatemi
a tradurre Shakespeare dall'inglese al cinese !!!!
IceCube_HT (VB6 fan Club)
Permessi di invio
