Please Help me in my Problem - Xtreme Visual Basic Talk

07-22-2006, 01:18 AM

lordcedrich lordcedrich is offline

Newcomer

Join Date: May 2006

Posts: 21

Please Help me in my Problem

made my software w/c allowing to recieve a file into a bluetooth device and has a screen saver w/c serves as my seciruty but when i tried to run my screen saver my pc stops recieving a file in a bluetooth device, does anyone knows the problem of my software ...I also make my software visible to systray but its still not working

When i run the Screen saver the bluetooth stops and when i stopped the screen saver it resumes ....Its like its only allows only 1 program to run and not 2 program at the same time

I hope someone could help me

This is the code of my screen saver

Code:

Option Explicit
Const PI = 3.14159
Dim sHari As String
Dim aHari

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  frmMain.Timer1.Enabled = True
  ProgramActivation
  Set frmScreenSaver = Nothing
End Sub

Private Sub Timer1_Timer()
   lblTekan = ""
End Sub

Private Sub Form_Load()
Dim res
   'I made this array to translate name of day to Indonesia
   'language. You can change this array elemen to your
   'country language. Start from Sunday...
   aHari = Array("Sunday", "Monday", "Tuesday", "Wednesday", _
                "Thursday", "Friday", "Saturday")
   sHari = aHari(Abs(Weekday(Date) - 1))
   frmMain.Caption = "BlueKey v 1.0"
   frmMain.Timer1.Enabled = False
   Timer1.Enabled = True
   DoEvents
   Label1.Caption = "" & sHari & ", " _
                   & Format(Date, "mmmm dd yyyy")
   Label2.Caption = Format(Time, "hh:mm:ss")
   DoEvents
   App.HelpFile = ""
   res = SetWindowPos(frmScreenSaver.hWnd, _
                      HWND_TOPMOST, 0, 0, 0, 0, _
                      flags)
End Sub

Private Sub Form_Click()
   If frmSetting.ScreenSaverPassword.Value = 1 Then
      frmPassword.Show 1
   Else
      Unload Me
      Set frmScreenSaver = Nothing
   End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
   If frmSetting.ScreenSaverPassword.Value = 1 Then
      frmPassword.Show 1
   Else
      Unload Me
      Set frmScreenSaver = Nothing
   End If
End Sub

Public Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  lblTekan.Caption = "Press any key or click your mouse on this screen to exit..."
End Sub

Private Sub tmrQuartz_Timer()
  Dim Hours As Single, Minutes As Single, Seconds As Single
  Dim TrueHours As Single
  sHari = aHari(Abs(Weekday(Date) - 1))
  Label1.Caption = "" & sHari & ", " _
                   & Format(Date, "mmmm dd yyyy")
  Label2.Caption = Format(Time, "hh:mm:ss")
  Hours = Hour(Time)
  Minutes = Minute(Time)
  Seconds = Second(Time)
  'I got this code (Analog Clock) from
  'M. Thaha Husain.
  'Thanks to Husain!
  TrueHours = Hours + Minutes / 60
  LineHour.X2 = 750 * Cos(PI / 180 * (30 * TrueHours - 90)) + LineHour.X1
  LineHour.Y2 = 750 * Sin(PI / 180 * (30 * TrueHours - 90)) + LineHour.Y1
  LineMinute.X2 = 1050 * Cos(PI / 180 * (6 * Minutes - 90)) + LineHour.X1
  LineMinute.Y2 = 1050 * Sin(PI / 180 * (6 * Minutes - 90)) + LineHour.Y1
  LineSecond.X2 = 1100 * Cos(PI / 180 * (6 * Seconds - 90)) + LineHour.X1
  LineSecond.Y2 = 1100 * Sin(PI / 180 * (6 * Seconds - 90)) + LineHour.Y1
End Sub