API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 22nd, 2017
83
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 11.60 KB | None | 0 0
raw download clone embed print report
  1.  
  2. Private Sub tmrRollover_Timer()
  3.     '1st bar rollover
  4.    If MousePosY >= shpBar(0).Top And MousePosY <= shpBar(0).Top + shpBar(0).Height And MousePosX >= shpBar(0).Left And MousePosX <= shpBar(0).Left + shpBar(0).Width Then
  5.         fmeDetails.Visible = True
  6.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  7.         fmeDetails.Left = MousePosX + 100
  8.         fmeDetails.Caption = "Saved By " + Trim(UserName(0)) + " on" + Str(SavedDate(0))
  9.         txtCarFootprint.Text = CarFootprint(0)
  10.         txtPublicTransportFootprint.Text = PublicTransportFootprint(0)
  11.         txtFlyingFootprint.Text = FlyingFootprint(0)
  12.         txtTotalCarbonFootprint.Text = TotalFootprint(0)
  13.     ElseIf Not (MousePosY >= shpBar(0).Top And MousePosY <= shpBar(0).Top + shpBar(0).Height And MousePosX >= shpBar(0).Left And MousePosX <= shpBar(0).Left + shpBar(0).Width) Then
  14.         fmeDetails.Visible = False
  15.     End If
  16.        
  17.     '2nd bar rollover
  18.    If MousePosY >= shpBar(1).Top And MousePosY <= shpBar(1).Top + shpBar(1).Height And MousePosX >= shpBar(1).Left And MousePosX <= shpBar(1).Left + shpBar(1).Width Then
  19.         fmeDetails.Visible = True
  20.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  21.         fmeDetails.Left = MousePosX + 100
  22.         fmeDetails.Caption = "Saved By " + Trim(UserName(1)) + " on" + Str(SavedDate(1))
  23.         txtCarFootprint.Text = CarFootprint(1)
  24.         txtPublicTransportFootprint.Text = PublicTransportFootprint(1)
  25.         txtFlyingFootprint.Text = FlyingFootprint(1)
  26.         txtTotalCarbonFootprint.Text = TotalFootprint(1)
  27.     End If
  28.        
  29.     '3rd bar rollover
  30.    If MousePosY >= shpBar(2).Top And MousePosY <= shpBar(2).Top + shpBar(2).Height And MousePosX >= shpBar(2).Left And MousePosX <= shpBar(2).Left + shpBar(2).Width Then
  31.         fmeDetails.Visible = True
  32.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  33.         fmeDetails.Left = MousePosX + 100
  34.         fmeDetails.Caption = "Saved By " + Trim(UserName(2)) + " on" + Str(SavedDate(2))
  35.         txtCarFootprint.Text = CarFootprint(2)
  36.         txtPublicTransportFootprint.Text = PublicTransportFootprint(2)
  37.         txtFlyingFootprint.Text = FlyingFootprint(2)
  38.         txtTotalCarbonFootprint.Text = TotalFootprint(2)
  39.     End If
  40.        
  41.     '4th bar rollover
  42.    If MousePosY >= shpBar(3).Top And MousePosY <= shpBar(3).Top + shpBar(3).Height And MousePosX >= shpBar(3).Left And MousePosX <= shpBar(3).Left + shpBar(3).Width Then
  43.         fmeDetails.Visible = True
  44.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  45.         fmeDetails.Left = MousePosX + 100
  46.         fmeDetails.Caption = "Saved By " + Trim(UserName(3)) + " on" + Str(SavedDate(3))
  47.         txtCarFootprint.Text = CarFootprint(3)
  48.         txtPublicTransportFootprint.Text = PublicTransportFootprint(3)
  49.         txtFlyingFootprint.Text = FlyingFootprint(3)
  50.         txtTotalCarbonFootprint.Text = TotalFootprint(3)
  51.     End If
  52.        
  53.     '5th bar rollover
  54.    If MousePosY >= shpBar(4).Top And MousePosY <= shpBar(4).Top + shpBar(4).Height And MousePosX >= shpBar(4).Left And MousePosX <= shpBar(4).Left + shpBar(4).Width Then
  55.         fmeDetails.Visible = True
  56.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  57.         fmeDetails.Left = MousePosX + 100
  58.         fmeDetails.Caption = "Saved By " + Trim(UserName(4)) + " on" + Str(SavedDate(4))
  59.         txtCarFootprint.Text = CarFootprint(4)
  60.         txtPublicTransportFootprint.Text = PublicTransportFootprint(4)
  61.         txtFlyingFootprint.Text = FlyingFootprint(4)
  62.         txtTotalCarbonFootprint.Text = TotalFootprint(4)
  63.     End If
  64.        
  65.     '6th bar rollover
  66.    If MousePosY >= shpBar(5).Top And MousePosY <= shpBar(5).Top + shpBar(5).Height And MousePosX >= shpBar(5).Left And MousePosX <= shpBar(5).Left + shpBar(5).Width Then
  67.         fmeDetails.Visible = True
  68.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  69.         fmeDetails.Left = MousePosX + 100
  70.         fmeDetails.Caption = "Saved By " + Trim(UserName(5)) + " on" + Str(SavedDate(5))
  71.         txtCarFootprint.Text = CarFootprint(5)
  72.         txtPublicTransportFootprint.Text = PublicTransportFootprint(5)
  73.         txtFlyingFootprint.Text = FlyingFootprint(5)
  74.         txtTotalCarbonFootprint.Text = TotalFootprint(5)
  75.     End If
  76.        
  77.     '7th bar rollover
  78.    If MousePosY >= shpBar(6).Top And MousePosY <= shpBar(6).Top + shpBar(6).Height And MousePosX >= shpBar(6).Left And MousePosX <= shpBar(6).Left + shpBar(6).Width Then
  79.         fmeDetails.Visible = True
  80.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  81.         fmeDetails.Left = MousePosX + 100
  82.         fmeDetails.Caption = "Saved By " + Trim(UserName(6)) + " on" + Str(SavedDate(6))
  83.         txtCarFootprint.Text = CarFootprint(6)
  84.         txtPublicTransportFootprint.Text = PublicTransportFootprint(6)
  85.         txtFlyingFootprint.Text = FlyingFootprint(6)
  86.         txtTotalCarbonFootprint.Text = TotalFootprint(6)
  87.     End If
  88.        
  89.     '8th bar rollover
  90.    If MousePosY >= shpBar(7).Top And MousePosY <= shpBar(7).Top + shpBar(7).Height And MousePosX >= shpBar(7).Left And MousePosX <= shpBar(7).Left + shpBar(7).Width Then
  91.         fmeDetails.Visible = True
  92.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  93.         fmeDetails.Left = MousePosX + 100
  94.         fmeDetails.Caption = "Saved By " + Trim(UserName(7)) + " on" + Str(SavedDate(7))
  95.         txtCarFootprint.Text = CarFootprint(7)
  96.         txtPublicTransportFootprint.Text = PublicTransportFootprint(7)
  97.         txtFlyingFootprint.Text = FlyingFootprint(7)
  98.         txtTotalCarbonFootprint.Text = TotalFootprint(7)
  99.     End If
  100.    
  101.     '9th bar rollover
  102.    If MousePosY >= shpBar(8).Top And MousePosY <= shpBar(8).Top + shpBar(8).Height And MousePosX >= shpBar(8).Left And MousePosX <= shpBar(8).Left + shpBar(8).Width Then
  103.         fmeDetails.Visible = True
  104.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  105.         fmeDetails.Left = MousePosX + 100
  106.         fmeDetails.Caption = "Saved By " + Trim(UserName(8)) + " on" + Str(SavedDate(8))
  107.         txtCarFootprint.Text = CarFootprint(8)
  108.         txtPublicTransportFootprint.Text = PublicTransportFootprint(8)
  109.         txtFlyingFootprint.Text = FlyingFootprint(8)
  110.         txtTotalCarbonFootprint.Text = TotalFootprint(8)
  111.     End If
  112.  
  113.     '10th bar rollover
  114.    If MousePosY >= shpBar(9).Top And MousePosY <= shpBar(9).Top + shpBar(9).Height And MousePosX >= shpBar(9).Left And MousePosX <= shpBar(9).Left + shpBar(9).Width Then
  115.         fmeDetails.Visible = True
  116.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  117.         fmeDetails.Left = MousePosX + 100
  118.         fmeDetails.Caption = "Saved By " + Trim(UserName(9)) + " on" + Str(SavedDate(9))
  119.         txtCarFootprint.Text = CarFootprint(9)
  120.         txtPublicTransportFootprint.Text = PublicTransportFootprint(9)
  121.         txtFlyingFootprint.Text = FlyingFootprint(9)
  122.         txtTotalCarbonFootprint.Text = TotalFootprint(9)
  123.     End If
  124.    
  125.     '11th bar rollover
  126.    If MousePosY >= shpBar(10).Top And MousePosY <= shpBar(10).Top + shpBar(10).Height And MousePosX >= shpBar(10).Left And MousePosX <= shpBar(10).Left + shpBar(10).Width Then
  127.         fmeDetails.Visible = True
  128.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  129.         fmeDetails.Left = MousePosX + 100
  130.         fmeDetails.Caption = "Saved By " + Trim(UserName(10)) + " on" + Str(SavedDate(10))
  131.         txtCarFootprint.Text = CarFootprint(10)
  132.         txtPublicTransportFootprint.Text = PublicTransportFootprint(10)
  133.         txtFlyingFootprint.Text = FlyingFootprint(10)
  134.         txtTotalCarbonFootprint.Text = TotalFootprint(10)
  135.     End If
  136.    
  137.     '12th bar rollover
  138.    If MousePosY >= shpBar(11).Top And MousePosY <= shpBar(11).Top + shpBar(11).Height And MousePosX >= shpBar(11).Left And MousePosX <= shpBar(11).Left + shpBar(11).Width Then
  139.         fmeDetails.Visible = True
  140.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  141.         fmeDetails.Left = MousePosX + 100
  142.         fmeDetails.Caption = "Saved By " + Trim(UserName(11)) + " on" + Str(SavedDate(11))
  143.         txtCarFootprint.Text = CarFootprint(11)
  144.         txtPublicTransportFootprint.Text = PublicTransportFootprint(11)
  145.         txtFlyingFootprint.Text = FlyingFootprint(11)
  146.         txtTotalCarbonFootprint.Text = TotalFootprint(11)
  147.     End If
  148.    
  149.     '13th bar rollover
  150.    If MousePosY >= shpBar(12).Top And MousePosY <= shpBar(12).Top + shpBar(12).Height And MousePosX >= shpBar(12).Left And MousePosX <= shpBar(12).Left + shpBar(12).Width Then
  151.         fmeDetails.Visible = True
  152.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  153.         fmeDetails.Left = MousePosX + 100
  154.         fmeDetails.Caption = "Saved By " + Trim(UserName(12)) + " on" + Str(SavedDate(12))
  155.         txtCarFootprint.Text = CarFootprint(12)
  156.         txtPublicTransportFootprint.Text = PublicTransportFootprint(12)
  157.         txtFlyingFootprint.Text = FlyingFootprint(12)
  158.         txtTotalCarbonFootprint.Text = TotalFootprint(12)
  159.     End If
  160.    
  161.     '14th bar rollover
  162.    If MousePosY >= shpBar(13).Top And MousePosY <= shpBar(13).Top + shpBar(13).Height And MousePosX >= shpBar(13).Left And MousePosX <= shpBar(13).Left + shpBar(13).Width Then
  163.         fmeDetails.Visible = True
  164.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  165.         fmeDetails.Left = MousePosX + 100
  166.         fmeDetails.Caption = "Saved By " + Trim(UserName(13)) + " on" + Str(SavedDate(13))
  167.         txtCarFootprint.Text = CarFootprint(13)
  168.         txtPublicTransportFootprint.Text = PublicTransportFootprint(13)
  169.         txtFlyingFootprint.Text = FlyingFootprint(13)
  170.         txtTotalCarbonFootprint.Text = TotalFootprint(13)
  171.     End If
  172.    
  173.     '15th bar rollover
  174.    If MousePosY >= shpBar(14).Top And MousePosY <= shpBar(14).Top + shpBar(14).Height And MousePosX >= shpBar(14).Left And MousePosX <= shpBar(14).Left + shpBar(14).Width Then
  175.         fmeDetails.Visible = True
  176.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  177.         fmeDetails.Left = MousePosX + 100
  178.         fmeDetails.Caption = "Saved By " + Trim(UserName(14)) + " on" + Str(SavedDate(14))
  179.         txtCarFootprint.Text = CarFootprint(14)
  180.         txtPublicTransportFootprint.Text = PublicTransportFootprint(14)
  181.         txtFlyingFootprint.Text = FlyingFootprint(14)
  182.         txtTotalCarbonFootprint.Text = TotalFootprint(14)
  183.     End If
  184.    
  185.     '16th bar rollover
  186.    If MousePosY >= shpBar(15).Top And MousePosY <= shpBar(15).Top + shpBar(15).Height And MousePosX >= shpBar(15).Left And MousePosX <= shpBar(15).Left + shpBar(15).Width Then
  187.         fmeDetails.Visible = True
  188.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  189.         fmeDetails.Left = MousePosX + 100
  190.         fmeDetails.Caption = "Saved By " + Trim(UserName(15)) + " on" + Str(SavedDate(15))
  191.         txtCarFootprint.Text = CarFootprint(15)
  192.         txtPublicTransportFootprint.Text = PublicTransportFootprint(15)
  193.         txtFlyingFootprint.Text = FlyingFootprint(15)
  194.         txtTotalCarbonFootprint.Text = TotalFootprint(15)
  195.     End If
  196.    
  197.     '17th bar rollover
  198.    If MousePosY >= shpBar(16).Top And MousePosY <= shpBar(16).Top + shpBar(16).Height And MousePosX >= shpBar(16).Left And MousePosX <= shpBar(16).Left + shpBar(16).Width Then
  199.         fmeDetails.Visible = True
  200.         fmeDetails.Top = MousePosY - (fmeDetails.Height + 100)
  201.         fmeDetails.Left = MousePosX + 100
  202.         fmeDetails.Caption = "Saved By " + Trim(UserName(16)) + " on" + Str(SavedDate(16))
  203.         txtCarFootprint.Text = CarFootprint(16)
  204.         txtPublicTransportFootprint.Text = PublicTransportFootprint(16)
  205.         txtFlyingFootprint.Text = FlyingFootprint(16)
  206.         txtTotalCarbonFootprint.Text = TotalFootprint(16)
  207.     End If
  208. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!