{"id":1056,"date":"2022-12-09T08:53:36","date_gmt":"2022-12-09T07:53:36","guid":{"rendered":"http:\/\/lesmrdtrucs.mataf35400.fr\/?page_id=1056"},"modified":"2022-12-09T09:16:42","modified_gmt":"2022-12-09T08:16:42","slug":"autres","status":"publish","type":"page","link":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/autres\/","title":{"rendered":"Autres\u200b"},"content":{"rendered":"\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

App.Path<\/h2>

VB6<\/h3>

\u00a0\u00a0 \u00a0App.Path<\/em><\/span><\/p>

VB.net<\/h3>

\u00a0\u00a0 \u00a0Application.StartupPath<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

DoEvents<\/h2>

VB6<\/h3>

\u00a0\u00a0 \u00a0DoEvents<\/em><\/span><\/p>

VB.net<\/h3>

\u00a0\u00a0 \u00a0Application.DoEvents()<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Left$, Mid$, Right$<\/h2>

VB6<\/h3>

\u00a0\u00a0 \u00a0Left$(MaChaine,2)<\/em><\/span>
\u00a0\u00a0 \u00a0Mid$(MaChaine,2,5)<\/em><\/span>
\u00a0\u00a0 \u00a0Right$(MaChaine,2)<\/em><\/span><\/p>

VB.net<\/h3>

\u00a0\u00a0 \u00a0MaChaine.Substring(0,2)<\/em><\/span>
\u00a0\u00a0 \u00a0MaChaine.Substring(1,5)<\/em><\/span>
\u00a0\u00a0 \u00a0MaChaine.Substring(MaChaine.Length-2)<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Screen.mousepointer<\/h2>

VB6<\/h3>

\u00a0\u00a0 \u00a0Screen.MousePointer = 0<\/em><\/span><\/p>

VB.net<\/h3>

\u00a0\u00a0 \u00a0Cursor = Cursors.Default<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

SelStart, SelLength<\/h2>

VB6<\/h3>

\u00a0\u00a0 \u00a0MyControl.SetFocus<\/em><\/span>
\u00a0\u00a0 \u00a0MyControl.SelStart=0<\/em><\/span>
\u00a0\u00a0 \u00a0MyControl.SelLength=len(MyControl.Text)<\/em><\/span><\/p>

VB.net<\/h3>

\u00a0\u00a0 \u00a0MyControl.Select()<\/em><\/span>
\u00a0\u00a0 \u00a0MyControl.SelectionStart = 0<\/em><\/span>
\u00a0\u00a0 \u00a0MyControl.SelectionLength = ComRef.Text.Length<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

SetFocus<\/h2>

VB6<\/h3>

\u00a0\u00a0 \u00a0MyControl.SetFocus<\/em><\/span><\/p>

VB.net<\/h3>

\u00a0\u00a0 \u00a0MyControl.Select()<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

KeyAscii<\/h2>

VB6<\/h3>

Sub textbox1_keypress<\/em><\/span>
\u00a0\u00a0 \u00a0If keyascii = 13 then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0……………………<\/em><\/span>
\u00a0\u00a0 \u00a0End if<\/em><\/span>
End Sub<\/em><\/span><\/p>

VB.net<\/h3>

1\u00e8re solution:<\/p>

Sub textbox1_keypress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress<\/em><\/span>
\u00a0\u00a0 \u00a0If e.KeyChar = vbCr Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0……………………<\/em><\/span>
\u00a0\u00a0 \u00a0End if<\/em><\/span>
End Sub<\/em><\/span><\/p>

2\u00e8me solution:<\/p>

Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp<\/em><\/span>
\u00a0\u00a0\u00a0 If e.KeyCode = Keys.Enter Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0……………………<\/em><\/span>
\u00a0\u00a0\u00a0 End If<\/em><\/span>
End Sub<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Format$ (pour les cha\u00eenes de caract\u00e8res)<\/h2>

VB6<\/h3>

\u00a0\u00a0 \u00a0MonTexte=format$(MonNombre,\u00a0\u00bb000″)<\/em><\/span><\/p>

VB.net<\/h3>

\u00a0\u00a0 \u00a0MonTexte=MonNombre.ToString(\u00ab\u00a0000\u00a0\u00bb)<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Format (pour les dates & heures)<\/h2>

VB6<\/h3>

\u00a0\u00a0 \u00a0MonTexte=format(Now,\u00a0\u00bbyyyy-mm-dd hh:nn:ss\u00a0\u00bb)<\/em><\/span><\/p>

VB.net<\/h3>

\u00a0\u00a0 \u00a0MonTexte=DateTime.Now.ToString(\u00ab\u00a0yyyy-MM-dd HH:mm:ss\u00a0\u00bb)<\/em><\/span>
Nota <\/b>pour VB.net:
\u00a0\u00a0\u00a0 Pour les mois, il faut utiliser\u00a0 MM (majuscules)
\u00a0\u00a0\u00a0 Pour les minutes, il faut utiliser\u00a0 mm (minuscules).
\u00a0\u00a0\u00a0 Pour le mode \u00ab\u00a024h\u00a0\u00bb, il faut utiliser HH (majuscules).
\u00a0\u00a0\u00a0 Pour le mode \u00ab\u00a012h\u00a0\u00bb, il faut utiliser hh (minuscules), et \u00e0 la fin , tt. Ex: \u00ab\u00a0yyyy-MM-dd hh:mm:ss tt\u00a0\u00bb<\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Clipboard<\/h2>

VB6<\/h3>

\u00a0\u00a0 \u00a0Clipboard.Clear<\/em><\/span>
\u00a0\u00a0 \u00a0Clipboard.SetText \u00ab\u00a0MonTexte\u00a0\u00bb<\/em><\/span><\/p>

VB.net<\/h3>

\u00a0\u00a0 \u00a0My.Computer.Clipboard.Clear()<\/em><\/span>
\u00a0\u00a0 \u00a0My.Computer.Clipboard.SetText(\u00ab\u00a0MonTexte\u00a0\u00bb)<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<\/div>\n\t\t","protected":false},"excerpt":{"rendered":"

App.Path VB6 \u00a0\u00a0 \u00a0App.Path VB.net \u00a0\u00a0 \u00a0Application.StartupPath DoEvents VB6 \u00a0\u00a0 \u00a0DoEvents VB.net \u00a0\u00a0 \u00a0Application.DoEvents() Left$, Mid$, Right$ VB6 \u00a0\u00a0 \u00a0Left$(MaChaine,2)\u00a0\u00a0 \u00a0Mid$(MaChaine,2,5)\u00a0\u00a0 \u00a0Right$(MaChaine,2) VB.net \u00a0\u00a0 \u00a0MaChaine.Substring(0,2)\u00a0\u00a0 \u00a0MaChaine.Substring(1,5)\u00a0\u00a0 \u00a0MaChaine.Substring(MaChaine.Length-2) Screen.mousepointer VB6 \u00a0\u00a0 \u00a0Screen.MousePointer = 0 VB.net \u00a0\u00a0 \u00a0Cursor = Cursors.Default SelStart, SelLength VB6 \u00a0\u00a0 \u00a0MyControl.SetFocus\u00a0\u00a0 \u00a0MyControl.SelStart=0\u00a0\u00a0 \u00a0MyControl.SelLength=len(MyControl.Text) VB.net \u00a0\u00a0 \u00a0MyControl.Select()\u00a0\u00a0 \u00a0MyControl.SelectionStart = 0\u00a0\u00a0 \u00a0MyControl.SelectionLength = ComRef.Text.Length SetFocus […]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"ocean_post_layout":"","ocean_both_sidebars_style":"","ocean_both_sidebars_content_width":0,"ocean_both_sidebars_sidebars_width":0,"ocean_sidebar":"0","ocean_second_sidebar":"0","ocean_disable_margins":"enable","ocean_add_body_class":"","ocean_shortcode_before_top_bar":"","ocean_shortcode_after_top_bar":"","ocean_shortcode_before_header":"","ocean_shortcode_after_header":"","ocean_has_shortcode":"","ocean_shortcode_after_title":"","ocean_shortcode_before_footer_widgets":"","ocean_shortcode_after_footer_widgets":"","ocean_shortcode_before_footer_bottom":"","ocean_shortcode_after_footer_bottom":"","ocean_display_top_bar":"default","ocean_display_header":"default","ocean_header_style":"","ocean_center_header_left_menu":"0","ocean_custom_header_template":"0","ocean_custom_logo":0,"ocean_custom_retina_logo":0,"ocean_custom_logo_max_width":0,"ocean_custom_logo_tablet_max_width":0,"ocean_custom_logo_mobile_max_width":0,"ocean_custom_logo_max_height":0,"ocean_custom_logo_tablet_max_height":0,"ocean_custom_logo_mobile_max_height":0,"ocean_header_custom_menu":"0","ocean_menu_typo_font_family":"0","ocean_menu_typo_font_subset":"","ocean_menu_typo_font_size":0,"ocean_menu_typo_font_size_tablet":0,"ocean_menu_typo_font_size_mobile":0,"ocean_menu_typo_font_size_unit":"px","ocean_menu_typo_font_weight":"","ocean_menu_typo_font_weight_tablet":"","ocean_menu_typo_font_weight_mobile":"","ocean_menu_typo_transform":"","ocean_menu_typo_transform_tablet":"","ocean_menu_typo_transform_mobile":"","ocean_menu_typo_line_height":0,"ocean_menu_typo_line_height_tablet":0,"ocean_menu_typo_line_height_mobile":0,"ocean_menu_typo_line_height_unit":"","ocean_menu_typo_spacing":0,"ocean_menu_typo_spacing_tablet":0,"ocean_menu_typo_spacing_mobile":0,"ocean_menu_typo_spacing_unit":"","ocean_menu_link_color":"","ocean_menu_link_color_hover":"","ocean_menu_link_color_active":"","ocean_menu_link_background":"","ocean_menu_link_hover_background":"","ocean_menu_link_active_background":"","ocean_menu_social_links_bg":"","ocean_menu_social_hover_links_bg":"","ocean_menu_social_links_color":"","ocean_menu_social_hover_links_color":"","ocean_disable_title":"default","ocean_disable_heading":"default","ocean_post_title":"","ocean_post_subheading":"","ocean_post_title_style":"","ocean_post_title_background_color":"","ocean_post_title_background":0,"ocean_post_title_bg_image_position":"","ocean_post_title_bg_image_attachment":"","ocean_post_title_bg_image_repeat":"","ocean_post_title_bg_image_size":"","ocean_post_title_height":0,"ocean_post_title_bg_overlay":0.5,"ocean_post_title_bg_overlay_color":"","ocean_disable_breadcrumbs":"default","ocean_breadcrumbs_color":"","ocean_breadcrumbs_separator_color":"","ocean_breadcrumbs_links_color":"","ocean_breadcrumbs_links_hover_color":"","ocean_display_footer_widgets":"default","ocean_display_footer_bottom":"default","ocean_custom_footer_template":"0","footnotes":""},"class_list":["post-1056","page","type-page","status-publish","hentry","entry"],"_links":{"self":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/1056","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/comments?post=1056"}],"version-history":[{"count":7,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/1056\/revisions"}],"predecessor-version":[{"id":1067,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/1056\/revisions\/1067"}],"wp:attachment":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/media?parent=1056"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}