תחומים - פורום חרדי מקצועי

טבלת אנשי קשר צריכה להיות טבלת האב, ומפתח זר שלה יוכל להופיע בטבלת ספקים ובטבלת לקוחות ובטבלת תלמידים ובטבלת מורים ובטבלת... ובטבלת...

פורסם במקור בפורום CODE613 ב12/03/2014 16:51 (+02:00)

עובדים עם notepad++ ?!
הוסיפו כאן את הטיפ שלכם לעבודה יעילה וחסכון בזמן!!!
לפעמים, טיפים קטנים משנים את העבודה מול המחשב.

פורסם במקור בפורום CODE613 ב09/03/2014 19:45 (+02:00)

תחליף את השורה הזאת

Template="{Binding Mode=OneWay, Source={StaticResource myWindowStyle}}"

בזאת:

Style="{StaticResource myWindowStyle}"

פורסם במקור בפורום CODE613 ב19/03/2014 11:53 (+02:00)

יש לך את זה, אז אתה יכול לעצב הכל בצורה ויזואלית ואחר כך לייצא ל XML

סרגל.png

פורסם במקור בפורום CODE613 ב07/03/2014 15:03 (+02:00)

אולי זה יעזור לך.

פורסם במקור בפורום CODE613 ב09/03/2014 13:49 (+02:00)

לבעלי האתר הייתי מציע שהחיפוש באתר יתבצע ע''י החיפוש המותאם אישית של גוגל, ובדומה למה שיש בפורום פרוג.

פורסם במקור בפורום CODE613 ב25/02/2014 20:57 (+02:00)

ב WPF אפשר לנסות לעשות כך:

Imports System.Reflection

Class Application

    ' Application-level events, such as Startup, Exit, and DispatcherUnhandledException
    ' can be handled in this file.

    Private Sub Application_Exit(sender As Object, e As System.Windows.ExitEventArgs) Handles Me.Exit
        Process.Start(Assembly.GetExecutingAssembly().Location)
    End Sub
End Class

פורסם במקור בפורום CODE613 ב25/02/2014 06:50 (+02:00)

אז מה הבעיה תעשה כך:

static void Main(string[] args)
        {
            DateTime? d = null;
            ((DateTime)(d ?? DateTime.Now)).Year.ToString();
        }

פורסם במקור בפורום CODE613 ב17/02/2014 18:36 (+02:00)

מצורף קוד שכתבתי כדי לקבל עדכונים שוטפים מהפורום, הקוד עובד עם RSS, פשוט תצרו פרוייקט חדש עם פקד Timer2 ופקד 'NotifyIcon1' וכמו שתראו כבר בקוד.

Dim bytes As Byte() = {}
    Dim DownloadThread As Threading.Thread
    Dim href As String

    Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        Try
            Dim len As Integer = bytes.Length
            DownloadThread = New Threading.Thread(AddressOf DownloadThreadStart)
            DownloadThread.Start()
            'מנסה להוריד נתונים עד 10 שניות
            For I = 0 To 10
                Threading.Thread.Sleep(1000)
                If DownloadThread.IsAlive = False Then
                    Exit For
                End If
            Next
            'יוצא אם עד אחר 10 שניות לא הצליח להוריד
            If DownloadThread.IsAlive Then
                DownloadThread.Abort()
                Exit Sub
            End If
            If len <> bytes.Length Then
                len = bytes.Length
                Dim DS As New DataSet
                DS.ReadXml(New MemoryStream(bytes))
                Dim SB As New StringBuilder
                SB.AppendLine("המחבר: " & DS.Tables(2).Rows(1).Item(0).ToString)
                SB.AppendLine("נושא: " & DS.Tables(4).Rows(0).Item(1).ToString)
                Dim msg As String = DS.Tables(6).Rows(0).Item(1).ToString
                If msg.Length > 100 Then
                    msg = Mid(msg, 1, 100) & " ..."
                End If
                SB.AppendLine("תוכן ההודעה: " & msg)
                href = DS.Tables(3).Rows(0).Item(3).ToString
                SB.AppendLine("לחץ כאן למעבר להודעה החדשה")
                NotifyIcon1.ShowBalloonTip(5555, "הודעה חדשה בפורום", SB.ToString, ToolTipIcon.Info)
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation +
                             MsgBoxStyle.MsgBoxRight +
                             MsgBoxStyle.MsgBoxRtlReading)
        End Try
    End Sub

    Private Sub DownloadThreadStart()
        Try
            bytes = New WebClient().DownloadData("http://code.613m.org/feed.php")
        Catch ex As Exception
        End Try
    End Sub

    Private Sub NotifyIcon1_BalloonTipClicked(sender As Object,
                                              e As System.EventArgs) Handles NotifyIcon1.BalloonTipClicked
        Try
            Process.Start(href)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation +
                                 MsgBoxStyle.MsgBoxRight +
                                 MsgBoxStyle.MsgBoxRtlReading)
        End Try
    End Sub

פורסם במקור בפורום CODE613 ב13/02/2014 10:56 (+02:00)

תודה רבה,
וגם מצאתי את זה פרוייקט מוכן למטרה זו:
http://easygmail.codeplex.com/

פורסם במקור בפורום CODE613 ב10/02/2014 11:18 (+02:00)

כמו שראית בהודעת שגיאה שהבאת לעיל ה switch של C# לא מספיק מפותח הוא לא ידע להשוות כל דבר, אבל בקוד המתוקן השתמשתי ב TypeCode שזה enum מספרי ולכן הוא כל יכול לטפל בו.

פורסם במקור בפורום CODE613 ב23/01/2014 15:54 (+02:00)

אז תעשה כך:

For i = 1 To 10
Debug.Print Form.Controls(i.ToString).Name
Next

או במקום ToString
CStr

פורסם במקור בפורום CODE613 ב09/01/2014 21:11 (+02:00)

@אביי חפש שני רווחים והחלף באחד, תצטרך לעשות את זה כמה פעמים אם יש 3 רווחים או יותר ברצף.
ולגבי רווחים בסוף שאין אחריהם כלום יש פונקציה TRIM.

@yair-na אצלי זה עובד מצויין

וזה מה שיצא
222.pdf

@הבוס-הגדול גם בתשלום, או רק בחינם?

@שעטנ-ז-ג-ץ אמר בזה וירוס או לא?:

או שתפתח את הקוד של התוכנות שלו ותראה לבד האם השתיל משהו זדוני

מי שמשתיל קוד זדוני גם מסתיר אותו טוב טוב, ולא יעזור לך לפתוח ולראות, כי לא תמצא כלום.

@אהרן נראה שאין לזה תמיכה מובנית, אבל זה אפשרי, ראה כאן

@אהרן לא מכיר דרך לחפש טבלה בממשק החיפוש של וורד, רק דרך מאקרו.

@אהרן אפשר עם מאקרו

@הבוס-הגדול לא ציינת אם אתה רוצה גם גיבוי של החומר הקיים או לא, זה יכול לייקר את העסק בכפול בערך.