RSFireblade

Немога да си редактирам съобщението горе :( Sorry Всъщност ми дава Log File: One thread was found...

Здравей ! Направих всичко точно както е описано,но накрая като заради ми излиза One log file was found... и некви такива, а горе пише 100%, но щом дам close и пак излиза One log file was found... аз гася цялата програма и като ида при новополучилия се филм и го пусна няма субтитри. Благодаря предварително.

Абе нещо немога баш да се ориентирам . Как да я направя така , че като натисна върху формата и мишката да се дърпа към височина 3000. Мерси.

Ето и моят вариянт (и формата и exe-то са) . А имам и един въпрос. Как да я направя да смята и със десетични дроби (като 0,5 ; 0,3 ; 0,7 и т.н. ) Square_program.rar

Здравейте. Искам да помоля някай да направи програмка при която когато се натисне лявото копче на мишката да дърпа стрелката към височина 3000. Не искам да има копчета за настройка или някакви такива усложняващи проекта неща. Просто искам да видя принцъпът какъв е . Благодаря.

Ау вярно ги бех забравил .Стана супер , мерси.

Кодът го направих така : Private Sub Delenie_Click() f = 4 End Sub ---------------------- Private Sub Izchisli_Click() a = Text1.Text b = Text2.Text If f = 1 Then Text3.Text = a + b ElseIf f = 2 Then Text3.Text = a - b ElseIf f = 3 Then Text3.Text = a * b ElseIf f = 4 Then Text3.Text = a / b End If End Sub ---------------------- Private Sub Izvajdane_Click() f = 1 End Sub ---------------------- Private Sub Sybirane_Click() f = 2 End Sub ---------------------- Private Sub Umnojenie_Click() f = 3 End Sub но нестава :(

А как трябва да стане ако искам с бутон "Изчисли" да извършва оказаното действие.Аз се сетих само така : слагаме 5 бутона "Изчисли" и им задаваме единият да събере числата вторият да ги извади третият да ги умножи и четвъртият да ги раздели.След това на копчето "+" казваме когато е натиснато само първият бутон "Изчисли" да се вижда , за "-" само вторият бутон "Изчисли" да се вижда , за "*" само третият и за "/" само четвъртият. Надявам се да има по лесен начин. Благодаря.

Мерси

General - Declarations Dim first As Integer Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long и General - Label4_MouseMove Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label4.FontSize = 15 End Sub

Надявам се да не съм нахален, но би ли някой изяснил кодът, че някои части от него не разбирам. Благодаря.

Благодаря стана .

Благодаря получи се добре но имам едн проблем.Когато дам да ми я изпълни всичко работи но когато дам квадратче File -> Make Project1.exe ми казва : Compile Error: Only comments may appear after End Sub,End Funktion, or End Property. Благодаря предварително.