|
إنضمامك إلي منتديات استراحات زايد يحقق لك معرفة كل ماهو جديد في عالم الانترنت ...
انضم الينا
#1
| ||
| ||
<div>مشروع برنامج راديو محطات قرآنية لكبار القراء ومتصفح للجرائد المصرية بسيط جدا ببرنامج Visual Basic 6 يتكون المشروعمن عدد 2 فورم نضع على الفورم رقم 1 عدد 2 ليست بوكس عدد 1 ميدا بلير عدد3 ازرار play pause stop news الفورم الثانى نضعليه عدد 2 ليست بوكس عدد1 Webbrowser عدد 3 ازرار back forward referch stop Go textbox Cod: copy and past كود الفورم الأول Form1 Option Explicit ' Note that this example does not scale controls within ' other controls. For example, if you place a TextBox ' inside a PictureBox, the TextBox's position and ' dimensions are relative to the PictureBox not the ' form. This example does not handle this case. ' ' It also does not adjust fonts, stretch pictures, etc. Private Type ControlPositionType Left As Single Top As Single Width As Single Height As Single FontSize As Single End Type Private m_ControlPositions() As ControlPositionType Private m_FormWid As Single Private m_FormHgt As Single ' Save the form's and controls' dimensions. Private Sub SaveSizes() Dim i As Integer Dim ctl As Control ' Save the controls' positions and sizes. ReDim m_ControlPositions(1 To Controls.Count) i = 1 For Each ctl In Controls With m_ControlPositions(i) If TypeOf ctl Is line Then .Left = ctl.X1 .Top = ctl.Y1 .Width = ctl.X2 - ctl.X1 .Height = ctl.Y2 - ctl.Y1 Else .Left = ctl.Left .Top = ctl.Top .Width = ctl.Width .Height = ctl.Height On Error Resume Next .FontSize = ctl.Font.Size On Error GoTo 0 End If End With i = i + 1 Next ctl ' Save the form's size. m_FormWid = ScaleWidth m_FormHgt = ScaleHeight End Sub Private Sub Add_Click(Index As Integer) List1.AddItem (txtSearch.Text) End Sub Private Sub Command2_Click() Form3.Show End Sub Private Sub Delete_Click(Index As Integer) List1.RemoveItem (List1.ListIndex) End Sub Private Sub Exit_Click() End End Sub Private Sub Form_Load() SaveSizes Dim ff As Long Dim line As String ff = FreeFile Open App.Path & "\Data1.txt" For Input As #ff Do While Not EOF(ff) Line Input #ff, line 'make sure we're not adding a blank line If Len(line) Then List1.AddItem line Loop Close #ff Open App.Path & "\Data2.txt" For Input As #ff Do While Not EOF(ff) Line Input #ff, line 'make sure we're not adding a blank line If Len(line) Then List2.AddItem line Loop Close #ff End Sub ' Arrange the controls for the new size. Private Sub ResizeControls() Dim i As Integer Dim ctl As Control Dim x_scale As Single Dim y_scale As Single ' Don't bother if we are minimized. If WindowState = vbMinimized Then Exit Sub ' Get the form's current scale factors. x_scale = ScaleWidth / m_FormWid y_scale = ScaleHeight / m_FormHgt ' Position the controls. i = 1 For Each ctl In Controls With m_ControlPositions(i) If TypeOf ctl Is line Then ctl.X1 = x_scale * .Left ctl.Y1 = y_scale * .Top ctl.X2 = ctl.X1 + x_scale * .Width ctl.Y2 = ctl.Y1 + y_scale * .Height Else ctl.Left = x_scale * .Left ctl.Top = y_scale * .Top ctl.Width = x_scale * .Width If Not (TypeOf ctl Is ComboBox) Then ' Cannot change height of ComboBoxes. ctl.Height = y_scale * .Height End If On Error Resume Next ctl.Font.Size = y_scale * .FontSize On Error GoTo 0 End If End With i = i + 1 Next ctl End Sub Private Sub Form_Resize() ResizeControls End Sub Private Sub Command1_Click() Form2.Show Form1.Hide End Sub Private Sub List1_Click() List2.ListIndex = List1.ListIndex WindowsMediaPlayer1.URL = List2 WindowsMediaPlayer1.Controls.Play End Sub Private Sub Mute_Click() WindowsMediaPlayer1.settings.Mute = True End Sub Private Sub Pause_Click() If Pause.Caption = "Pause" Then Pause.Caption = "Resume" WindowsMediaPlayer1.Controls.Pause Else Pause.Caption = "Pause" WindowsMediaPlayer1.Controls.Play End If End Sub Private Sub Play_Click() WindowsMediaPlayer1.Controls.Play End Sub Private Sub txtSearch_Change() Dim i As Integer For i = 0 To List1.ListCount - 1 If InStr(List1.List(i), txtSearch.Text) > 0 Then MsgBox "Item #" & (i + 1) & " is what you searched for" 'Select the found entry List1.ListIndex = i End If Next End Sub Private Sub Stop_Click() WindowsMediaPlayer1.Controls.Stop End Sub كود الفورم الثانى Form2 Option Explicit ' Note that this example does not scale controls within ' other controls. For example, if you place a TextBox ' inside a PictureBox, the TextBox's position and ' dimensions are relative to the PictureBox not the ' form. This example does not handle this case. ' ' It also does not adjust fonts, stretch pictures, etc. Private Type ControlPositionType Left As Single Top As Single Width As Single Height As Single FontSize As Single End Type Private m_ControlPositions() As ControlPositionType Private m_FormWid As Single Private m_FormHgt As Single ' Save the form's and controls' dimensions. Private Sub SaveSizes() Dim i As Integer Dim ctl As Control ' Save the controls' positions and sizes. ReDim m_ControlPositions(1 To Controls.Count) i = 1 For Each ctl In Controls With m_ControlPositions(i) If TypeOf ctl Is line Then .Left = ctl.X1 .Top = ctl.Y1 .Width = ctl.X2 - ctl.X1 .Height = ctl.Y2 - ctl.Y1 Else .Left = ctl.Left .Top = ctl.Top .Width = ctl.Width .Height = ctl.Height On Error Resume Next .FontSize = ctl.Font.Size On Error GoTo 0 End If End With i = i + 1 Next ctl ' Save the form's size. m_FormWid = ScaleWidth m_FormHgt = ScaleHeight End Sub Private Sub Back_Click() WebBrowser1.GoBack End Sub Private Sub Form_Load() Dim ff As Long Dim line As String ff = FreeFile Open App.Path & "\Data3.txt" For Input As #ff Do While Not EOF(ff) Line Input #ff, line 'make sure we're not adding a blank line If Len(line) Then List1.AddItem line Loop Close #ff Open App.Path & "\Data4.txt" For Input As #ff Do While Not EOF(ff) Line Input #ff, line 'make sure we're not adding a blank line If Len(line) Then List2.AddItem line Loop Close #ff SaveSizes End Sub ' Arrange the controls for the new size. Private Sub ResizeControls() Dim i As Integer Dim ctl As Control Dim x_scale As Single Dim y_scale As Single ' Don't bother if we are minimized. If WindowState = vbMinimized Then Exit Sub ' Get the form's current scale factors. x_scale = ScaleWidth / m_FormWid y_scale = ScaleHeight / m_FormHgt ' Position the controls. i = 1 For Each ctl In Controls With m_ControlPositions(i) If TypeOf ctl Is line Then ctl.X1 = x_scale * .Left ctl.Y1 = y_scale * .Top ctl.X2 = ctl.X1 + x_scale * .Width ctl.Y2 = ctl.Y1 + y_scale * .Height Else ctl.Left = x_scale * .Left ctl.Top = y_scale * .Top ctl.Width = x_scale * .Width If Not (TypeOf ctl Is ComboBox) Then ' Cannot change height of ComboBoxes. ctl.Height = y_scale * .Height End If On Error Resume Next ctl.Font.Size = y_scale * .FontSize On Error GoTo 0 End If End With i = i + 1 Next ctl End Sub Private Sub Form_Resize() ResizeControls End Sub Private Sub Forward_Click() WebBrowser1.GoForward End Sub Private Sub Go_Click() WebBrowser1.Navigate (Text1.Text) End Sub Private Sub Home_Click() WebBrowser1.GoHome End Sub Private Sub List1_Click() List2.ListIndex = List1.ListIndex WebBrowser1.Navigate (List2) WebBrowser1.Silent = True End Sub Private Sub *******_Click() WebBrowser1.******* End Sub __DEFINE_LIKE_SHARE__ |
مواقع النشر (المفضلة) |
| |
المواضيع المتشابهه | ||||
الموضوع | كاتب الموضوع | المنتدى | مشاركات | آخر مشاركة |
الآن .. مشروع تأملات قرآنية مشروع رائع | محروم.كوم | منتدى أخبار المواقع والمنتديات العربية والأجنبية | 0 | 09-15-2012 02:40 PM |
معجزة جديدة ( تسريع برنامج IDM ومتصفح Internet Explorer ومتصفح Firefox الي 1000% ) | محروم.كوم | منتدى أخبار المواقع والمنتديات العربية والأجنبية | 0 | 06-09-2012 09:50 PM |
برنامج معجزة جديدة ( تسريع برنامج IDM ومتصفح Internet Explorer ومتصفح Firefox الي 1000% ) | محروم.كوم | منتدى أخبار المواقع والمنتديات العربية والأجنبية | 0 | 06-09-2012 08:20 PM |
معجزة جديدة ( تسريع برنامج IDM ومتصفح Internet Explorer ومتصفح Firefox الي 1000% ) | محروم.كوم | منتدى أخبار المواقع والمنتديات العربية والأجنبية | 0 | 04-17-2012 11:40 PM |
راديو نجوم اف ام - راديو سوا - راديو روتانا - راديو ميلودي والمزيد ببرنامج واحدا | أحلى رومانسية | برامج انترنت , برامج مسنجر , العاب , تطوير المواقع | 12 | 03-08-2008 02:07 AM |