visual basic 6 lesson no 7 now in hindi

पाठ नंबर - 7

आज के पाठ में हम क्रमवार सभी टूल के बारे में जानकारी प्राप्त करेंगे |

किसी भी फार्म के बैकग्राउंड में किसी भी तस्वीर को दिखाने के लिए निम्न कोड लिखा जाता है :-

Private Sub Form_Load() Me.Picture = LoadPicture(App.Path & "\tipshindimein.jpg")
End Sub

जब आप रन बटन पर कलिक करेंगे तो आप निम्न तस्वीर अनुसार चित्र आपके फार्म में लगा दिखाई देगा :-


अब हम PicutreBox टूल के बारे में जानकारी प्राप्त करेंगे | आप निम्न टेबल में देख सकते हैं कि PicutreBox टूल का आईकन टूलबार में कैसे नज़र आयेगा | यहाँ आप को ये जान लेना आवश्यक है कि उपरोक्त प्रकार से कोड लिखने से आप जिस चित्र का चयन किया है वो जिस साइज़ में होगा वो चित्र आपको पूर्ण रूप में दिखाई देगा, लेकिन! इस टूल के चयन करने के पश्चात् आप ये तय कर सकते हैं कि आप को फार्म पर चित्र कितनी लंबाई व चौड़ाई में नज़र आए |

---

Tool	Object	Property/Caption	Name
	image1	image1	imgTHM

इस टूल का चयन करने के बाद आप आप प्रापर्टी विंडो में उस चित्र का पाथ का चयन करेंगे | उपरोक्त से दूसरी तस्वीर में आप प्रापर्टी विंडो के चित्र में देख सकते है कि चित्र के पाथ के लिए कहाँ पर कलिक करना है ? चित्र का चयन के बाद जब आप रन बटन पर कलिक करेंगे तो आपको इस पिक्चर बाक्स में वो तस्वीर दिखाई देगी | आप इस का एक उदाहरण निम्न तस्वीर में देख सकते हैं |

चैक बाक्स टूल

इस उदाहरण के लिए आप दो चैक बाक्स फार्म पर लगाएं |

Private Sub Check1_Click()
If Check1.Value = 1 Then
MsgBox "My Name is Vaneet Nagpal"
Else

MsgBox "Nothing is to be display"
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
MsgBox "Tips Hindi Mein"
Else

MsgBox "Nothing is to be display"
End If
End Sub End Sub

उपरोक्त अनुसार कोड लिखने के बाद जब आप रन बटन पर कलिक करेंगे तो आप को फार्म निम्न चित्र अनुसार दिखाई देगा |

जब आप पहले नंबर वाले चैक बाक्स पर कलिक करेंगे तो एक मेसेज बाक्स उभरेगा जिस पर My Name is Vaneet Nagpal लिखा होगा | इसे आप निम्न से पहले चित्र में देख सकते हैं | अब दूसरे चैक बाक्स पर कलिक करेंगे तो फिर से एक मेसेज बाक्स उभरेगा जिस पर All Check Box ar selected लिखा होगा | इसे आप निम्न से दूसरे चित्र में देख सकते हैं | अब आप पहले चैक बाक्स पर फिर से कलिक करेंगे तो फिर से एक मेसेज बाक्स उभरेगा जिस पर Tips Hindi Mein लिखा होगा इसे आप निम्न से तीसरे चित्र में देख सकते हैं |

अब उपरोक्त कोड को समझने कर प्रयास करते हैं | जहाँ पर If Check1.Value = 1 Then MsgBox "My Name is Vaneet Nagpal" लिखा है, इस कोड का मतलब है कि यदि हम चेक बॉक्स एक पर कलिक करते हैं तो हम चेक बॉक्स एक का चयन करते हैं, यदि हम चेकबाक्स एक चयन करते हैं तो ये मेसेज My Name is Vaneet Nagpalडिस्प्ले हो | यदि हम दोबारा से चेक बॉक्स एक पर कलिक करते हैं तो मेसेज बाक्स में Nothing is to be selected मेसेज डिस्प्ले होगा | इस प्रकार जब हम चेक दो कलिक करेंगे तो Tips Hindi Meinमेसेज डिस्प्ले होगा, व जब दोबारा से चेकबाक्स पर कलिक करेंगे तो Nothing is to be selected मेसेज डिस्प्ले होगा | इस प्रकार हमने देखा कि चेक बॉक्स पर जो भी स्टेटमैंट सेट करेगे ये चेक बाक्स उसी अनुसार तुरंत आपके स्टेटमैंट अनुसार कार्य करेगा |

• विजुअल बेसिक 6.0
• ....
• <<< Pre.
• ....
• पाठ नंबर - सात
• ....
• Next >>>

क्या आपको विजुअल बेसिक 6 पर लिखा ये लेख पसंद आया ? यदि हां !!! तो अपने विचारों से अवगत जरूर कराएं |

"टिप्स हिन्दी में ब्लॉग" की हर नई जानकारी अपने मेल-बॉक्स में मुफ्त पाएं !